VBA数据库连接大全

有没有高手提供一下各种数据库链接字符串，在此先谢过了 收藏 分享

 

lirong

• 发短消息
• 加为好友

lirong (冬日阳光)当前离线

荣誉会员

UID

35481 

帖子

1275 

精华

1 

积分

2032 

水晶

1860 枚 

威望

12 点 

阅读权限

80 

性别

男 

注册时间

2005-6-13 

沙发 发表于 2006-1-21 14:41 | 只看该作者 　　下面的資料是平時使用到的一些數據庫連接方式﹐可能不太全﹐但是可以用來當做資料查詢﹐希望能夠幫上大家的忙。
　　下面將簡單介紹一下幾種ADO連接方式﹕ODBC DSN,ODBC DSN-Less, OLE DB Provider,和"MS Remote" Provider.

I.DSN
　　oConn.Open "DSN=AdvWorks; UID=Admin; PWD=;"
　　注意﹕從MDAC2.1開始就不能夠在使用這樣的方式了﹐就是只把DSN文件名放在ConnectString中。你必須同時使用DSN﹐UID﹐PWD標志。例如下面的方式在MDAC 2.1中將會出錯﹕oConn.Open "AdvWorks"

II.File DSN
　　oConn.Open "FILEDSN=\somepath\mydb.dsn; UID=Admin; PWD=;"

III.ODBC DSN-Less Connections
　　a)ODBC Text Driver
　　　oConn.Open "Driver={Microsoft Text Driver (*.txt; *.csv)}; Dbq=\somepath\;" & "Extensions=asc,csv,tab,txt; Persist Security Info=False"
　　注意﹕需要在SQL語句中指定使用到的文件名。例如﹕
　　oRs.Open "Select * From customer.csv", oConn, adOpenStatic, adLockReadOnly, adCmdText

　　b)ODBC Driver for Access
　　　i)普通安全模式﹕
　　　　oConn.Open "Driver={Microsoft Access Driver (*.mdb)};" & _
　　　　　"Dbq=\somepath\mydb.mdb; Uid=Admin; Pwd=;"

　　　ii)如果使用了System database:
　　　　oConn.Open "Driver={Microsoft Access Driver (*.mdb)};" & _
　　　　　"Dbq=\somepath\mydb.mdb; SystemDB=\somepath\mydb.mdw;", "admin", ""

　　c)ODBC Driver for SQL Server
　　　i)普通安全模式
　　　　oConn.Open "Driver={SQL Server}; Server=carl2;" & _
　　　　　"Database=pubs; Uid=sa; Pwd=;"

　　　ii)使用信任安全模式﹕
　　　　oConn.Open "Driver={SQL Server}; Server=carl2;" & _
　　　　　"Database=pubs; Uid=; Pwd=;"

　　注意﹕要使用空白的Uid和Pwd

　　d)ODBC Driver for Oracle
　　　i)使用現有的Oracle ODBC Driver from Microsoft:
　　　　oConn.Open "Driver={Microsoft ODBC for Oracle};" & _
　　　　　"Server=OracleServer.world; Uid=demo; Pwd=demo;"

　　　ii)使用老版本的Oracle ODBC Driver from Microsoft:
　　　　oConn.Open "Driver={Microsoft ODBC Driver for Oracle};" & _
　　　　　"ConnectString=OracleServer.world; Uid=demo; Pwd=demo;"


　IV)使用微軟的OLE DB Data Link Connections方式Data Link File (UDL)
　　a)使用絕對路徑
　　　oConn.Open "File Name=\somepath\pubs.udl;"

　　b)使用相對路徑
　　　oConn.Open "File Name=pubs.udl;"

V)OLE DB Provider Connections方式
　　a)OLE DB Provider for ODBC Databases
　　　i)Access (Jet):
　　　　oConn.Open "Provider=MSDASQL; Driver={Microsoft Access Driver (*.mdb)};" & _
　　　　　"Dbq=\somepath\mydb.mdb; Uid=Admin; Pwd=;"

　　　ii)SQL Server:
　　　　oConn.Open "Provider=MSDASQL; Driver={SQL Server};" & _
　　　　　"Server=carl2; Database=pubs; Uid=sa; Pwd=;"

　　b)OLE DB Provider for Microsoft Jet (Access)
　　　i)普通安全模式﹕
　　　　oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
　　　　　"Data Source=\somepath\mydb.mdb; User Id=admin; Password=;"

　　　ii)如果使用了System database:
　　　　oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
　　　　　"Data Source=\somepath\mydb.mdb; Jet OLEDB:System Database=system.mdw;", "admin", ""
　　　注意﹕當使用OLE DB Provider4.0版本是﹐需要把MDB和MDW文件轉換成4.0的數據庫格式

　　　iii)如果MDB需要一個數據庫密碼的話﹕
　　　　oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
　　　　　"Data Source=\somepath\mydb.mdb; Jet OLEDB:Database Password=MyDbPassword;", "admin", ""

　　c)OLE DB Provider for Excel Spreadsheet:
　　　oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\somepath\expenses.xls;" & _
　　　　"Extended Properties=Excel 8.0;HDR=Yes;"
　　注意﹕ "HDR=Yes"表示在第一行中是行標題﹐在provider中將不把第一行包括入recordset中

　　d)OLE DB Provider for SQL Server
　　　i)普通安全模式﹕
　　　　oConn.Open "Provider=sqloledb; Network Library=DBMSSOCN;" & _
　　　　　"Data Source=carl2; Initial Catalog=pubs; User Id=sa; Password=;"

　　　ii)使用信任安全模式﹕
　　　　oConn.Open "Provider=sqloledb; Network Library=DBMSSOCN;" & _
　　　　　"Data Source=carl2; Initial Catalog=pubs; Trusted_Connection=yes;"
　　　注意﹕"Network Library=DBMSSOCN"聲明OLE DB使用TCP/IP替代Named Pipes.

　　e)OLE DB Provider for Oracle
　　　oConn.Open "Provider=msdaora; Data Source=OracleServer.world;" & _
　　　　"User Id=sa; Password=;"

　(VI)Remote OLE DB Provider Connections方式﹙就是RDS方式﹚﹕
　　a)MS Remote - Access (Jet)
　　　i)ODBC DSN:
　　　　oConn.Open "Remote Server=http://carl2; Remote Provider=MSDASQL;" & _
　　　　　"DSN=AdvWorks; Uid=admin; Pwd=;"

　　　ii)OLE DB Provider:
　　　　oConn.Open "Provider=MS Remote; Remote Server=http://carl2;" & _
　　　　　"Remote Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\somepath\mydb.mdb;", "admin", ""

　　　iii)OLE DB Provider自定義事務對象
　　　　oConn.Open "Provider=MS Remote; Remote Server=http://carl2;" & _
　　　　　"Handler=MSDFMAP.Handler; Data Source=MyAdvworksOLEDBConnectTag;"

　　b)MS Remote - SQL Server
　　　i)ODBC DSN:
　　　　oConn.Open "Remote Server=http://carl2; Remote Provider=MSDASQL;" & _
　　　　　"Network Library=DBMSSOCN; DSN=Pubs; Uid=sa; Pwd=;"

　　　ii)OLE DB Provider
　　　　oConn.Open "Provider=MS Remote; Remote Server=http://carl2;" & _
　　　　　"Remote Provider=SQLOLEDB; Network Library=DBMSSOCN;" & _
　　　　　"Data Source=carl2; Initial Catalog=pubs; User ID=sa; Password=;"