vb6.0 连接 sql2000 数据库的具体步骤 1．定义连接对象 Global DBconnect As New ADODB.Connection2．执行连 接语句 If DBconnect.State = adStateOpen And Not IsEmpty(adStateOpen) Then DBconnect.Closel 连接 ODBC DBconnect.ConnectionString = "dsn 1．定义连接对象 Global DBconnect As New ADODB.Connection 2．执行连接语句 If DBconnect.State = adStateOpen And Not IsEmpty(adStateOpen) Then DBconnect.Close l 连接 ODBC DBconnect.ConnectionString= "dsn=DataAliasName;uid=UserID;pwd=Passwd;" l 直接连接 Access 为 Dbconnect.Provider = "Microsoft.jet.OLEDB.4.0" // Access 97为 3.51 DBconnect.ConnectionString = "FilePathFileName.mdb" l 连接 Oracle DBconnect.Provider = "MSADORA" DBconnect.ConnectionString = "user/mypass@servicename l 连接 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 PDF 文件使用 "pdfFactory Pro" 试用版本创建 www.fineprint.cn 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...
