VB.NET连接数据库,完成登录
2012-05-30 21:58
387 查看
首先,我使用的是 The sql server .net data provider
开始是data source直接写的服务器的名称,可是调试时出现下面问题:在与 SQL Server 建立连接时出现与网络相关的或特定于实例的错误。未找到或无法访问服务器。请验证实例名称是否正确并且 SQL Server 已配置为允许远程连接。 (provider: , error: 40 - 无法打开到 SQL Server 的连接)
后来改成Localhost就好了。。。。不太清楚是什么原因。。。
Fusername='" & TextBox1.Text & "'and Fpassword='" & TextBox2.Text & "'这里的TextBox2.Text需要与&有空格才行。。。
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需要与&有空格才行。。。
相关文章推荐
- 解析VB.NET如何连接数据库
- VB.net 程序需连接Oralce数据库查询 日志提示“数据类型不被支持”
- 重构版机房收费系统之分层、接口、数据库连接、反射+工厂(vb.net)
- VB.NET & DataGridView与数据库的连接
- 重构版机房收费系统之分层、接口、数据库连接、反射+工厂(vb.net)
- [VB.NET]vb.net如何连接odb数据库(OpenOffice里的那个数据库)
- vb.net中的数据库连接
- asp.net入门---数据库连接和登录用户
- vb.net数据库连接的问题
- vb.net 连接数据库及rs.MoveFirst() rs.MoveNext() rs.MoveLast() 用法
- [VB.NET]连接数据库(一)
- vb 利用ADO.Net实现数据库的连接,修改,删除,插入操作
- vb.net-连接数据库实例
- vb.net连接数据库 Access
- asp.net(vb.net)连接sql server 2000数据库的连接模块(module)
- [VB.NET]连接数据库(二)
- 分别介绍以下数据提供者连接各种数据库的方法 (vb.net)
- vb.net与数据库连接
- VB.NET连接数据库方法大全