VB中，属性的使用无效
PrivateSubForm_Load()Setdb=OpenDatabase(App.Path+"/数据库/记录.mdb")Setrs=db.OpenRecordset...
Private Sub Form_Load()
Set db = OpenDatabase(App.Path + "/数据库/记录.mdb")
Set rs = db.OpenRecordset("车辆信息")
If rs.EOF Then
MsgBox "数据库中没有信息"
Else
rs.MoveFirst
Text1 = rs.Fields("机型")
End If
End Sub
以上程序运行提示Text1 = rs.Fields("机型")这句的“属性的使用无效” 展开
Set db = OpenDatabase(App.Path + "/数据库/记录.mdb")
Set rs = db.OpenRecordset("车辆信息")
If rs.EOF Then
MsgBox "数据库中没有信息"
Else
rs.MoveFirst
Text1 = rs.Fields("机型")
End If
End Sub
以上程序运行提示Text1 = rs.Fields("机型")这句的“属性的使用无效” 展开
展开全部
Text1,text = rs.Fields("机型")
追问
如果加上TEXT，又显示“未找到方法或数据库成员”
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
