求教,如何利用vb对access数据库进行查询读写工作，在线等

来源：百度知道 编辑：UC知道 时间：2024/09/20 23:39:20
我最近在做一篇毕业设计是一个实验室的管理系统,主要是对来做实验的师生和实验室的器材的出入库进行管理,其中要求利用access建立数据库,然后用vb建立引用程序,这个程序被要求可以对access数据库进行查询、修改、添加和删除功能，并且这个系统还要求可以进行远程访问。
我现在的主要问题就是，如何利用vb编辑程序使之可以与access数据库进行操作，并且进行远程访问。请高手能详细解答下，最好有关键语句的详细的代码解释。
我也查询到利用ADO技术访问数据库,但是要加入新的控件,不知道这个办法需要么,还有这个方法与用ado 有什么不同.
能把，“Access 本身提供远程数据库访问”说的更具体一点么，最好有代码和解释

连接数据库:

Dim nConn As Object,nRs as Object

Set nConn=CreateObject("ADODB.Connection")
Set nRs=CreateObject("ADODB.Recordset")

nConn.Open "Driver={Microsoft Access Driver (*.mdb)};UID=;PWD=;DBQ=" & accessFilePath ' accessFilePath 是 Access 文件路径

查询:

Dim SQL As String

SQL="Select * from Teachers where ID=1"

nRs.Open SQL,nConn,3,3

if not nRs.Eof then '查询结果不为空
nRs.MoveNext
Msgbox nRs("TeacherName") 'TeacherName 是字段名

修改:
nRs("TeacherName")="更新值"
nRs.Update

删除:

if MsgBox("是否删除?",YesNo)=vbYes then
nRs.Delete
end if
else
'查询结果为空，
end if

如果要远程访问，可以换 SQL Server 数据库。或者用 XML 做转换，Access 本身提供远程数据库访问。也可以考虑一下 ODBC 数据源

我也有类似问题，希望coyerhc能够帮助解决！其中：
“nRs.Open SQL,nConn,3