Question

VB2010怎么向ACCESS2007数据库添加数据啊

已经连接上了数据库
Dim ObjConn As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=data\enter\admin.accdb")
Dim ObjCom As New OleDb.OleDbCommand("select * from admin", ObjConn)
Dim ObjDap As New OleDb.OleDbDataAdapter
Dim ObjDar As OleDb.OleDbDataReader
Dim pd As Boolean = False

ObjCom = New OleDb.OleDbCommand("select * from admin", ObjConn)
'与数据库建立连接
ObjConn.Open()
ObjDar = ObjCom.ExecuteReader
接下来怎么写啊，比如向“用户名”字段里添加数据

Answer 1

1.Access，建立数据库，数据库命名为Database1.mdb。

（注意：这里的后缀是MDB,如果Access是2007版本的，保存的时候要另存为2003版本的才行，因为，VB不直接支持07版的accdb后缀格式。）

数据库建立后就进入了数据表界面，可以输入数据了，输完以后CRRL+S保存，输入表名，这里表名为test，ok，准备工作搞定。

3.打开VB,然后新建标准exe。

4.菜单中找到工程→部件→勾选 ，

Microsoft ADO Data  Control  6.0   

Microsoft Hierarchical Flexgrid Control 6.0

勾选后左侧工具栏里就多了两个控件即 ADODC控件和MSHFlexGrid控件。

5.选择 ADODC控件和MSHFlexGrid控件，放在窗体的合适位置，如图：

6.设置ADODC控件的属性：

右键窗体内ADODC1控件

1)ADODC属性页→通用→选择使用连接字符串→点击生成→选择Microsoft Jet 4.0 OLE DB Provider 点击下一步→选择之前准备好的数据库→点击测试连接，显示测试成功则ok，确定。

2)ADODC属性页→记录源→命令类型选择2-adcmdtable，表或存储过程名称选择之前建立的数据表test，点击确定，ADODC属性设置完成。

7.设置MSHFlexGrid控件的属性：

VB右侧属性表里，找到datasource，选择adodc1.

8.测试效果：

1)菜单→运行→启动（F5),发现显示的数据排列不是我们想要的行数和列数

修改方法：

2)MSHFlexGrid属性→通用→设置行和列，固定行和固定列，设置见图。

3)MSHFlexGrid属性→带区→把列标题的√取消掉，设置见图。

9.修改后的测试效果：

Answer 2

用ADO
代码如下
Dim CNN As New ADODB.Connection
Dim Rst As New ADODB.Recordset

CNN.ConnectionString = "provider=microsoft.ace.oledb.12.0;data source=data\enter\admin.accdb")

CNN.Open

Rst.Open "select * from admin", CNN, adOpenKeyset, adLockOptimistic
rst.addnew

rst!name="姓名1"
rst.update

rst.close
cnn.close
set tst=nothing
set cnn=nothing

追问

程序在Rst!name="姓名1" 提示没有可访问的Fields接受此数目的参数，因此重载决策失败，这是为什么

追答

rst!name="姓名1"
修改成
rst.fields("用户名")="姓名1"

你也不把字段名修改一下
我给你的是个例子