运行时,出现出错提示,“实时错误91,对象变量或with或块变量未设置”,如何解决?

王朝other·作者佚名  2006-01-10
窄屏简体版  字體: |||超大  

编写一高考查询系统,运行时出现如标题所示错误,请问各位高手,如何解决?谢谢

Private Sub Form_Load()

ado.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\db1.mdb"

ado.CommandType = adCmdText

ado.RecordSource = "select * from db1"

ado.Refresh ‘运行至此,出现出错提示“Refresh 的方法 'IAdodc ’失败"

End Sub

Private Sub Label2_Click()

ado.Recordset.Close ‘运行至此,出现出错提示,“实时错误91,对象变量或with或块变量未设置”,

ado.Recordset.Open "select * from db1 where 准考证号= ' " + Txt1 + " '"

If ado.Recordset.EOF Then

MsgBox "数据库中没有你想查询的", 16, "错误"

Else

Form2.Txt1.Text = ado.Recordset.Fields("姓名").Value

Form2.Txt2.Text = ado.Recordset.Fields("性别").Value

Form2.Txt3.Text = ado.Recordset.Fields("语文").Value

Form2.Txt4.Text = ado.Recordset.Fields("数学").Value

Form2.Txt5.Text = ado.Recordset.Fields("外语ï").Value

Form2.Txt6.Text = ado.Recordset.Fields("综合Ï").Value

Form2.Txt7.Text = ado.Recordset.Fields("总分").Value

Form2.Txt8.Text = ado.Recordset.Fields("录取学校").Value

Form2.Show

Form2.Caption = RTrim(ado.Recordset.Fields("姓名").Value) & "的成绩"

End If

End Sub

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航