vb与access用ADO怎么连接？

Question

袖珍数据库连接方式查询手册上袖珍数据库连接方式查询手册　　下面的资料是平时使用到的一些数据库连接方式，可能不太全，但是可以用来当做资料查询，希望能够帮上大家的忙。
　　下面将简单介绍一下几种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;" 
       以上代码来自： SourceCode Explorer(源代码数据库)
           复制时间： 2002-05-25 17:16:57
           当前版本： 1.0.686
               作者： Shawls
           个人主页： Http://Shawls.Yeah.Net
             E-Mail： [email protected]
                 QQ： 9181729

Answer 1

袖珍数据库连接方式查询手册下　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=;" 
       以上代码来自： SourceCode Explorer(源代码数据库)
           复制时间： 2002-05-25 17:17:05
           当前版本： 1.0.686
               作者： Shawls
           个人主页： Http://Shawls.Yeah.Net
             E-Mail： [email protected]
                 QQ： 9181729

Answer 2

Dim CnnString As String
dim Cnn as new adodb.connectionCnnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
 数据库路径也名称 &";Persist Security Info=FalseCnn.CursorLocation = adUseClient"Cnn.CommandTimeout = 30
cnn.open cnnstring

Answer 3

上铺的,不是 JET.OLEDB.4.0 是 JET.OLEDB.3.51

Answer 4

目前的VB 只支持到前一版本的ACCESS 数据库.最新版本的没法用.

Answer 5

☆ADO连接数据库字符串大全（VP,Excel,文本,Sybase,.NET等)☆ 
http://jinesc.6600.org/myweb/disp.asp?idd=91&room=40

Answer 6

哎！兄弟啊！我学vb的时候，只会vb+acess！不过我觉得vb做com的时候，效果不好，就改用vc了

Answer 7

MSDN搜寻ADO 2.0你要的应有尽有！！！

Answer 8

建立ODBC数据源DSN
再在程序中连上这个 数据源
 dim rs as new ADODB.RecordSet
 dim cn as new ADODB.Connection
 dim ssql as string
 cn.open "数据源名","密码"
 sql="sql语句 "
 set rs=cn.execute(sql)

Answer 9

Public rst As New ADODB.Recordset
Public cnn As New ADODB.Connection
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=数据库路径;Persist Security Info=False"
cnn.Open
rst.Open "select * from 表", cnn, adOpenStatic, adLockPessimistic

Answer 10

应用ado数据控件后，再编程试试