search.vb

广西百色247台电视发射机监控源代码.已经过实践

Imports System.Data.OleDb
Imports System.IO


Public Class search

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

    Public Shared Sub init(ByVal strHonst As String, ByVal strDatabase As String, ByVal strUser As String, ByVal strPassword As String)
        Dim strConStr As String
        strConStr = "Provider=SQLOLEDB;Persist Security Info=False;Data Source=" + strHonst & ";Initial Catalog=" + strDatabase & ";User ID=" + strUser & ";Password=" + strPassword

        con = New OleDbConnection
        'con.ConnectionString = "Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Registry Path=;Jet OLEDB:Database Locking Mode=1;Data Source=""" & Directory.GetCurrentDirectory & "/data/data.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"
        con.ConnectionString = strConStr '"Provider=SQLOLEDB;Persist Security Info=False;Data Source=服务器名;Initial Catalog=数据库名;User ID=sa;Password=;"
        'Try
        '    con.Open()
        '    If con.State = ConnectionState.Open Then
        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
        '        MessageBox.Show("数据库连接成功！", "系统提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
        '        Dim frmmain As frmmain = New frmmain
        '        frmmain.Show()
        '    Else
        '        MessageBox.Show("数据库连接失败！", "系统提示", MessageBoxButtons.OK, MessageBoxIcon.Error)
        '    End If
        'Catch ex As Exception
        '    MessageBox.Show(ex.Message, "系统提示", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        '    End
        'Finally
        '    con.Close()
        '    con.Dispose()
        'End Try

    End Sub

    Public Shared Function query(ByVal SQL As String) As DataSet
        'Try
        ds = New DataSet
        ada.SelectCommand.CommandText = SQL
        If con.State = ConnectionState.Open Then
        Else
            con.Open()
        End If
        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
        If con.State = ConnectionState.Open Then
        Else
            con.Open()
        End If
        '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
        If con.State = ConnectionState.Open Then
        Else
            con.Open()
        End If
        '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
        If con.State = ConnectionState.Open Then
        Else
            con.Open()
        End If
        ' con.Open()
        i = ada.DeleteCommand.ExecuteNonQuery()
        con.Close()
        ada.Fill(ds)
        Return (i)
    End Function
End Class