VB6.0使用ADO对象连接数据库&＃xff1a; (转)[&＃64;more&＃64;]
1&＃xff0e; 定义连接对象XML:namespace prefix &＃61; o ns &＃61; "urn:schemas-microsoft-com:Office:office" />
Global dbconnect As New ADODB.Connection
2&＃xff0e; 执行连接语句
If DBconnect.State &＃61; adStateOpen And Not IsEmpty(adStateOpen) Then DBconnect.Close
l 连接ODBC
DBconnect.ConnectionString &＃61; "dsn&＃61;DataAliasName;uid&＃61;UserID;pwd&＃61;Passwd;"
l 直接连接Access为
Dbconnect.Provider &＃61; "Microsoft.jet.OLEDB.4.0" // Access 97为3.51
DBconnect.ConnectionString &＃61; "FilePathFileName.mdb"
l 连接ORACLE
DBconnect.Provider &＃61; "MSADORA"
DBconnect.ConnectionString &＃61; "user/mypass&＃64;servicename
l 连接sql SERVER
DBconnect.Provider &＃61; "SQLOLEDB.1"
DBconnect.ConnectionString &＃61; "DATABASE&＃61; ;SERVER&＃61; ;UID&＃61; ;PWD&＃61; ;"
或者可以使用 DBconnect.Open "SERVER" , "USERID" , "PASSword"
DBConnect.Open
3&＃xff0e; 取查询结果集
Global RS As New ADODB.Recordset
Global PS As New ADODB.Recordset
If RS.State &＃61; adStateOpen And Not IsEmpty(adStateOpen) Then RS.Close
RS.Open SQLStr, DBconnect, adOpenKeyset
4&＃xff0e; 执行SQL语句
DBconn.Execute SQLStr
5&＃xff0e; 关闭数据库
DBconnect.Close
来自 “ ITPUB博客 ” &＃xff0c;链接&＃xff1a;http://blog.itpub.net/10752043/viewspace-989641/&＃xff0c;如需转载&＃xff0c;请注明出处&＃xff0c;否则将追究法律责任。
京公网安备 11010802041100号