分享几段vb.net操作数据库的代码

冰糖 · 发表于 2012-4-8 15:27:06

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有帐号？立即注册

x

早段时间学vb.net操作数据库的时候照书上的例子一个字母一个字母的敲出来的，还发现了书上的几处错误

注释齐全，欢迎收藏

'数据库连接通用模块，代码来自紫外工控网http://bbs.ziwai.net
Imports System.Data.SqlClient
Imports System.Data.OleDb
Imports System.Data.Odbc
Namespace DBConfig
Public Class DBConnection
'声明一个受保护的变量存储链接数据库的信息
Protected connstr As String
'声明用于数据库连接的保护成员
#If DB_OLEDB Then
Protected conn As OleDbConnection
#ElseIf DB_ODBC Then
Protected conn As OdbcConnection
#Else
Protected conn As SqlConnection
#End If
Protected Sub Open()
'判断连接字符串是否为空
If connstr Is Nothing Or connstr = "" Then
MessageBox.Show("请指定连接字符串！")
Return
End If
'实例化connection类
#If DB_OLEDB Then
conn = New OleDbConnection(connstr)
#ElseIf DB_ODBC Then
conn = New OdbcConnection(connstr)
#Else
conn = New SqlConnection(connstr)
#End If
'打开数据库
conn.Open()
End Sub
Protected Sub Close()
'关闭连接
conn.Close()
End Sub
End Class
End Namespace

复制代码

冰糖 · 发表于 2012-4-8 15:27:59

'数据库语句通用模块,代码来自紫外工控网http://bbs.ziwai.net
Imports System.Data.Odbc
Imports System.Data.OleDb
Imports System.Data.SqlClient
Namespace DBConfig
Public Class DBCommand
Inherits DBConnection
'在构造函数中指定连接信息字符串
Public Sub New(ByVal str As String)
connstr = str
End Sub
Public Function insert(ByVal strSQL As String) As Integer
'连接数据库
Open()
'创建SQlcommand实例
#If DB_OLEDB Then
Dim cmd As OleDbCommand = New OleDbCommand(strSQL, conn)
#ElseIf DB_ODBC Then
dim cmd as odbccommand=new odbccommand(strsql,conn)
#Else
Dim cmd As SqlCommand = New SqlCommand(strSQL, conn)
#End If
'count表示受影响的行数，初始化为0
Dim count As Integer = 0
'执行sql命令
count = cmd.ExecuteNonQuery()
'关闭数据库
Close()
Return count
End Function
Public Function Delete(ByVal table As String, ByVal row As String, ByVal value As String) As Integer
'连接数据库
Open()
'创建sql指令
Dim strSQL As String = "delect from " + table + " where " + row + "=" + value
#If DB_OLEDB Then
dim cmd as oledbcommand=new oledbcommand(strsql,conn)
#ElseIf DB_ODBC Then
dim cmd as odbccommand =new odbccommand(strsql,conn)
#Else
Dim cmd As SqlCommand = New SqlCommand(strSQL, conn)
#End If
'count表示受影响的行数，初始化为0
Dim count As Integer = 0
'执行sql命令
count = cmd.ExecuteNonQuery()
'关闭数据库
Close()
Return count
End Function
Public Function Update(ByVal table As String, ByVal strContent As String, ByVal row As String, ByVal value As String) As Integer
'连接数据库
Open()
'创建sql指令
Dim strSQL As String = "Update " + table + " set " + strContent + " where " + row + "=" + value
#If db_oledb Then
dim cmd as oledbcommand=new oledbcommand(strsql,conn)
#ElseIf db_odbc Then
dim cmd as odbccommand =new odbccommand(strsql,conn)
#Else
Dim cmd As SqlCommand = New SqlCommand(strSQL, conn)
#End If
'count表示受影响的行数，初始化为0
Dim count As Integer = 0
'执行sql命令
count = cmd.ExecuteNonQuery()
'关闭数据库
Close()
Return count
End Function
End Class
End Namespace

复制代码

冰糖 · 发表于 2012-4-8 15:28:22

'数据库读取通用模块,代码来自紫外工控网http://bbs.ziwai.net
Imports System.Data.SqlClient
Imports System.Data.OleDb
Imports System.Data.Odbc
Namespace DBConfig
Public Class DBDataReader
#Const DB_OLEDB = 1
Inherits DBConnection
Public Sub New(ByVal str As String)
connstr = str
End Sub
#If DB_OLEDB Then
Public Function createdatareader(ByVal strsql As String) As OleDbDataReader
Open()
Dim cmd As OleDbCommand = New OleDbCommand(strsql, conn)
Dim dr As OleDbDataReader = cmd.ExecuteReader()
Return dr
End Function
#ElseIf DB_ODBC Then
Public Function createdatareader(ByVal strsql As String) As OdbcDataReader
Open()
Dim cmd As OdbcCommand = New OdbcCommand(strsql, conn)
Dim dr As OdbcDataAdapter = cmd.ExecuteReader()
Return dr
End Function
#Else
Public Function createdatareader(ByVal strsql As String) As SqlDataReader
Open()
Dim cmd As SqlCommand = New SqlCommand(strsql, conn)
Dim dr As SqlDataReader = cmd.ExecuteReader()
Return dr
End Function
#End If
End Class
End Namespace

复制代码

冰糖 · 发表于 2012-4-8 15:29:00

'数据库连接通用模块,代码来自紫外工控网http://bbs.ziwai.net
Imports System.Data
Imports System.Data.Odbc
Imports System.Data.OleDb
Imports System.Data.SqlClient
Namespace DBConfig
Public Class DBDataTable
Inherits DBConnection
'在构造函数中连接指定字符串
Public Sub New(ByVal str As String)
connstr = str
End Sub
Public Function CreateDatatable(ByVal strsql As String) As DataTable
Open()
'使用连接字符串和sqlconnection创建sqldataadapter的实例
#If db_oledb Then
Dim da As OleDbDataAdapter = New OleDbDataAdapter(strsql, conn)
#ElseIf db_odbc Then
Dim da As OdbcDataAdapter = New OdbcDataAdapter(strsql, conn)
#Else
Dim da As SqlDataAdapter = New SqlDataAdapter(strsql, conn)
#End If
'创建dataset对象
Dim ds As New Data.DataSet()
'填充dataset
da.Fill(ds)
Close()
Return ds.Tables(0)
End Function
End Class
End Namespace

复制代码

chinazhu666666 · 发表于 2012-4-8 15:37:26

{:soso_e128:}怎么给帖子加分啊。找半天没找到哦。冰糖哥{:soso_e144:}

冰糖 · 发表于 2012-4-8 15:45:17

右下角有个评分哎

帐号		自动登录	找回密码
密码			立即注册

[VB/VB.NET] 分享几段vb.net操作数据库的代码

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子