VB中的数据库问题

来源：百度知道编辑：UC知道时间：2024/05/10 06:40:06

问题补充：Dim num As Integer
Dim Numonline As Integer
Dim a(1 To 8) As String
Private Sub Command2_Click()
Dim Database As String
Database = App.Path + "\1222.mdb"
SubCreateDb (Database)

Dim txtSQL As String
Dim mrc As adodb.Recordset
Dim MsgText As String

txtSQL = "select 用户信息.* from 用户信息"
Set mrc = ExecuteSQL(txtSQL, MsgText)
BeginTrans
For i = 888000 To 888999
mrc.AddNew
mrc.Fields(0) = i
Next
mrc.Update
CommitTrans
mrc.Close
Exit Sub
saveerror:
Rollback
MsgBox Err.Description
Exit Sub
commanderror:
MsgBox Err.Description

End Sub
Private Sub Command3_Click()
Dim Database As String
Database = App.Path + "\2222.mdb"
SubCreateDb1 (Database)

End Sub
求各位大侠指教啊。。这些代码每句都是什么意思啊，，我不太明白

什么问题都没有说清楚

如果你每句都不明白的话，那即使现在一句一句给你翻译过来，以后你也还是不懂，你最好自己去看书，把自己提高

如果你个别的不会，大家可以帮你翻译

VB中的数据库问题 VB中的数据库查询问题 vb中的ACCESS数据库排序问题 VB程序设计中的数据库中问题 vb中的数据库操作怎样处理在vb中的数据库查询问题 vb中读取数据库中的image类型问题？ VB数据库问题 VB与数据库问题 vb数据库的问题