VB.NET连接sql server数据库
来源:互联网 发布:nginx 多tomcat配置 编辑:程序博客网 时间:2024/06/04 19:30
之前没有学过vb语言,这两天接手了一个vb的项目,最开始做的当然就是连接数据库了,可是我在网上找各种资料就是找不到一个能解决我问题的连办法,连接数据库的基本原理都知道。用给的几个接口,写几条语句就完了。可是找到的资料真是五花八门,为了不让你们重复我的遭遇,也为了让我自己记住这个连接方法。我就在CSDn上发了,
Private Sub btnLogin_Click(sender As Object, e As EventArgs) Handles btnLogin.Click
If txtID.Text = "" Then
MsgBox("ログインID は空に")
txtID.Text = ""
Me.txtID.Focus()
Exit Sub
End If
If Me.txtPassword.Text = "" Then
MsgBox("パスワード は空に")
txtPassword.Text = ""
Me.txtID.Focus()
Exit Sub
End If
If checkLoginAuth(txtID.Text, txtPassword.Text) = True Then
MsgBox("登陆成功")
frmC02ReportMenu.Show()
Me.Hide()
Else
MsgBox("ログインIやパスワードエラー")
txtID.Text = ""
txtPassword.Text = ""
Exit Sub
End If
' If txtID.Text = "1" Then
'frmC02ReportMenu.Show()
' Me.Hide()
' ElseIf txtID.Text = "2" Then
' frmC03CustomerList.Show()
' Me.Hide()
' End If
'frm01_CustomerList.Show()
End Sub
checkLoginAuth(txtID.Text, txtPassword.Text) = True这条语句是调用的开始,其他的语句都是一些判空,合法性之类的
而这个函数放在一个Model块里
Imports System.Data.SqlClient
Module DB
Public Const C_SQLServerConnectString = "Data Source=192.168.2.104; database=EASY; User Id=kohaisou1; Password=kohaisou1;"
Public Function checkLoginAuth(ByVal argStaffCode As String, ByVal argPassword As String) As Boolean
checkLoginAuth = False
Dim m_DBConnection As New SqlClient.SqlConnection(C_SQLServerConnectString)
Try
m_DBConnection.Open()
Dim m_sqlCommand As SqlClient.SqlCommand = m_DBConnection.CreateCommand()
m_sqlCommand.CommandText = "SELECT * FROM use_login WHERE use_id = " & argStaffCode & " AND password = '" & argPassword & "'"
Dim m_sqlDataReader As SqlClient.SqlDataReader = m_sqlCommand.ExecuteReader()
m_sqlCommand.Dispose()
checkLoginAuth = m_sqlDataReader.HasRows
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.OkOnly, "Function checkLoginAuth")
Finally
m_DBConnection.Close()
End Try
End Function
End Module
=============
Imports System.Data.SqlClient
这是引进连接数据库的接口语句
Public Const C_SQLServerConnectString = "Data Source=192.168.###.###; database=EASY; User Id=use; Password=password;"
这个是最重要的连接语句,
Source是数据库所在的主机IP,database是数据库的名称,user与password分别是数据库的用户和密码。执行完这句话,则真正的连接上了数据库
下面是开始调用的语句
Dim m_DBConnection As New SqlClient.SqlConnection(C_SQLServerConnectString)
Dim是VB的类型定义, m_DBConnection为一种内置接口的类型
m_DBConnection.Open()
这句是打开数据库
Dim m_sqlCommand As SqlClient.SqlCommand = m_DBConnection.CreateCommand()
这句是定义标准的sql语句的类型
m_sqlCommand.CommandText = "SELECT * FROM use_login WHERE use_id = " & argStaffCode & " AND password = '" & argPassword & "'"
这一句则是定义真正即将执行的sql语句、
Dim m_sqlDataReader As SqlClient.SqlDataReader = m_sqlCommand.ExecuteReader()
m_sqlDataReader是得到的结果类型,
m_sqlCommand.Dispose()
这一句真正的上数据库执行了
m_DBConnection.Close()
这是关闭数据库
- vb.net连接sql server数据库
- VB.NET连接sql server数据库
- VB.NET连接局域网SQL Server 2000数据库字符串
- VB.NET连接SQL Server 2000数据库字符串
- VB.NET连接SQL server数据库解决方案(转载+亲自实践)
- vb.net 连接SQL数据库
- asp.net(vb.net)连接sql server 2000数据库的连接模块(module)
- asp.net(vb.net)连接sql server 2000数据库的连接模块
- 初学VB.NET连接SQL数据库!
- [VB.NET]OLEDB.4.0连接ACCESS,怎么改成SQL SERVER数据库?
- asp.net(vb.net)连接sql server 2000数据库的连接模块(module) 选择自 sammycheng 的 Blog
- VB 连接 SQL SERVER
- vb连接SQL SERVER
- VB.NET / SQL Server
- vb.net通过ADO.NET与sql server数据库交互
- VB.NET 连接数据库
- ASP.NET连接SQL Server数据库
- asp.net连接sql server数据库
- 一个带按钮的自定义Android通知栏DEMO
- 2012,再回首。出错了
- 黑马程序员——Java面试题银行调度系统
- C 将一个数字字符串转换成该字符串对应的数字(包括正整数、负整数)
- ArcSight upload poc
- VB.NET连接sql server数据库
- ZOJ 1610
- 最短路(hdu2544)Dijkstra算法二
- 盐水的故事(hdu1408)
- Linux 文件权限详解 含义和修改和安全
- Dijkstra和Prim算法的区别
- C 将一个数字字符串转换成这个字符串对应的数字(包括正浮点数、负浮点数)
- Hashmat the brave warrior(UVa10055)简单题
- MapReduce:详解Shuffle过程