VB和数据库的连接步骤以相关语句.docVIP

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 试用版本创建  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 这是??二种方法连接数据库的方法，这一种方法是采用有源的方法与数据库连接 的方法，代码如下所示： Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.ConnectionString = DSN=login;uid=sa