VIP会员
购物车
私信
发表新帖
立即签到
关注
回复
支持(
反对(
首页上一页 1 下一页尾页 1 条记录 1/1页
编vb组合框和标签框联动的程序
发表在VB答疑区
2013-09-02
是否精华
是
否
版块置顶:
是
否
Private Sub DataCombo1_CHANGE()
rs.Open "select * from BOOK_S WHERE 图书编号='" +DATACOMBO1+"'" cOn,adOpenKeyset,adLockOptimistic
'Adodc1.RecordSource = "select * from BOOK_S WHERE 图书编号 ='" & Trim(Combo1.Text) & "'"
If rs.RecordCount > 0 Then
Text1.Text = rs.Fields("作者")
End If
rs.Close
'Adodc1.Recordset.MoveFirst
'Do While Not rs.EOF
'DataCombo1.AddItem rs.Fields(0) '(Trim(图书编号)
End Sub
其中这一句是rs.Open "select * from BOOK_S WHERE 图书编号='" +DATACOMBO1+"'" cOn,adOpenKeyset,adLockOptimistic其中BOOK_S是数据库。我看没问题来。请指教。
BOOK_S是数据表明。
程序我写了，但当运行到SELECT.WHERE语句出现”缺少结束语“
rs.Open "select * from BOOK_S WHERE 图书编号='" +DATACOMBO1+"'" cOn,adOpenKeyset,adLockOptimistic
'Adodc1.RecordSource = "select * from BOOK_S WHERE 图书编号 ='" & Trim(Combo1.Text) & "'"
If rs.RecordCount > 0 Then
Text1.Text = rs.Fields("作者")
End If
rs.Close
'Adodc1.Recordset.MoveFirst
'Do While Not rs.EOF
'DataCombo1.AddItem rs.Fields(0) '(Trim(图书编号)
End Sub
其中这一句是rs.Open "select * from BOOK_S WHERE 图书编号='" +DATACOMBO1+"'" cOn,adOpenKeyset,adLockOptimistic其中BOOK_S是数据库。我看没问题来。请指教。
BOOK_S是数据表明。
程序我写了，但当运行到SELECT.WHERE语句出现”缺少结束语“
分享到：
