会python真的可以为所欲为0(回)
350天前
这里还有人吗1(回)
535天前这里还有人吗0(回)
535天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
760天前到处都是羊，不想上班0(回)
840天前
鸽子
0(回)
844天前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 |
