Question

vb连接mysql数据库相关问题

首先注明刚学VB没多久,不要笑我的问题呀.
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

' 定义数据库连接字符串变量
Dim strCn As String
' 初始化数据库连接变量
db_host = "111.11.11.1"
db_user = "1111111"
db_pass = "111111"
db_data = "111"
strCn = "DRIVER={MySQL ODBC 3.51 Driver};" & _
"SERVER=" & db_host & ";" & _
"DATABASE=" & db_data & ";" & _
"UID=" & db_user & ";PWD=" & db_pass & ";" & _
"OPTION=3;stmt=SET NAMES GB2312"
' 连接数据库
cn.Open strCn
' 设置该属性, 使 recordcount 和 absolutepage 属性可用
cn.CursorLocation = adUseClient

SQL = "select * from uc_members where username='" & Text1.Text & "' and password='" & Text2.Text & "'"
rs.Open SQL, cn, 1, 1
If Text1 = "" Or Text2 = "" Then
MsgBox ("请将信息输入完整！"), vbOKOnly + vbExclamation + vbDefaultButton1, "警告信息"
Text1 = ""
Text2 = ""
Text1.SetFocus
Exit Sub
End If

On Error Resume Next
If rs("userid") <> Text2 Then
MsgBox "帐号或密码有误，请重新输入！", 48, "提示信息"
Text1 = ""
Text2 = ""
Text1.SetFocus
Else
MsgBox "欢迎您回来管理员！", 48, "提示信息"
Form1.Show
Unload Me
End If

End Sub
连接成功但是用网站的会员账号登陆不上,总出这一句:MsgBox "帐号或密码有误，请重新输入！", 48, "提示信息"
第二个,如何读取会员积分信息然后自动在指定的盘里文件夹里生成一个指定名的TXT文件,TXT的文件格式为一行一个会员名,一个积分(数字)
第三个问题是,数据库会员的积分变动,软件会自动删除.以生成TXT文件里的相同的会员数据,重新加一个.
希望高手有空的帮一下忙,详解有注释最好,100分只给有心人.
换成if rs.eof then也登陆不成功,在网站上用同样的用户名可以登陆

Answer 1

If rs("userid") <> Text2 Then这个条件错了啊
text2你这应该是密码框铅圆吧，怎么使用rs("userid")来相等呢！同时，你上面使用的是
SQL = "select * from uc_members where username='" & Text1.Text & "' and password='" & Text2.Text & "'"
如果用户名和密码都存在一条记录中，那么这个用户就代表存在了，所以你可以使用下面的条蚂销件
if rs.eof then意闷激游思就是说如果找不到符合用户名和密码的用户则认为密码错误，反之则登录成功！