提示“对象变量或 With 块变量没有设置（错误 91）”
Private Sub Form_Load()Dim i As Integer
Dim myyear As Integer, mymonth As Integer
Dim myName As String
'myName获值
myName = Trim(主程序.search1.Text)
'连接数据库和表
Data1.DatabaseName = App.Path & "\information.mdb"
Data1.Recordset.FindFirst "姓名 = " & myName
If Data1.Recordset.NoMatch Then
MsgBox "没找到相关资料", vbOKOnly
End If
Me.title1.Caption = 主程序.search1.Text & "的资料"
End Sub
多谢了~
--------------------编程问答-------------------- 你这属于没有执行查询 --------------------编程问答--------------------
什么意思？那如何解决呢？ --------------------编程问答-------------------- 建议实用ADO对象来连接，Access数据库。通过构建Sql语句来查询数据库。http://download.csdn.net/detail/veron_04/3827200 --------------------编程问答-------------------- 以前用过，一直出现错误。。
Private Sub Form_Load()
Dim sql1 As String
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\information.mdb;Persist Security Info=False"
sql1 = "select * form 年份 "
Adodc1.RecordSource = sql1
Adodc1.Refresh
For i = 0 To Adodc1.Recordset.Fields.Count - 1
year1.AddItem Adodc1.Recordset.Fields(i).Name
Next i
year1.Text = year1.List(0)
End Sub
这个就引发了“对象refresh的方法Iadodc失败” --------------------编程问答-------------------- --------------------编程问答-------------------- 唉。。最近的一直解决不了问题。。
补充：VB , 数据库(包含打印，安装，报表)
