数据库读取问题

[liao108]

我是初哥一个，在网上找到以下连接数据库的类。现在想使用当中的一个函数query,但不知怎样使用，请各位帮帮忙。比如，我要利用“SQL = "select * from vote where ID=10"去查询，只要我点击一下按钮，就可以显示查询结果。

Imports System.Data.OleDb
Imports System.IO
Module myConnection

Public Class search

Public Shared con As OleDbConnection
Public Shared ada As OleDbDataAdapter
Public Shared ds As DataSet

Public Shared Sub init()
con = New OleDbConnection
con.ConnectionString = "Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Registry Path=;Jet OLEDB:Database Locking Mode=1;Data Source=""E:\MyJob\Training\admin\Vote.mdb"";Mode=Share Deny None;Jet OLEDB:Engine Type=5;Provider=""Microsoft.Jet.OLEDB.4.0"";Jet OLEDB:System database=;Jet OLEDB:SFP=False;persist security info=False;Extended Properties=;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Create System Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;User ID=Admin;Jet OLEDB:Global Bulk Transactions=1"

ada = New OleDbDataAdapter
ada.SelectCommand = New OleDbCommand
ada.InsertCommand = New OleDbCommand
ada.UpdateCommand = New OleDbCommand
ada.DeleteCommand = New OleDbCommand

ada.SelectCommand.Connection = con
ada.InsertCommand.Connection = con
ada.UpdateCommand.Connection = con
ada.DeleteCommand.Connection = con

End Sub

Public Shared Function query(ByVal SQL As String) As DataSet
Try
ds = New DataSet
ada.SelectCommand.CommandText = SQL
ada.Fill(ds)
Return (ds)
Catch ex As Exception
MsgBox(ex.Message)

End Try

End Function

Public Shared Function insert(ByVal SQL As String) As Integer
Dim i As Integer
ds = New DataSet
ada.InsertCommand.CommandText = SQL
con.Open()
i = ada.InsertCommand.ExecuteNonQuery()
con.Close()
ada.Fill(ds)
Return (i)
End Function

Public Shared Function update(ByVal SQL As String) As Integer
Try


Dim i As Integer
ds = New DataSet
ada.UpdateCommand.CommandText = SQL
con.Open()
i = ada.UpdateCommand.ExecuteNonQuery()
con.Close()
ada.Fill(ds)
Return (i)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function

Public Shared Function delete(ByVal SQL As String) As Integer
Dim i As Integer
ds = New DataSet
ada.DeleteCommand.CommandText = SQL
con.Open()
i = ada.DeleteCommand.ExecuteNonQuery()
con.Close()
ada.Fill(ds)
Return (i)
End Function
End Class

End Module

[mhxcy]

沙发

[panzi667]

沙发,帮你顶

[simonjay]

myConnection.search.init()
Dim sql As String = "select * from vote where ID=10"
Dim dst As DataSet = myConnection.search.query(sql)
Dim dtb As DataTable = dst.Tables(0)
For i As Integer = 0 To dtb.Rows.Count - 1
...
Next

[cyy1981]

替换调你的数据库连接字符串

[huiaccp]

sf
接分