Question

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

我是个新手，都不太懂。现在要做一个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的用法帮我重编一个？

Answer 1

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

dim cn as new adodb.connection
cn.open "...." (连接串自己查一下)
mrc = cn.ExecuteSQL(txtSQL, MsgText)

补充：

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

Answer 2

wobud

Answer 3

j