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

当前位置:

首页 > temp > C#教程 >

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

首先，我使用的是 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需要与&有空格才行。。。

出处：https://www.cnblogs.com/beileierhao/archive/2012/05/30/2527009.html

栏目列表