VB.Net的SQL 2005数据库类
来源:互联网 发布:p2p电视直播软件 编辑:程序博客网 时间:2024/05/22 03:45
Public Class ClassDB
Public cn As System.Data.SqlClient.SqlConnection
Public da As System.Data.SqlClient.SqlDataAdapter
Public ds As New DataSet
Public dt As New DataTable
Public cmd As System.Data.SqlClient.SqlCommand
'****************************************************************************************
'连接数据库
Public Function ConnectionOpen(ByVal uid As String, ByVal pwd As String, ByVal DBName As String, ByVal server As String) As Boolean
Dim cnstr As String = _
"Persist Security Info=False;" _
& "User ID=" & uid & ";Password=" & pwd & ";" _
& "Initial Catalog=" & DBName & ";" _
& "Server=" & server
cn = New System.Data.SqlClient.SqlConnection(cnstr)
Try
cn.Open()
Catch ex As System.Data.SqlClient.SqlException
MsgBox(ex.Message.ToString())
End Try
End Function
'断开数据库的连接
Public Function ConnectionClose() As Boolean
Try
cn.Close()
Catch ex As System.Data.SqlClient.SqlException
MsgBox(ex.Message.ToString())
End Try
End Function
'插入记录、删除记录、更新记录到指定的数据库->数据表
Public Function InsertDelUpdateRecord(ByVal cmdText As String) As Boolean
Try
cmd = New System.Data.SqlClient.SqlCommand(cmdText, cn) '指定sql命令及该命令用于哪一个数据库连接
cmd.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.Message.ToString())
End Try
End Function
'填充数据集,他会根据cmdtext参数说指定的查询返回数据库里特定的表
Public Function DataSetFill(ByVal cmdText As String, ByVal tabName As String) As Boolean
Try
cmd = New System.Data.SqlClient.SqlCommand(cmdtext, cn) '指定sql查询命令及该命令用于哪一个数据库连接
da = New System.Data.SqlClient.SqlDataAdapter(cmd)
da.Fill(ds, tabName) '表名可以映射为数据库中实际的表名称,但是他和数据库实际的表名称不是一回事
Catch ex As Exception
MsgBox(ex.Message.ToString())
End Try
End Function
'调用存储过程
Public Function ExecProc(ByVal procName As String, ByVal tabName As String) As Boolean
Try
cmd = New System.Data.SqlClient.SqlCommand(procName, cn)
cmd.CommandType = CommandType.StoredProcedure
da = New System.Data.SqlClient.SqlDataAdapter(cmd)
da.Fill(ds, tabName)
Catch ex As Exception
MsgBox(ex.Message.ToString())
End Try
End Function
'这个基本不用,因为可以直接通过ds来调用
Public Function DataTableFill(ByVal index As Integer) As Boolean
Try
dt = ds.Tables(index)
Catch ex As Exception
MsgBox(ex.Message.ToString())
End Try
End Function
'这个基本不用,因为可以直接通过ds来调用
Public Function DataTableFill(ByVal name As String) As Boolean
Try
dt = ds.Tables(name)
Catch ex As Exception
MsgBox(ex.Message.ToString())
End Try
End Function
'释放资源
Public Function DBDispos() As Boolean
Try
cn.Dispose()
'da.Dispose()
ds.Dispose()
dt.Dispose()
Catch ex As Exception
MsgBox(ex.Message.ToString())
End Try
End Function
End Class
- VB.Net的SQL 2005数据库类
- [VB.NET]用vb.net 备份sql数据库的问题
- vb.net操作SQL数据库比较好用的类。
- vb.net 连接SQL数据库
- VB.net SQL数据库操作
- VB.NET与 sql数据库
- 自写的ADO.NET访问SQL Server数据库类[VB.NET]
- VB.NET 数据库查询 [SQL字符串的生成]
- VB.net关于sql数据库的备份与恢复
- VB.NET ACCESS数据库SQL查询使用时间的问题
- [VB.NET]在vb.net中如何获取sql数据库中表的字段数?
- [VB.NET]如何用VB.NET访问UNIX里的SQL数据库?
- 初学VB.NET连接SQL数据库!
- vb.net连接sql server数据库
- VB.NET实现Excel导入SQL数据库
- VB.NET实现Excel导入SQL数据库
- Vb.net 和SQL 数据库交互小结
- VB.NET连接sql server数据库
- Servlet:向客服端发送响应字符串时请慎用out.println()
- Ubuntu 9.04下Nvidia最新显卡驱动的安装
- VBA文件和文件夹操作
- 流浪的生活
- VB.Net创建的office类
- VB.Net的SQL 2005数据库类
- 软件版本
- spring 基础收集
- Java6学习笔记57——多线程编程——线程的互斥(version 0.2)
- Spring AOP: Spring之面向方面编程
- double型可表示浮点数高达10^308
- 热门的网络营销需求人才
- Ex23c示例程序:一个带用户界面的SDI自动化组建EXE
- 动态切换主题(cookie)