用VB如何与数据库链接，

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-06-17 19:00:10
           当前版本： 1.0.707
               作者： Shawls
           个人主页： Http://Shawls.Yeah.Net
             E-Mail： [email protected]
                 QQ： 9181729

Answer 1

Dim Conn1 As ADODB.Connection
Dim Rs1 As ADODB.Recordset
Set Conn1 = New ADODB.Connection
Set Rs1 = New ADODB.Recordset
Conn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\mydata.mdb;Persist Security Info=False"
Rs1.Open "表名", Conn1, 1, 3

Answer 2

袖珍数据库连接方式查询手册下　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-06-17 19:00:16
           当前版本： 1.0.707
               作者： Shawls
           个人主页： Http://Shawls.Yeah.Net
             E-Mail： [email protected]
                 QQ： 9181729

Answer 3

Ctrl+T引用Microsoft ActiveX data objects 2.5 libray

Answer 4

我的一个数据库aa.mdb是用access2000建立的
当我写下如下代码时：
dim dbsTemp as database
  set dbsTemp = opendatabase("aa.mdb")
为什么系统提示出错 “无法识别的数据库格式”！！！！！？？？？？

Answer 5

to DFMT(东方木头) 
6.0默认用的和access2000用的mdb格式不同，你可以试试用6.0可视化数据管理器,它创建出来的数据库在access2000里打开会被当成低版本格式

Answer 6

谢谢  QQRN(笨QQ)
我会试一试的！

Answer 7

给你一个ado连接acess的例子
很简单的,先引用ado2.5再使用如下的函数:
  '用特定的筛选条件(MyRecordSource)连接特定的数据库(MyDatabase)两个参数来连接数据库中的某张表(MyTable),数据库的密
                                     '码为DataBasePassword 
                                      '并指定特定的字段(MyFields)，返回特定的值,不绑定数据控件Function adoconnect3(ByVal MyDatabase As String, ByVal MyTable As String, ByVal MyFields As String, ByVal MySQLCondition1 As String) As Recordset
   
   Dim MyRs As ADODB.Recordset
   Dim MyConnectString As String
   Dim sql As String
   
 ''' 打开连接。
   MyPath = getapppathparent + "database\"
   MyConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & MyPath & MyDatabase & ";Jet OLEDB:Database Password=" & DataBasePassword 
   Set MyCnn = New ADODB.Connection
   MyCnn.Open MyConnectString
   
   ''建立RecordSet
   Set MyRs = New ADODB.Recordset
   sql = "SELECT " & MyFields & "  FROM " & MyTable & MySQLCondition1
    MyRs.CursorLocation = adUseClient
   MyRs.LockType = adLockBatchOptimistic
   MyRs.CursorType = adOpenKeyset
  
   ''给函数赋值
   MyRs.Open sql, MyCnn
   Set adoconnect3 = MyRs
   
  End Function