中科新闻网马门溪龙简笔画的图片:求救～VB sql 代码错误 问题？
来源：百度文库 编辑：中科新闻网 时间：2024/05/02 15:17:21
我用vb往sql添加记录，vb出错提示：
实时错误‘91’
对象变量或with块变量未设置
command1代码：
private Sub Command1_Click()
Dim txtSQL As String
Dim mrc As ADODb.Recordset
Dim MsgText As String
mrc.AddNew
with mrc
mrc.Fields(2) = Trim(Text1.Text)
mrc.Fields(3) = Trim(Text3.Text)
mrc.Fields(4) = Trim(Text5.Text)
mrc.Fields(5) = Trim(Text2.Text)
mrc.Fields(6) = Trim(Text4.Text)
mrc.Fields(7) = Trim(Text6.Text)
end with
mrc.Update
mrc.Close
Unload Me
End Sub
如果错了，怎么修改，才能往sql里面添加记录?
实时错误‘91’
对象变量或with块变量未设置
command1代码：
private Sub Command1_Click()
Dim txtSQL As String
Dim mrc As ADODb.Recordset
Dim MsgText As String
mrc.AddNew
with mrc
mrc.Fields(2) = Trim(Text1.Text)
mrc.Fields(3) = Trim(Text3.Text)
mrc.Fields(4) = Trim(Text5.Text)
mrc.Fields(5) = Trim(Text2.Text)
mrc.Fields(6) = Trim(Text4.Text)
mrc.Fields(7) = Trim(Text6.Text)
end with
mrc.Update
mrc.Close
Unload Me
End Sub
如果错了，怎么修改，才能往sql里面添加记录?
mrc 根本没有打开 还有就是没有建立数据库连接
首先建立数据库连接
mrc.open sql语句，数据库连接，1，3
你都with mrc 了.就直接.Fields 就行了