about database
lvpm 2000-08-31 09:09:00 Private Sub Form_Load()
Dim i As Integer
CommonDialog1.ShowOpen
Set db = OpenDatabase(CommonDialog1.FileName)
Set rs = db.OpenRecordset("tablecountry")
Call refreshrecord
For i = 0 To db.TableDefs("tablecountry").Indexes.Count - 1
Comboindex.AddItem db.TableDefs("tablecountry").Indexes(i).Name
Next
With Combooper
.AddItem "="
.AddItem "<"
.AddItem ">"
.AddItem "<="
.AddItem ">="
End With
End Sub
Private Function refreshrecord()
If rs.BOF Then rs.MoveFirst
If rs.EOF Then rs.MoveLast
Text1.Text = rs.Fields("国家").Value & ""
Text2.Text = rs.Fields("首都").Value & ""
Text3.Text = rs.Fields("代码").Value & ""
Text4.Text = rs.Fields("时差").Value & ""
Text5.Text = rs.Fields("所在洲").Value & ""
End Function
QUESTION:
运行时提示错误信息“实时错误‘3265’:这个集合中找不到此项目”错误提示在‘所在洲’这一行,希望得到解决的方法。
数据库使用VB自带的外界程序的可视化数据库管理器建立的access verison 7.0mdb创建。以上字段是同时建立的应该没有问题。