VB 如何往 ACCESS数据库理添加数据

一,准备工作：

1，建立新工程，保存到文件夹。

2，把ACCESS数据库文件复制到上述文件夹。

3，在窗体上，添加一个ADODC控件和一个按钮。

4，在按钮的单击事件里编写程序。

程序代码如下：

'连接数据库的三步曲：

Adodc1.ConnectionString

=

"Provider=Microsoft.Jet.OLEDB.4.0Data

Source="

&

App.Path

&

"\数据库.mdbPersist

Security

Info=False"

Adodc1.RecordSource

=

"数据表名"

Adodc1.Refresh

‘添加记录

Adodc1.Recordset.AddNew

'添加新的空纪录

Adodc1.Recordset("姓名").Value

=

Text1.Text

Adodc1.Recordset.Update

’更新到数据表

1、首先在部件-控件里找到MicrosoftADODataControl6.0，打勾，然后在窗体上添加Adodc1。

2.添加两个文本输入框text1,text2，分别用来接收用户输入用户名和密码。

3、在Adodc1控件的属性窗口中单击Connectionstring右侧的…按钮，打开ADO的属性页，选择“使用连接字符串”，单击“生成”按钮，打开数据链接属性对话框，在“提供程序”页中选择MicrosoftJet4.0OLEDBProvider，单击“下一步”，在“连接”页中，输入数据库名称XXXX.mdb（前提是将数据库文件和工程文件保存在同一目录下），单击“测试连接”，如果连接成功，单击“确定”即可。

4、将以下代码添加到登录按钮：

PrivateSubCommand1_Click()

Adodc1.RecordSource="select*from数据表名称whereusername='"&Text1.Text&"'"

Adodc1.Refresh

IfAdodc1.Recordset.EOFThen

MsgBox"没有这个用户，请重新输入正确的用户名",,"错误提示"

Else

IfText2.Text=Adodc1.Recordset.Fields("password")Then

MsgBox"登录成功！",,"错误提示"

Else

MsgBox"你的密码错误,请输入正确的用户密码！",,"错误提示"

EndIf

EndIf

EndSub

1、Microsoft Access窗口中，选择文件菜单中的打开选项，打开一个已有的数据库。

2、数据库中有两张表格，如下图所示。

3、数据库中，表格学生信息是课程成绩的子表。

4、如果直接在子表中插入记录，会提示不能添加或修改。

5、其实，只需在主表中，插入相关的主键和记录。

6、接着，就可以在子表中插入相关记录了。

7、如果要在子表中插入字段，只需选择单击以添加选项。

8、新增字段后，输入字段名即可。

---