VB中向数据库插入一行数据

Dim sql As String

sql = "select from Teacher"

'这句有问题，肯定是修改第一行数据，应该是

sql = "select from Teacher Order BY ID Desc"

Set rs = exesql(sql)

’在这里必须添加下面的语句：

rsAddNew '新增数据

rsFields("管理员姓名") = Trim(Text1Text)

rsFields("工号") = Trim(Text2Text)

rsFields("管理员密码") = Trim(Text19Text)

rsFields("性别") = Trim(Text3Text)

rsFields("****") = Trim(Text4Text)

rsFields("家庭住址") = Trim(Text5Text)

rsUpdate

rsClose

另外，我认为以下语句没有任何意义，不如删除：

rsFields("管理员姓名") = ""

rsFields("工号") = ""

rsFields("管理员密码") = ""

rsFields("性别") = ""

rsFields("****") = ""

rsFields("家庭住址") = ""

只要可以进行输入文本的都可以

改一下这样吧，你单击一次就提示输入一次，输完了自动保存

改后

Data1RecordsetAddNew

Data1RecordsetFields("username") = trim(inputbox("请输入名字"))

Data1Recordset("password") =val(trim(inputbox("请输入电话")))

Data1UpdateRecord

——————————————————————————————

Data1RecordsetAddNew

Data1RecordsetFields("username") = "张三|"

Data1Recordset("password") = "fsdfsd"

Data1UpdateRecord

Data1RecordsetAddNew

Data1RecordsetFields("username") = "李四|"

Data1Recordset("password") = "fsdf432d"

Data1UpdateRecord

Data1RecordsetAddNew

Data1RecordsetFields("username") = "王五|"

Data1Recordset("password") = "f42342d"

Data1UpdateRecord

MsgBox "adad"

以上就是关于VB中向数据库插入一行数据全部的内容，包括:VB中向数据库插入一行数据、vb 表格式数据库记录添加、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！