vb菜鸟求救again!!!!
以下是我的程序的login窗体部分代码:
Dim TIM As Integer
Dim mydb As Database
Dim myrs As Recordset
Dim sql As String
Private Sub Form_Activate()
Set mydb = Workspaces(0).OpenDatabase(App.Path & "\ykzwxt97.mdb") '打开数据库
sql = "select 用户ID from 用户名密码 "
Set myrs = mydb.OpenRecordset(sql)
If myrs.EOF = False Then myrs.MoveLast
If myrs.BOF = False Then myrs.MoveFirst
Dim i As Integer
For i = 0 To myrs.RecordCount - 1
master.AddItem (myrs.Fields(0))
myrs.MoveNext
Next i
If master.ListCount > 0 Then master.ListIndex = 0
myrs.Close
mydb.Close
master.SetFocus
End Sub
“ykzwxt97.mdb”和“用户名密码”分别是我的数据库和其中的一个表。这个程序代码前几天一直好好的,现在却总是出现错误提示。上面的程序运行到Set myrs = mydb.OpenRecordset(sql)就会提示“类型不匹配”,那我想了个办法,把Dim myrs As Recordset去掉,又有提示“找不到工程或库”。奇怪的是,我建立一个新的窗体,和原来的一样,并把上面的代码拷过去,新的窗体就没有问题了?我快吐血了??这到底是why?哪位大哥救救命呀!(我是个vb新手,编程也是业余爱好)