VB中如何在一个窗口建立写入.mbd文件，又如何从.mbd文件中相对于的文件提取出来？谢谢。

Question

例如：有command1 command2 text1 需要写入的变量了“G”，“1”，“123”，“YYR”，

Answer 1

首先，在"工程" -- "引用" 中,找到"Microsoft ActiveX Data Object 2.5 Library"勾选后点确定；
在窗体保存路径下创建ACCESS数据库，数据库名1.mdb,数据库表名a,表a有1、2、3列
Private Sub Command1_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\1.mdb "
rs.Open "select * from a ", conn, 2, 2
'以下是在列1写入text1输入的内容，在列2写入text2输入的内容
conn.Execute "insert into a (1) values ('" & Text1.Text & "')"'
MsgBox "内容已添加！", vbOKOnly, "提示!"
end sub

Private Sub Command2_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\1.mdb "
rs.Open "select * from a ", conn, 2, 2
'以下是在列1写入text1输入的内容，在列2写入text2输入的内容
conn.Execute "insert into a (1,2) values ('" & Text1.Text & "','" & Text2.Text & "')"'
MsgBox "内容已添加！", vbOKOnly, "提示!"
end sub追问

不好意思 啊，

为什么会出现这情况？

追答

你在E盘My Test里的VB TEST文件夹下面建一个数据库名称为1.mdb

如下图

打开1.mdb文件，新建一个表a，如下图

表a里面输入下图的信息

弄完后保存关闭文件，再次运行工程



追问

你好，还是不行，再次麻烦你，教我做一个简单的，就是数据写入，然后再读取出来！谢谢。

追答

给你传一个，