虚心求教!!!!!!

jimmychen1981 2003-03-31 07:29:37
我想写一段程序是从MDB数据库中提取user表中的内容,用一个datacombo控件列出用户称供选择,一个TEXTBOX供用户输入密码,大概思路如此,希望高手赐教写出代码,谢谢!!!!
...全文
7 点赞 收藏 1
写回复
1 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
Wang_xiaoni 2003-04-01
Dim rs As New ADODB.Recordset
Dim cnn As String
Dim sql As String

Private Sub Command1_Click()
sql = "select * from login where user='" & Combo1.Text & "' and pwd='" & Text1.Text & "'" '查询用户
rs.Requery
If rs.RecordCount = 0 Then
MsgBox "密码不正确"
Else
'DO.....
End If
End Sub

Private Sub Form_Load()
Dim i
cnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\program\VB98\NWIND.MDB;Persist Security Info=False" 'Data Source换为你的数据库
sql = "select user from login"
rs.Open sql, cnn
While rs.EOF
Combo1.AddItem rs!user '初始化Combo
Wend
End Sub
回复
相关推荐
发帖

1187

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2003-03-31 07:29
社区公告
暂无公告