VB6.0使用ADO对象连接数据库
发布时间:2008-04-03 10:45:19 来源:编程爱好者网站 作者:编程爱好者网站 点击:581
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 Array7为3.51
DBconnect.ConnectionString = "FilePath\FileName.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
5. 关闭数据库
DBconnect.Close
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请
点击举报。