'建立ACCESS数据库11.mdb,建立表itb1,字段a(文本)、b(数字)、c(数字)Private Sub Command1_Click() Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\11.mdb;Persist Security Info=False" Adodc1.RecordSource = "select * from itb1" Adodc1.Refresh Set DataGrid1.DataSource = Adodc1
Dim a(1 To 3), b(1 To 3) b(1) = "输入姓名": b(2) = "输入语文成绩": b(3) = "输入数学成绩" For i = 1 To 3 a(i) = InputBox(b(i)) Next Adodc1.Recordset.AddNew Adodc1.Recordset!a = a(1) Adodc1.Recordset!b = a(2) Adodc1.Recordset!c = a(3) Adodc1.Recordset.UpdateEnd Sub
'建立ACCESS数据库11.mdb,建立表itb1,字段a(文本)、b(数字)、c(数字)Private Sub Command1_Click()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\11.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from itb1"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
Dim a(1 To 3), b(1 To 3)
b(1) = "输入姓名": b(2) = "输入语文成绩": b(3) = "输入数学成绩"
For i = 1 To 3
a(i) = InputBox(b(i))
Next
Adodc1.Recordset.AddNew
Adodc1.Recordset!a = a(1)
Adodc1.Recordset!b = a(2)
Adodc1.Recordset!c = a(3)
Adodc1.Recordset.UpdateEnd Sub
建议楼主先使用vb自带的数据窗体向导 ,ADO、DAO、 类 这三个都做一遍,仔细研究一下代码,相信楼主能得到很大的帮助。
看这个资源应该有点帮助