Question

vb怎样实现在窗体向access中按行添加数据

窗体项:text1显示"李明",text2显示"210分",command1名称"添加".
数据库:d:\数据1.mdb
实现功能:单击"添加",则将"李明"和"210"做为第一行输入到指定的access的"表1"中,"李明"占第一列,"210分"占第二列,然后access自动换行,并清空窗体各输入项.
请问程序应该怎么编写?
提供个参考程序格式:
Private Sub Command1_Click()
Open "d:\数据1.txt" For Append As #1
xingming = Val(Text1.Text)
fenshu = Val(Text2.Text)
Print #1, xingming,fenshu
Text1.Text = ""
Text2.Text = ""
End Sub
这是往txt文件中输入的,比较简单.
如果换成往access文件中按行按列输入,应该怎么修改呢?

Answer 1

楼主的这个程序是写入记事本的..如果想将数据写入到ACCESS数据库..
首先要引用数据库连接驱动
在"工程"--"引用",勾选"microsoft activex date objects 2.8 library"
然后在窗口代码框中加入如下代码:

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql$
Function openconn()
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path & "\数据1.mdb" '此处为数据库相对路径
End Function
Function closeconn()
conn.Close
End Function
Private Sub Command1_Click()
Call openconn
rs.Open "select * from [表1]", conn, 1, 3
rs.AddNew
rs("姓名") = text1.Text
rs("分数") = text2.Text
rs.Update
rs.Close
Call closeconn
MsgBox "添加数据成功!"
End Sub

Answer 2

用ADD 命令啊