关于VB连接ACCESS的方法

发布网友 发布时间：2022-04-07 21:44

我来回答

共4个回答

热心网友 时间：2022-04-07 23:14

1.用ADO就够了，转到其他电脑上也不用改变代码了，
2.不需要设置ODBC,需要引用ADODB,步骤：工程->引用， 选择Microsoft Activex Data Objects 2.5 Library
给你个代码
Sub Form1_Load()
Dim Conn As ADODB.Connection
Dim Rs As ADODB.Recordset
Set Conn=New ADODB.Connection
Dim Rs=New ADODB.Recordset

Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist SecuritInfo=False"
Conn.Open
'连接成功，这里写其他代码，如：
dim str as string
str="select * from table"
Rs.Open str,Conn
msgbox Rs.Fileds("name")
End Sub

热心网友 时间：2022-04-08 00:32

response.buffer=true
dim connstr,dbpath,conn

sub dblink()
set Conn = server.CreateObject("ADODB.Connection")
connstr="Provider = Microsoft.Jet.OLEDB.4.0;Data Source = "& server.MapPath(dbpath&"数据库路径如:数据库目录/数据库名")
conn.Open connstr
end sub

定一个过程 在你想要查询数据库的时候
输入dblink

比喻
set rs=server.createobject("adodb.recordset")
sql="select * from 表名"
dblink
rs.open sql,conn,1,1

热心网友 时间：2022-04-08 02:06

类似连接oracle和sql一样 只要指定下你的mdb文件路径就行，给你个例子自己看吧 ：
Dim Rs As ADODB.Recordset
Dim Conn As ADODB.Connection
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\文件名称;Persist SecuritInfo=False"
Conn.Open

Set Rs = New ADODB.Recordset
Rs.Open "SELECT * FROM 表名 ", Conn

热心网友 时间：2022-04-08 03:58

要用ODBC，首先要连接数据库，然后才能在VB中使用。想要更换机器不用设置，还是用ADO访问好了。