vb60连接sql2000数据库的具体步骤.docVIP

vb6.0连接sql2000数据库的具体步骤 悬赏分：200 | 解决时间：2010-3-13 10:01 | 提问者： 能者天下 初学vb6.0，希望能有具体的步骤，我用sql做的是一个学生成绩管理系统，要做前台界面，用vb做，无从下手，望高手指点了，谢谢！有详细视频教程的网站或现成的视频也可以。 最佳答案 VB6.0使用ADO对象连接数据库： 有偿征集原创文章，为您创收 投递文章 减小字体 增大字体 1． 定义连接对象Global DBconnect As New ADODB.Connection2． 执行连接语句If DBconnect.State = adStateOpen And Not IsEmpty(adStateOpen) Then DBconnect.Close l 连接ODBC DBconnect.ConnectionString = dsn 1． 定义连接对象 Global DBconnect As New ADODB.Connection 2． 执行连接语句 If DBconnect.State = adStateOpen And Not IsEmpty(adStateOpen) Then DBconnect.Close ? 连接ODBC DBconnect.ConnectionString = dsn=DataAliasName;uid=UserID;pwd=Passwd; ? 直接连接Access为 Dbconnect.Provider = Microsoft.jet.OLEDB.4.0 // Access 97为3.51 DBconnect.ConnectionString = FilePathFileName.mdb ? 连接Oracle DBconnect.Provider = MSADORA DBconnect.ConnectionString = user/mypass@servicename ? 连接SQL Server DBconnect.Provider = SQLOLEDB.1 DBconnect.ConnectionString = DATABASE= ;SERVER= ;UID= ;PWD= ; 或者可以使用 DBconnect.Open SERVER , USERID , PASSWORD DBConnect.Open 3． 取查询结果集 Global RS As New ADODB.Recordset Global PS As New ADODB.Recordset If RS.State = adStateOpen And Not IsEmpty(adStateOpen) Then RS.Close RS.Open SQLStr, DBconnect, adOpenKeyset 4． 执行SQL语句 DBconn.Execute SQLStr 5． 关闭数据库 DBconnect.Close VB使用ADO数据库可以分为有源数据库和无源数据库，即是否使用了DSN数据源，如下例： 1、在连接数据库前首先要在VB菜单中“工程”-“引用”从中选择 microsoft activeX Data objects 2.6 library和 microsoft activeX Data objects recordset 2.6两个组件，这是在连接数据前所必做的工作。 2、接下来定义ADO的连接对象，如下所示： Set conn = New ADODB.Connection Set rs = New ADODB.Recordset 第一种方法采用的是无源的数据库连接方法 conn.ConnectionString = Driver={sql server};server=JSZX3-11;uid=sa;pwd=;database=wzc conn.ConnectionTimeout = 30 conn.Open rs.Open select 用户名,密码 from login where 用户名= Trim(Combo1.Text) And 密码= Trim(Text1.Text) , conn, adOpenStatic, adLockReadOnly, adCmdText If rs.EOF = True And rs.BOF Then m = MsgBox(请重新登录, vbExclamation) Text1.Text = Text1.SetFocus Else Form1.Hide End If rs.Close 这是第二种方法连接数据库的方法，