vb链接mysql登录界面_vb2008 做登陆界面 用sql和数据库连接 急！

vb2008 做登陆界面 用sql和数据库连接 急！

关注:72  答案:3  mip版

解决时间 2021-01-18 03:39

提问者妳有我霸氣嗎

2021-01-17 19:30

我是个新手，都不太懂。现在要做一个vb的登陆界面，用户名和密码的，然后和数据库连接检验。但是用的是visual studio 2008，好像用的都是vb.net和vb6.0不一样，同样的程序会有问题。

下面是Button1的代码

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim mrc As New ADODB.Recordset

Dim txtSQL As String

Dim MsgText As String

If Trim(text1.Text & " ") <> "" Then

txtSQL = "select * from users where id='" & Trim(text1.Text & " ") & "'"

mrc = ExecuteSQL(txtSQL, MsgText)

If mrc.EOF = True Then

MsgBox("没有这个用户，再重新输入！", vbOKOnly + vbExclamation, "登录")

Else '登陆成功

If Trim(text2.Text & " ") = Trim(mrc!code) Then

text1.Text = Trim(text1.Text)

Else

MsgBox("密码错误，再试一次！", vbOKOnly + vbExclamation, "登录")

text2.Text = ""

End If

End If

Else

MsgBox("没有这个用户，再重新输入！", vbOKOnly + vbExclamation, "登录")

text1.Text = ""

End If

Exit Sub

然后就有两个错误错误

1.“Recordset”在命名空间“ADODB”中不明确。

2。未声明名称“ExecuteSQL”。

另外说明我连接了sqlserver2005，用的windows验证，添加了一个dataset。

求高手改进程序或者重新编个新的！最好再说明添加什么引用。

根据你的加两句改一句的方法，会出现两个错误：

1.“Recordset”在命名空间“ADODB”中不明确。

2.“connection”在命名空间“ADODB”中不明确。

查了资料发现好像VS2008中不用recordset

能不能用dataadapter，datatable的用法帮我重编一个？

最佳答案

二级知识专家一个狠有粪量的人

2021-01-17 20:18

加二句，改一句，再4一下

dim cn as new adodb.connection

cn.open "...." (连接串自己查一下)

mrc = cn.ExecuteSQL(txtSQL, MsgText)

补充：

没装过2008，只装过2005机子跑不动就3了，没办法帮你测，建议看一下msdn,应该有详细说明。

全部回答

1楼看厌了山川

2021-01-17 23:19

直接写个数据连接字符串来保存就好了，如果你要配置的话，我建议把连接字符串都保存在配置文件里面，然后再建个窗体来更改字符串……

2楼椥揂濃

2021-01-17 21:53

j

我要举报

如果感觉以上信息为低俗/不良/侵权的信息，可以点下面链接进行举报，我们会做出相应处理，感谢你的支持！

点此我要举报以上信息！

推荐资讯

大家都在看