SQL2005的安装及vb与SQL的连接方式.doc

vb与SQL的连接方式： 一、Private Sub cmdOk_Click() Dim Rs As New ADODB.Recordset Dim strSql As String Static Try_times As Integer If txtUser.Text = Then MsgBox 请输入用户名, vbExclamation + vbOKOnly, 操作提示 txtUser.SetFocus Exit Sub End If strSql = SELECT*FROM Users WHERE UserName= txtUser.Text Rs.Open strSql, Conn, adOpenStatic, adLockReadOnly If Rs.RecordCount = 0 Then MsgBox 用户编号不存在, vbExclamation + vbOKOnly, 操作提示 txtUser.SetFocus Try_times = Try_times + 1 If Try_times = 3 Then MsgBox 您已经三次尝试进入本系统均不成功，系统将关闭, vbExclamation, 操作提示 Conn.Close Set Conn = Nothing End Else Exit Sub End If End If If txtPwd.Text IIf(IsNull(Rs!UserPwd), , Rs!UserPwd) Then MsgBox 密码错误, vbExclamation + vbOKOnly, 操作提示 txtPwd.SetFocus Try_times = Try_times + 1 If Try_times = 3 Then MsgBox 您已经三次尝试进入本系统均不成功，系统将关闭, vbExclamation + vbOKOnly, 操作提示 Conn.Close Set Conn = Nothing End Else Exit Sub End If End If CurLoginUserName = txtUser.Text CurLoginUserEmpId = IIf(IsNull(Rs!UserEmpId), , Rs!UserEmpId) Rs.Close Set Rs = Nothing Unload Me FrmMain.Show End Sub ********************************************************** 1，安装前准备： 安装IIS，打开控制面板，点“添加或删除程序”，点“添加/删除Windows组件(A)”,把“Internet 信息服务（IIS）”前面的勾选框的勾选上，点“下一步”，一路确认完成。这个过程一般没有问题。 当然，要装SQL Server 2005，当然要准备安装程序（光盘），也就要选对版本。 我之前下载了个“Microsoft SQL Server 2005 Enterprise Edition”，兴冲冲的去安装，安装不成功，最后看他的安装说明里面恰好这个版本“Windows XP Professional Edition SP24”是不能安装的，背啊。。。。才知道磨刀不误砍材功的道理，后来去下载了“Microsoft SQL Server 2005 Standard Edition”，920MB的压缩包。2,SQL Server 2005的安装光盘共有2张，先打开第一张，点“服务器组件、工具、联机丛书和示例(C)”  此步骤系统配置检查很重要，14个项目里面如果有1项有错误或者警告，整个SQL Server 2005都将不正常。 我第一次在一台笔记本的Windows xp2系统上安装就遇到了一个COM+组建的警告，以为没有什么大不了，不过最后是发现程序不能正常运行，在google，百度上有哪些信誉好的足球投注网站半天，操作了半天，结果还是问题依旧。 不过我回家第二次在台式机上的Windows xp2安装就没有问题，一切正常。 看来和Windows xp2的系统版本没有关系，而是我的笔记本电脑