VB.NET连接数据库,完成登录 - beileierhao
VB.NET连接数据库,完成登录
2012-05-30 21:58 beileierhao 阅读(716) 评论(0) 编辑收藏举报首先,我使用的是 The sql server .net data provider
Dim strConnect As String = "data source=Localhost;initial catalog=sde;user 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需要与&有空格才行。。。