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