公布一个数据库操作类
Imports SystemImports System.Data
Imports System.Data.SqlClient
Public Class Excute
Private Con As String = "Data Source=Server;Initial Catalog=Data;User ID=sa;pwd=123"
Private adapter As New SqlDataAdapter
Private reader As SqlDataReader
Private Myconn As New SqlConnection(Con)
'定义接口,此接口只需传入SQL语句就可执行,返回一个Boolean型,可以进行insert、update、delete操作
Public Function ExecuteNonQuery(ByVal SQLStr As String) As Boolean
Myconn.Open()
Try
Dim cmd As New SqlCommand(SQLStr, Myconn)
cmd.ExecuteNonQuery()
Return True
Catch ex As Exception
Return False
End Try
Myconn.Close()
End Function
'返回一个DataTable,即查询获得的表,直接用datagrid1.datasource就可以绑定了,只需要传入一个SQL查询语句
Public Function GetTable(ByVal Selectstr As String) As DataTable
Myconn.Open()
Dim tb As DataTable = New DataTable
Try
Dim cmd As New SqlCommand(Selectstr, Myconn)
reader = cmd.ExecuteReader
tb = ReaderToTable(reader) '生成Table
Return tb
Catch ex As Exception
Return tb
End Try
Myconn.Close()
End Function
Private Function ReaderToTable(ByVal reader As SqlClient.SqlDataReader) As DataTable
Dim newTable As New DataTable()
Dim col As DataColumn
Dim row As DataRow
Dim i As Integer
For i = 0 To reader.FieldCount - 1
col = New DataColumn()
col.ColumnName = reader.GetName(i)
col.DataType = reader.GetFieldType(i)
newTable.Columns.Add(col)
Next
While reader.Read
row = newTable.NewRow()
For i = 0 To reader.FieldCount - 1
row(i) = reader.Item(i)
Next
newTable.Rows.Add(row)
End While
Return newTable
End Function
End Class
连接数据库的地方根据自己的服务器更改一下 我是连接SQL server2000的
已经通过编译,复制后新建一个类,然后全部粘贴,类名自己改,然后按Ctrl+Shift+B编译,保存后在你保存的文件夹下
bin文件里面有个Release文件,找到一个.dll的文件就是已经编译好的类..\bin\Release
新建一个应用程序,在资源管理器里面点右键选择添加引用,选择浏览,然后找到这个.dll文件就可以了,点确定
在程序里面引用后就不用imports了,直接实例化这个类 dim ca as new Excute.Excute就OK了(Excute是我自己取的类名,大家可以自己定义)
调用
dim dt as dataTable
dt=ca.getTable(sql查询语句)
DataGridView1.DataSource = dt
写得有点乱,希望能对大家有用
关于SQL语句也可以另外在建一个类进行封装,这样前面只需要传入参数就可以了,如果需要这方面的朋友可以Email我
我的Email:yj2002520@