VB6.0使用ADO对象连接数据库
来源:优易学  2011-12-18 11:54:21   【优易学:中国教育考试门户网】   资料下载   IT书店
  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

责任编辑:小草

文章搜索:
 相关文章
热点资讯
资讯快报
热门课程培训