vb实时错误'91'就是在text文本框里输入信息 然后输入到数据库里去。不知道怎么会事老是会有这个错误！其他窗体也是用得这个代码就不会出错！

Question

Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "请不要输入空值"
ElseIf Text2.Text = "" Then
MsgBox "请不要输入空值"
ElseIf Text3.Text = "" Then
MsgBox "请不要输入空值"
ElseIf Text4.Text = "" Then
MsgBox "请不要输入空值"
ElseIf Text5.Text = "" Then
MsgBox "请不要输入空值"
Else
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("工号") = Text1.Text
Adodc1.Recordset.Fields("姓名") = Text1.Text
Adodc1.Recordset.Fields("迟到") = Text1.Text
Adodc1.Recordset.Fields("早退") = Text1.Text
Adodc1.Recordset.Fields("加班") = Text1.Text
Adodc1.Recordset.Update
End If
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
End Sub

Answer 1

字段类型是什么？你都填的ｔｅｘｔ１．ｔｅｘｔ
  
*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码) http://feiyun0112.cnblogs.com/

Answer 2

哦 不好意思发错了这个才是Private Sub Command1_Click() 
If Text1.Text = "" Then 
MsgBox "请不要输入空值" 
ElseIf Text2.Text = "" Then 
MsgBox "请不要输入空值" 
ElseIf Text3.Text = "" Then 
MsgBox "请不要输入空值" 
ElseIf Text4.Text = "" Then 
MsgBox "请不要输入空值" 
ElseIf Text5.Text = "" Then 
MsgBox "请不要输入空值" 
Else 
Adodc1.Recordset.AddNew 
Adodc1.Recordset.Fields("工号") = Text1.Text 
Adodc1.Recordset.Fields("姓名") = Text2.Text 
Adodc1.Recordset.Fields("迟到") = Text5.Text 
Adodc1.Recordset.Fields("早退") = Text4.Text 
Adodc1.Recordset.Fields("加班") = Text3.Text 
Adodc1.Recordset.Update 
End If 
Text1.Text = "" 
Text2.Text = "" 
Text3.Text = "" 
Text4.Text = "" 
Text5.Text = "" 
End Sub

Answer 3

你在这个窗体中是否有Adodc控件与数据库和数据源的设置吗?
少了这些当然会报错.

Answer 4

不行 我把adodc控件放上去了 可还是不行！ 还是实时错误’91‘ 对象变量或with块变量未设置！

Answer 5

把text的datasource和ado绑定应该就可以了吧

Answer 6

我别的 窗体就是一个adodc控件加这些代码
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("书名") = Text1.Text
Adodc1.Recordset.Fields("编号") = Text2.Text
Adodc1.Recordset.Fields("购买日期") = Text3.Text
Adodc1.Recordset.Fields("定价") = Text4.Text
Adodc1.Recordset.Fields("类型") = Text5.Text
Adodc1.Recordset.Update
与这类似的代码就可以了直接写入数据库了
然后adodc控件 也是连到数据库的表中 点测试连接成功也显示了
可是  这个窗体也是这样做的却有这摸个错误？！

Answer 7

具体做法：
新建工程时选数据工程，此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件。
然后在FORM1窗体中添加ADODC控件和DATAGRID控件，将DATAGRID1的属性DATASOURCE选ADODC1，打开ADODC1控件属性页使
用连接字符串，选生成，在提供者选项中选MICROSOFT jet 4.0 OLE DB Provider,然后按要求连接数据库等。在ADODC1控
件属性页使用连接字符串空白文本窗口中就有一长串字符串，注意该字符串可复制到程序代码用于编程。ADODC1控件属性页的数据源内有命令文本（SQL）编写窗口可编写SQL查询语言。该窗口的SQL语句可复制到程序代码用于编程。
SQL查询语言主要结构为：
Select 查询字段 from 表名 Where 查询条件语句 [排序语句或分组语句]
查询字段必须分别用（西文）逗号分开或就用一个*号代替.
SQL查询语言如有错程序运行时告诉你出错，作相应改动即可。本人一般先按上述连接，SQL用"SELECT * FROM TabelName"作调试，无问题，用一个按钮控件将前述需复制的连接字符串和SQL查询语言先复制于按钮控件的CLICK事件中备着，以便放着以后使用。然后删去ADODC1控件，再添加ADODC1控件再添其他内容。
需有以下类似代码连接数据库及表:Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\IASK.mdb;Persist Security Info=False"
Adodc1.RecordSource = "Select * from iask"
Adodc1.Refresh

Answer 8

ok可以了 谢谢大虾的帮助 真的是没绑定啊 ！ 可是小弟不明白 这是为什么啊 怎么我只绑定了一个txt文本框就可以了呢？
还有为什么 其他窗体没绑定却正常运行呢？？？？？ 

Answer 9

zdingyun 您说的我都知道 我都已经做了 现在好了 我就是不明白为什么问题出在 txt文本框绑定上？？？？！！！ 而且我只绑定了一个 怎么马上都能用了 请大虾们赐教！

Answer 10

 zhou_zion  您说的这个文本绑定到底是怎么会是怎么 我其他窗体没有做绑定照样输入数据库而这个窗体就不行了呢
这个窗体是用了 一个 sstab1控件 一个frame1控件 五个文本框然后两个命令按钮 还有一个adodc控件都已经设置好了 sstab控件只做了两个选项卡
这是第一个选项卡上的内容 是一个员工考勤窗体 
第二个选项卡上的内容是
两个Frame 一个txt 一个label 一个datagrid 两个命令按钮
是一个查询窗体 

Answer 11

看一下别的DataSource属性是不是设置了，估计设置了，不过你自己没注意。
还有你的数据库连接放到什么地方了？都说习惯很重要，呵呵

Answer 12

我在11楼处的答复是基于代码连接数据库库和数据表,其中提到:
前述需复制的连接字符串和SQL查询语言先复制于按钮控件的CLICK事件中备着，以便放着以后使用。然后删去ADODC1控件，
再添加ADODC1控件再添其他内容。
实际是 ADODC1控件以缺省设置存在,完全由代码控制.
你只要正确连接好数据库和表,你的代码完全无问题,它与绑定了一个txt文本框无关.

Answer 13

这个问题我到现在都没弄明白 但是就是绑定一个text框就行了 呵呵 奇怪 难道说adodc控件只有随便绑定一个空间的时候才能起作用吗？？？？？？？ 奇怪真奇怪

Answer 14

把Adodc1.Recordset.Fields("工号") 该为Adodc1.Recordset.Fields("工号").Value   ，后面的几个同样。