VB如何连接ACCESS数据库?有必要在ODBC中注册么 ?

Question

请教一下如何打开ACCESS数据库 ?最好有代码.
我在ODBC中注册了一个ACCESS数据库,但不知道怎么写Connectstring.
谢谢

Answer 1

不必。Access 是 VB 所用数据库引擎 Jet Engine 的内部数据库。

Answer 2

不用了，使用ODBC得到连接字符串，然后删除控件
这样的方法简单，不必记忆！！

Answer 3

'引用ADO("工程"/"引用"/Microsoft ActiveX Data Objects 2.X Library)Private Sub Command1_Click()
    On Error GoTo err
    Dim cn As New ADODB.Connection, rs As New ADODB.RecordSet
    '有密码的连接方式
    'cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Test.mdb;Jet OLEDB:DataBase password=12345;"
    '无密码的连接方式
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Test.mdb;Persist Security Info=False"
    cn.Open
    rs.CursorLocation=adUseClient'设置客户端游标
    rs.Open "select * from 表1", cn, 3, 2
    Set DataGrid1.DataSource = rs    '把记录集的记录显示到DataGrid1
    Exit Sub
err:
    MsgBox err.Description
End Sub

Answer 4

cn.ConnectionString = "DSN=XXX;UID=admin;PWD=XXX"

Answer 5

具体的连接方式有两类：1 使用数据控件，几乎不必写代码，尤其是 ADODC 控件。Data 控件（属于 DAO）
或
ADODC 控件（属于 ADO)2 使用 DAO 或 ADO 数据对象。需要引用对象库并声明对象变量，写较多代码。

Answer 6

没必要用ODBC
如果你是用ADO组件连接数据库的那你直接用Adodc，在这个控件上点右键->属性->生成然后选Microsoft Jet4.0 OLE DB Provider在下一步，一步步的填。最后就会得到一串生成字符串，把它复制到你的Connection对象的ConnectionString属性里就是了。最后把Adodc控件删除。

Answer 7

看到楼主的问题我想问个问题  希望大家帮我回答一下
在对excel 进行操作的时候   通常有两种方式 一种是定义 application对象
 象这样 dim xlapp as excel.application
         dim xlbook as excel.workbook
         dim xlsheet as excel.worksheet
....... 
         set xlapp=createobject("excel.application")
         set xlbook=xlapp.workbooks.open("  file.xls")
          set xlsheet=xlbook.worksheets(1)
          xlsheet.activate
    另外就是一种ADDOB操作
dim strConn as adodb.connection
           strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&xlsFile& ";"& "Extended Properties=""Excel 8.0;HDR=No;IMEX=1;"""
    connExcel.ConnectionString = strConn
    connExcel.Open
是不是这样的啊?
那么在打开excel后操作的过程中使用什么方法比较好点呢? 两种方法能不能同时使用啊?