Ⅰ VB如何连接ACCESS数据库
由于VB本身并不带有可以访问数据库的类,所以我们需要引用一个包含能访问数据库的类来使用数据库.这里我们采用ADODB,相比DAO和能访 问数据库的API来说,它比DAO更灵活,更强大;而比起API,它更简单易用,更适合初学者.而Access数据库比起sql,也相对简单了很多,且能 够满足中小型应用程序的需要,所以我们在使用数据库时,选择了Access. 就像使用文本文件来存储数据一样,我们需要先设计好数据结构,只不过在设计Access数据库的结构时,我们需要用到其它的程序来进行详细的规划.建议采用的程序是office中的Access或VB自带的VISDATA. 当数据库设计好了以后,我们可以开始数据库编程了. 首先,我们需要引用ADO.具体的方法是,在工程 -- 引用 中,找到Microsoft ActiveX Data Object *.* Library,这里的*.*是指的时ADO的版本号,一般来说,应用程序或ActiveX控件都具有向下兼容性,所以我们尽可能选择比较新的版本.以确 保程序在能识别旧版本Access的同时,也能识别较新版本的Access. 然后我们需要在程序中创建一个对象.就好比我们在窗体上添加一个FileBox才能看到文件名一样,只有创建了ADO对象,我们才能够访问数据库.常用的对象有两个,Connection和Recordset. 创建这两个对象的具体方法是: 1.在引用后,使用New关键字,如 Private Conn As New ADODB.Connection Private Reco As New ADODB.Recordset 2.在没引用时,用CreateObject创建对象: Dim Conn,Reco Set Conn = CreateObject(ADODB.Connection) Set Reco = CreateObject(ADODB.Recordset) 创建了对象之后,下一步我们要做的就是打开数据库了. 先看下面的代码,可以成功的打开数据库. Conn.open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:Main.mdb 这句代码打开了D盘中的Main.mdb这个数据库. Connection.Open方法的第一个参数是连接代码,它将传递给系统的数据库引擎.前半部分 Provider=Microsoft.Jet.OLEDB.4.0,它表示了数据库的类型.不同的数据库可能会不同.后半句 Source=d:main.mdb它表示了数据库所在的绝对路径. 打开数据库之后,还要打开表.假如数据库中有一个表,表名为Users,字段有两个,一个为用户名,一个为密码.那么看以下代码. 1.想返回Users中,[用户名]为去年烟花的[密码] Recordset.open Select 密码 From Users Where 用户名='去年烟花',Connection,1,1 之后我们就可以把用户输入的密码进行比较,看是否允许登录. If Recordset.eof and Recordset.bof then Msgbox 用户不存在!,16 Else If PassWord =Recordset(密码).value then msgbox 登录成功!,64 Else msgbox 密码错误!,32 End If End If Recordset.Close 2.假设Admin已经成功登录系统,我们想把所有的用户名和密码都显示出来 Recordset.open Select * From Users,Connection,1,1 这时,表已经被打开,我们就用以下代码把它显示出来. Do whlie Not Recordset.eof Print 用户名: & Recordset(用户名).value & 密码: & Recordset(密码).value Recordset.MoveNext Loop Recordset.Close 由以上代码示例可以看出,打开表时,可以只打开其中的一个字段,也可以打开所有.第一个参数是SQL语句. Select [字段名] From 表名 [Where 条件] 这里的条件可以省略.且字段名也可以用*来代替所有字段. 需要注意的是,如果你用(1)中的方法打开,那么(2)后面显示的代码就不能再用在(1)中.因为(1)里并没有打开[用户名]字段,所以这一句Recordset(密码)就没有值存在,还有可能出错. 后面的条件,可以用=、>、<等运算符.比如 Where ID > 32.(这里假设[ID]为数字型.) 这是打开的部分.第二个很重要的部分就是查询记录. 数据库它并不是把所有记录全部放到一个变量中备用的.而是以当前记录的形式来返回一个值.所以我们想从中找到有用的信息,就必须要对信息进行定位/筛选. 定位: 移动到下一条 Recordset.MoveNext 移动到上一条 Recordset.MovePrevious 移动到最后一条 Recordset.MoveLast 移动到第一条 Recordset.MoveFrist 移动到某一条 Recordset.Move Number 筛选: Recordset.Find 条件 如:[用方法(2)打开表之后] Private Sub Command1_Click() Recordset.Find 用户名= & text1.text If Recordset.Eof <> True Then Msgbox 该用户的密码是: & Recordset(密码).value,64 Else Msgbox 未找到该用户的资料!,16 End If End Sub MoveNext 只有当Eof不为True时,才可用,否则发生错误.而MovePrevious刚是Bof不为True时.... 而只要Eof 和 Bof中有一个不为真时,也就是说只要有一条记录时,它就可以使用. Find 方法中的条件和Open时的第一个参数中的条件表述方法是完全一致的.当在已打开的记录集中,找不到该记录时,Eof为True.找到则当前的值就是符合条件的记录. 第三个部分就是添加/修改记录. 修改记录很简单,先按以上的方法找到相关记录之后,给记录赋值就可以了. 比如:[(修改密码)按方法(1)打开表之后] Recordset(密码).value = 123456 Recordset.Updata 需要注意的就是,在修改完成后,要调用Updata方法,这样修改才能生效. 而添加记录则可以用以下代码来实现: Recordset.addnew Recordset(用户名).value = Admin Recordset(密码).value = Admin Recordset.Updata 这里,先要调用Addnew方法,增加一条新记录,然后对这个新记录中的各字段赋值,最后再调用Updata方法. 到这里就差不多了,最后说一下上面提到的几个方法. Recordset.Open SQL语句,数据源,游标类型,打开方法 SQL语句不用说了,就是Select那啥的,目的就是按要求从表中返回数据 数据源就是一个打开之后的Connection对象. 填1就可以了 打开方法对应了几个常数,具体哪几个可以从对象浏览器里看。 对应数值的意义: 1 只读 2 独占 3 可写 4 自已可写,别人可读。 Connection.open 连接代码,服务器用户名,密码。
Ⅱ VB怎么连Access数据库
新建工程时选数据工程，此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件。
然后在FORM1窗体中添加ADODC控件和DATAGRID控件，将DATAGRID1的属性DATASOURCE选ADODC1，打开ADODC1控件属性页使用连接字符串，选生成，在提供者选项中ACCESS数据库选MICROSOFT jet 4.0 OLE DB Provider,然后按要求连接数据库等。在ADODC1控件属性页使用连接字符串空白文本窗口中就有一长串字符串，注意该字符串可复制到程序代码用于编程。ADODC1控件属性页的数据源内有命令文本（SQL）编写窗口可编写SQL查询语言。该窗口的SQL语句可复制到程序代码用于编程。
SQL查询语言主要结构为：
Select 查询字段 from 表名 Where 查询条件语句 [排序语句或分组语句]
查询字段必须分别用（西文）逗号分开或就用一个*号代替，上述查询中排序语句建议最好应用。
SQL查询语言如有错程序运行时告诉你出错，作相应改动即可。本人一般先按上述连接，SQL用"SELECT * FROM TabelName"作调试，无问题，用一个按钮孔件将前述需复制的连接字符串和SQL查询语言先复制于按钮控件的CLICK事件中备着，以便放着以后使用。然后删去ADODC1孔件，再添加ADODC1控件再添其他内容。
Ⅲ VB如何连接ACCESS数据库
由于VB本身并不带有可以访问数据库的类,所以我们需要引用一个包含能访问数据库的类来使用数据库.这里我们采用ADODB,相比DAO和能访问数据库的API来说,它比DAO更灵活,更强大;而比起API,它更简单易用,更适合初学者.而Access数据库比起SQL,也相对简单了很多,且能够满足中小型应用程序的需要,所以我们在使用数据库时,选择了Access. 就像使用文本文件来存储数据一样,我们需要先设计好数据结构,只不过在设计Access数据库的结构时,我们需要用到其它的程序来进行详细的规划.建议采用的程序是office中的Access或VB自带的VISDATA. 当数据库设计好了以后,我们可以开始数据库编程了. 首先,我们需要引用ADO.具体的方法是,在工程 -- 引用 中,找到Microsoft ActiveX Data Object *.* Library,这里的*.*是指的时ADO的版本号,一般来说,应用程序或ActiveX控件都具有向下兼容性,所以我们尽可能选择比较新的版本.以确保程序在能识别旧版本Access的同时,也能识别较新版本的Access. 然后我们需要在程序中创建一个对象.就好比我们在窗体上添加一个FileBox才能看到文件名一样,只有创建了ADO对象,我们才能够访问数据库.常用的对象有两个,Connection和Recordset. 创建这两个对象的具体方法是: 1.在引用后,使用New关键字,如 Private Conn As New ADODB.Connection Private Reco As New ADODB.Recordset 2.在没引用时,用CreateObject创建对象: Dim Conn,Reco Set Conn = CreateObject(ADODB.Connection) Set Reco = CreateObject(ADODB.Recordset) 创建了对象之后,下一步我们要做的就是打开数据库了. 先看下面的代码,可以成功的打开数据库. Conn.open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Main.mdb 这句代码打开了D盘中的Main.mdb这个数据库. Connection.Open方法的第一个参数是连接代码,它将传递给系统的数据库引擎.前半部分Provider=Microsoft.Jet.OLEDB.4.0,它表示了数据库的类型.不同的数据库可能会不同.后半句Source=d:\main.mdb它表示了数据库所在的绝对路径. 打开数据库之后,还要打开表.假如数据库中有一个表,表名为Users,字段有两个,一个为用户名,一个为密码.那么看以下代码. 1.想返回Users中,[用户名]为去年烟花的[密码] Recordset.open Select 密码 From Users Where 用户名='去年烟花',Connection,1,1 之后我们就可以把用户输入的密码进行比较,看是否允许登录. If Recordset.eof and Recordset.bof then Msgbox 用户不存在!,16 Else If PassWord =Recordset(密码).value then msgbox 登录成功!,64 Else msgbox 密码错误!,32 End If End If Recordset.Close 2.假设Admin已经成功登录系统,我们想把所有的用户名和密码都显示出来 Recordset.open Select * From Users,Connection,1,1 这时,表已经被打开,我们就用以下代码把它显示出来. Do whlie Not Recordset.eof Print 用户名: & Recordset(用户名).value & 密码: & Recordset(密码).value Recordset.MoveNext Loop Recordset.Close 由以上代码示例可以看出,打开表时,可以只打开其中的一个字段,也可以打开所有.第一个参数是SQL语句. Select [字段名] From 表名 [Where 条件] 这里的条件可以省略.且字段名也可以用*来代替所有字段. 需要注意的是,如果你用(1)中的方法打开,那么(2)后面显示的代码就不能再用在(1)中.因为(1)里并没有打开[用户名]字段,所以这一句Recordset(密码)就没有值存在,还有可能出错. 后面的条件,可以用=、>、 32.(这里假设[ID]为数字型.) 这是打开的部分.第二个很重要的部分就是查询记录. 数据库它并不是把所有记录全部放到一个变量中备用的.而是以当前记录的形式来返回一个值.所以我们想从中找到有用的信息,就必须要对信息进行定位/筛选. 定位: 移动到下一条 Recordset.MoveNext 移动到上一条 Recordset.MovePrevious 移动到最后一条 Recordset.MoveLast 移动到第一条 Recordset.MoveFrist 移动到某一条 Recordset.Move Number 筛选: Recordset.Find 条件 如:[用方法(2)打开表之后] Private Sub Command1_Click() Recordset.Find 用户名= & text1.text If Recordset.Eof True Then Msgbox 该用户的密码是: & Recordset(密码).value,64 Else Msgbox 未找到该用户的资料!,16 End If End Sub MoveNext 只有当Eof不为True时,才可用,否则发生错误.而MovePrevious刚是Bof不为True时.... 而只要Eof 和 Bof中有一个不为真时,也就是说只要有一条记录时,它就可以使用. Find 方法中的条件和Open时的第一个参数中的条件表述方法是完全一致的.当在已打开的记录集中,找不到该记录时,Eof为True.找到则当前的值就是符合条件的记录. 第三个部分就是添加/修改记录. 修改记录很简单,先按以上的方法找到相关记录之后,给记录赋值就可以了. 比如:[(修改密码)按方法(1)打开表之后] Recordset(密码).value = 123456 Recordset.Updata 需要注意的就是,在修改完成后,要调用Updata方法,这样修改才能生效. 而添加记录则可以用以下代码来实现: Recordset.addnew Recordset(用户名).value = Admin Recordset(密码).value = Admin Recordset.Updata 这里,先要调用Addnew方法,增加一条新记录,然后对这个新记录中的各字段赋值,最后再调用Updata方法. 到这里就差不多了,最后说一下上面提到的几个方法. Recordset.Open SQL语句,数据源,游标类型,打开方法 SQL语句不用说了,就是Select那啥的,目的就是按要求从表中返回数据 数据源就是一个打开之后的Connection对象. 填1就可以了 打开方法对应了几个常数,具体哪几个可以从对象浏览器里看。 对应数值的意义: 1 只读 2 独占 3 可写 4 自已可写,别人可读。 Connection.open 连接代码,服务器用户名,密码。
Ⅳ VB怎么连接访问Access数据库
使用Visual Basic作为前端开发语言，与SQL Server接口有几种常用的方法，即：
①数据访问对象/Jet
②为ODBC API编程
③使用SQL Server的Visual Basic库(VBSQL)为DB库的API编程
④RDO 远程数据对象(RemoteData Objects)
⑤ADO 数据对象(Active Data Objects)
1、数据访问对象/Jet
VB支持Data Access Objects(DAOs)的子集。DAO的方法虽然不是性能最好的管理客户机—服务器之间的对话方式，但它的确有许多优点。DAO/Jet是为了实现从VB访问Access数据库而开发的程序接口对象。使用DAOs访问SQL Server的过程如下：应用程序准备好语句并送至Jet，Jet引擎(MASJT200.DLL)优化查询，载入驱动程序管理器并与之通讯，驱动程序管理器(ODBC.DLL)通过调用驱动器(SQLSRVR.DLL)的函数，实现连接到数据源，翻译并向SQL Server提交SQL语句且返回结果。下面是一个用DAOs访问SQL Server的VB实例。
注释：Form Declarations
Dim mydb As Database
Dim mydynaset As Dynaset オ
Private Sub Form_Load()
Set mydb = OpenDatabase("", False, False, "ODBC; DSN=Myserver; WSID=LCL; DATABASE = sales")
Set mydynaset = mydb CreateDynaset("Select*from Customers") オ
End Sub ァ
上述例子是以非独占、非只读方式打开sales数据库，并检索Customers表中的所有字段。OpenDatabase函数的最后一个参数是ODBC连接字符串参数，它指明了Microsoft Access连接到SQL Server所需要知道的一些内容。其中“DSN”为数据源名，“WSID”为工作站名，“DATABASE”为所要访问的数据库名。
2、利用ODBC API编程
ODBC(Open Database Connectivity)的思想是访问异种数据库的一种可移植的方式。与数据资源对话的公用函数组装在一个称为驱动程序管理器(ODBC.DLL)的动态连接中。应用程序调用驱动程序管理器中的函数，而驱动程序管理器反过来通过驱动器(SQLSRVR.DLL)把它们送到服务器中。
下面的代码使用上面一些函数先登录到一个服务器数据库，并为随后的工作设置了语句句柄。
Global giHEnv As Long
Global giHDB As Long
Global giHStmt As Long
Dim myResult As integer
Dim myConnection As Srting
Dim myBuff As String*256
Dim myBufflen As Integer
If SQLAllocEnv(giHEnv)<>SQL_SUCCESS Then
MsgBox"Allocation couldn注释：t happen!"
End If
If SQLAllocConnect(giHEnv,giHDB)<>SQL_SUCCESS Then
MsgBox "SQL Server couldn注释：t connect!"
End If
myConnection="DSN=myServer;UID=LCL;PWD=;APP=ODBCTest;WSID=LCL;DATABASE=sales"
myResult=SQLDriverConnect(giHDB,Test,form1.hWnd,myConnection.len(myConnection),myBuff,256,myBufflen,SQL_DRIVER_COMPLETE_REQUIED)
myResult=SQLAllocStmt(giHDS,giHStmt)
myResult=SQLFreeStmt(giHStmt,SQL_COLSE)
rsSQL="Select * from Customers Where City = "Hunan""
myResult = SQLExecDirect(giHStmt,rsSQL,Len(rsSQL))
3、使用VBSQL对DB库API编程
DB库是SQL Server的本地API，SQL Server的Visual Basic库(VBSQL)为Visual Basic程序员提供API。从一定意义上说，VBSQL是连接Visual Basic程序到SQL Server的性能最好最直接的方式。VBSQL包含以下三个文件：
VBSQL.VBX： 包含库函数，具有访问重要的消息和处理错误的能力
Ⅳ 如何进行VB与数据库ACCESS的连接
VB与数据库连接可以使用数据库控件进行,也可以引用ADO对象,数据库控件的使用比较简单,下面我就介绍使用ADO对象进行连接,首先打开"工程-引用",选择其中的Microsoft ActiveX Data Objects 2.0 Library(2.0以上版本都可以):
ACCESS数据库名为"学生.mdb"其中有张数据库表名为"表",下面就介绍如何使用代码进行连接到数据库"学生",代码如下:
Function Connection() As String
'数据库的连接字符设置
Connection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path + "\学生.mdb"
End Function
数据库"学生.mdb"在当前目录下,故使用APP.Path
Private Sub Form_Load()
Dim mr As New ADODB.Recordset
Dim cnn As New ADODB.Connection
Dim Sql As String
Sql="select * from 表"
cnn.Open Connection '使用cnn对象打开数据库连接
mr.Open Sql, cnn, adOpenKeyset, adLockOptimistic
'打开数据库记录
If mr.eof then
msgbox "数据库表为空!"
else
msgbox "数据库表不为空!"
end if
set mr=nothing
'关闭记录对象
set cnn=nothing
'关闭连接对象
End Sub
OK,程序到此,已经能成功地访问数据库了,并能打开数据库中的表
Ⅵ access与VB怎么样进行连接
现在VB连接数据库也没那么复杂了。
使用ADODB,就可以连接。
Set
Ac
=
New
ADODB.Connection
Set
Rs
=
New
ADODB.Recordset
Ac.Open
"driver={Microsoft
Access
Driver
(*.mdb)};dbq="
&
App.Path
&
"\DB1.mdb"
这就连接了，像ASP一样使用adodb.recordset来控制数据。
rs.open
"select
*
from
admin",ac,1,1
while
not
rs.eof
...
rs.movenext
wend
rs.close
也可以使用ADODC和DATAGRID控件绑定，来显示数据.
dbConnectStr
=
"Driver={Microsoft
Access
Driver
(*.mdb)};Dbq=ok.mdb;DefaultDir="
&
App.Path
&
"\"
&
";"
dbStr
=
"SELECT
*
FROM
admin"
Adodc.ConnectionString
=
dbConnectStr
Adodc.RecordSource
=
dbStr
Adodc.Refresh
Set
gridData.DataSource
=
Adodc.Recordset
gridData.ClearFields
gridData.ReBind
Ⅶ VB如何连接Access数据库
如下代码参考一下，不知能有帮助否。
PrivateSubCommand1_Click()
DimMyconAsADODB.Connection'定义一个连接对象，用这个对象来和数据库建立通讯联系。
DimMyrtAsADODB.Recordset'定义一个记录集对象，将来从数据库取得一条一条的记录后，放入这个对象里面。
DimMystrAsString'定义一个字符串变量，用来存放和数据库连接时一些必要的参数。
SetMycon=NewADODB.Connection'建立一个新的连接对象。
SetMyrt=NewADODB.Recordset'建立一个新的记录集对象。
Myrt.CursorLocation=adUseClient'定义记录集的游标类型，你要是才接触这方面的内容的话，这里没没必要做深入研究，知道记录集有2种游标类型，一种是服务器端游标，一种是客户端游标，这里采用的是客户端游标，2种类型各有特点，就你这如果要连接一个用户密码表的话，设客户端游标就可以了。
Mystr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=d:\db1.mdb"'设置用来和数据库进行连接的一些必要参数，Access数据库采用Microsoft.Jet.OLEDB.4.0驱动，如果是其它类型的数据库的话这句就不一样了，如果你要调试这段代码的话，把d:\db1.mdb这个改一下。
Mycon.OpenMystr'用定义好的连接对象以前面设置的参数打开数据库，后面对数据库的操作就操作这个连接对象就行了。
Myrt.Open"select*from表名",Mycon,3,1'记录集对象执行打开操作，从数据库中的一个表中取得记录，在这里Mycon就代表数据库了。"select*from表名"这句意思是从一个表中取得所有记录。你具体试验时把表名修改一下。
'在这里就从数据库的一个表中取得有用的数据了，你可以通过对Myrt记录集的操作取得自己需要的数据。比如如果是一个用户密码表的话，如果这个表有2个字段，一个用户名字段，一个密码字段。那么用Myrt("用户名")就能取得当前记录这个字段的数据。如果这个表有10条记录的话，可以用Myrt.movenext来移动记录集指针。
'如果你界面上放置一个DataGrid控件的话，用下面这句就能看到Myrt记录集对象从数据库中取得的内容了。
SetDataGrid1.DataSource=Myrt
EndSub
你问题补充里的代码没有连接数据库的代码，这个按钮是验证身份登录的代码，在这之前就应该和数据库连接了，因为连接数据库的代码必定会有数据库的路径、名称等信息。如：D:\db1.mdb。
Ⅷ 如何用VB语言去连接Access数据库啊我的程序就是连不上啊各位请指教！
这不是一两句的事儿，如果你真的想要做出自己的连接数据库的程序的话，
要静下心来多看看书，多实践一下，不是很难，但要一点点儿积累。
在
VB
6.0
中要实现与数据库的连接大概有三条途径：
1、通过DATA控件
2、通过ADODB控件
3、采用ADO对象，用代码的方式，编程访问
三种方式的功能逐渐增强，
但须要了解的知识也越来越多。
Ⅸ VB如何连接access数据库
'ADO控件，验证登录用户名和密码
Private Sub Command1_Click()
Dim sql
sql = "SELECT * FROM [users] WHERE 用户名='" & Text1.Text & "' and 密码='" & Text2.Text & "'"
With Adodc1
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;"
.CommandType = adCmdText
.RecordSource = sql
.Refresh
If .Recordset.RecordCount <> 0 Then
MsgBox "登录成功"
Else
MsgBox "登录失败"
End If
End With
End Sub
'利用ADOX创建数据库
Private Sub Command2_Click()
'ADOX
'=====
'引用：Microsoft ADO Ext. 2.8 for DDL and Security
'C:\Program Files\Common Files\System\ado\msadox.dll
Dim catNewDB As ADOX.Catalog
Set catNewDB = New ADOX.Catalog
Dim strDBPath As String
strDBPath = "c:\1.mdb"
Dim strConn As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath
catNewDB.Create strConn
catNewDB.ActiveConnection = strConn
Dim tbl As ADOX.Table
Set tbl = New ADOX.Table
With tbl
.Name = "users"
Set .ParentCatalog = catNewDB
' Create fields and append them to the
' Columns collection of the new Table object.
With .Columns
.Append "编号", adInteger
' Make the ContactId field auto-incrementing.
.Item("编号").Properties("AutoIncrement") = True
.Append "用户名", adVarWChar
.Append "密码", adVarWChar
End With
End With
catNewDB.Tables.Append tbl
Set catNewDB = Nothing
End Sub
Ⅹ VB连接ACCESS数据库
(1)建立Access数据库
(2)引用Ado Data控件和数据感知控件DataGrid
(3)分别设置Ado Data控件的ConnectionString、Command-
Type、RecordSource三个重要的属性以及DataGrid控件的Data-
Source属性
在设置Ado Data控件的ConnectionString属性的最后,将
出现“测试连接”的按扭,通过单击此按扭可以清楚的了解到数
据库连接成功与否,非常简单方便。具体程序的编写格式为:
数据库画面名称.Adodc1.Recordset.AddNew
数据库画面名称.Adodc1.Recordset.Fields("日期")=Date
数据库画面名称.Adodc1.Recordset.Fields("时间")=Forma
(Now,"h:mm:ss")
数据库画面名称.Adodc1.Recordset.Fields("参数名称")=接
收到的参量数据
数据库画面名称.Adodc1.Recordset.Update
数据库的设计需要特别注意的是:
1.在Access数据库定义的各个参数的名称、类型、出现的
顺序以及格式都必须与代码中的“参数名称“完全一致。
2.设置Ado Data控件的ConnectionString属性的时候,必须
选择正确的数据库所在路径。
----引自《基于VB的燃料电池发动机监控系统设计》
这样吧，我这里有个视频是专门讲数据库的，看完后你就会了！
http://video.sina.com.cn/v/b/29731712-1676700661.html