您的位置:首页 > 数据库

VB.NET连接数据库,完成登录

2012-05-30 21:58 387 查看
首先,我使用的是 The sql server .net data provider

Dim strConnect As String = "data source=Localhost;initial catalog=sde;user id=sa;password=;"
sqlConnection1 = New System.Data.SqlClient.SqlConnection(strConnect)
sqlConnection1.Open()


开始是data source直接写的服务器的名称,可是调试时出现下面问题:在与 SQL Server 建立连接时出现与网络相关的或特定于实例的错误。未找到或无法访问服务器。请验证实例名称是否正确并且 SQL Server 已配置为允许远程连接。 (provider: , error: 40 - 无法打开到 SQL Server 的连接)
后来改成Localhost就好了。。。。不太清楚是什么原因。。。

Dim sqlcom As New SqlCommand
sqlcom.CommandText = "select * from T_User where Fusername='" & TextBox1.Text & "'and Fpassword='" & TextBox2.Text & "'"
sqlcom.Connection = sqlConnection1
Dim myds As DataSet = New DataSet
Dim myadapter As New SqlDataAdapter
myadapter.SelectCommand = sqlcom
myadapter.Fill(myds, "T_User")
If myds.Tables("T_User").Rows.Count = 0 Then
MsgBox("用户名和密码错误,请重新输入!")
Else
MsgBox("登陆成功!欢迎使用地下管网管理信息系统……")
Me.Hide()
End If
sqlConnection1.Close()


Fusername='" & TextBox1.Text & "'and Fpassword='" & TextBox2.Text & "'这里的TextBox2.Text需要与&有空格才行。。。
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: