vb6.0连接sql2000数据库的具体步骤VIP免费

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(Co...