vb 6.0 access2000

来源：百度知道 编辑：UC知道 时间：2024/06/22 10:00:30
VB 6.0 +access2000
登陆界面 text1(name) text2(psw) command1(确定) command2(退出)
数据库位置 F:\图书系统文件\bookmarket.mdb 表:user 字段1 name 2 psw 请写出登陆用的文句..请测试完成再回答谢谢.

如果能再增加 添加,删除,修改密码 等功能再加分....越祥细越来,最好能加中文解释.

我自己写的老是说 from 子语句错误,,,我肯定表名正确,数据库名也正确..不知道为什么了.

这是我用的方法，你的FROM错误是因为表名是user，改个名字就好，下面我就改成了usera

'引用Microsoft ActiveX Data Objects 2.0 Library

Private Sub Command1_Click()
Dim dbm As New Connection
Dim dbmre As New Recordset
Dim stname, stpsw, stname2, stpsw2, dbmm As String

If Len(Text1.Text) = 0 Then stname = "" Else stname = Text1.Text
If Len(Text2.Text) = 0 Then stpsw = "" Else stpsw = Text2.Text

dbmm = "" 'dbmm为“F:\图书系统文件\bookmarket.mdb”的密码
dbm.CursorLocation = adUseClient
dbm.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\图书系统文件\bookmarket.mdb;Persist Security Info=False;Jet OLEDB:Database Password=" + dbmm
dbmre.Open "select * from usera where name = '" + stname + "'", dbm, adOpenStatic, adLockOptimistic

If dbmre.RecordCount = 0 Then
MsgBox "No1"
'这