VB.NET连接数据库,完成登录
2012-05-30 21:58 beileierhao 阅读(910) 评论(0) 编辑 收藏 举报首先,我使用的是 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需要与&有空格才行。。。