Uzmanlarına Visual Basic 2010 & SQL Sorusu

 
      Function MDBIslemler(ByVal Sorgu, ByVal Komut) 
          Dim bag As New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;Data Source=MDBFILE.mdb") 
   
          Dim Cikti = "" 
          Dim MDBCikti2 As OleDbDataReader = Nothing 
          Try 
              If bag.State = ConnectionState.Closed Then bag.Open() 
   
              Dim cmd As New OleDbCommand(Sorgu, bag) 
              If Komut = "ExecuteReader" Then 
                  MDBCikti = cmd.ExecuteReader() 
              ElseIf Komut = "ExecuteNonQuery" Then 
                  Cikti = cmd.ExecuteNonQuery 
              Else 
                  Cikti = cmd.ExecuteScalar 
              End If 
          Catch e As OleDbException 
              For Me.i = 0 To e.Errors.Count - 1 
                  errorMessages += "GUNCELLEME HATASI." & ControlChars.Cr & "------------" & ControlChars.Cr & "Index #" & i.ToString() & ControlChars.Cr & "Message: " & e.Errors(i).Message & ControlChars.Cr & "NativeError: " & e.Errors(i).NativeError & ControlChars.Cr & "Source: " & e.Errors(i).Source & ControlChars.Cr & "SQLState: " & e.Errors(i).SQLState & ControlChars.Cr & ControlChars.Cr & ControlChars.Cr 
                  Cikti = 0 
              Next i 
          End Try 
          Return Cikti 
      End Function 'Bu OK 
  

 
   
      Public Function ExcelIslemler(ByVal Sorgu, ByVal Komut) 
          Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & excelDosya & ";Extended Properties='Excel 8.0;HDR=YES'") 
          Dim Cikti = "" 
          Try 
              If conn.State = ConnectionState.Closed Then conn.Open() 
              Dim ExcelKomut As New OleDbCommand(Sorgu, conn) 
              If Komut = "ExecuteReader" Then 
                  ExcelCikti2 = ExcelKomut.ExecuteReader() 
                  ExcelCikti = ExcelCikti2 
                  Cikti = ExcelCikti2.HasRows 
              Else 
                  Cikti = ExcelKomut.ExecuteScalar() 
              End If 
   
          Catch e As OleDbException 
              For Me.i = 0 To e.Errors.Count - 1 
                  errorMessages += "Excelden Okuma Hatası.." & ControlChars.Cr & "------------" & ControlChars.Cr & "Index #" & i.ToString() & ControlChars.Cr & "Message: " & e.Errors(i).Message & ControlChars.Cr & "NativeError: " & e.Errors(i).NativeError & ControlChars.Cr & "Source: " & e.Errors(i).Source & ControlChars.Cr & "SQLState: " & e.Errors(i).SQLState & ControlChars.Cr & ControlChars.Cr & ControlChars.Cr 
              Next i 
              conn.Close() 
              conn = Nothing 
          End Try 
          Return Cikti 
      End Function 
  

  
  Public Class Form1 
      Dim ExcelCikti2 As OleDbDataReader = Nothing 
      Dim MDBCikti2 As OleDbDataReader = Nothing 
  

    Function MDBIslemler(ByVal Sorgu As String, ByVal Komut As String) 
          Dim bag As New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;Data Source=MDBFILE.mdb") 
          Dim Cikti 
   
          Try 
          Dim DAdapter As OleDbDataAdapter = New OleDbDataAdapter, CiktiTable As Datatable = New DataTable("Cikti") 
              Dim cmd As New OleDbCommand(Sorgu, bag) 
              DAdapter.SelectCommand = cmd 
   
              If bag.State = ConnectionState.Closed Then bag.Open() 
   
              If Komut = "ExecuteReader" Then 
                  DAdapter.fill(CiktiTable) 
                  Cikti = CiktiTable 
              ElseIf Komut = "ExecuteNonQuery" Then 
                  Cikti = cmd.ExecuteNonQuery 
              Else 
                  Cikti = cmd.ExecuteScalar 
              End If 
          Catch e As OleDbException 
              For Me.i = 0 To e.Errors.Count - 1 
                  errorMessages += "GUNCELLEME HATASI." & ControlChars.Cr & "------------" & ControlChars.Cr & "Index #" & i.ToString() & ControlChars.Cr & "Message: " & e.Errors(i).Message & ControlChars.Cr & "NativeError: " & e.Errors(i).NativeError & ControlChars.Cr & "Source: " & e.Errors(i).Source & ControlChars.Cr & "SQLState: " & e.Errors(i).SQLState & ControlChars.Cr & ControlChars.Cr & ControlChars.Cr 
                  Cikti = 0 
              Next i 
          Finally 
              If bag.State = ConnectionState.Open Then bag.Close() 
   
          End Try 
          Return Cikti 
      End Function 'Bu OK

    Function MDBIslemler(ByVal Sorgu As String, ByVal Komut As String) 
          Dim bag As New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;Data Source=MDBFILE.mdb") 
          Try 
              Dim DAdapter As OleDbDataAdapter = New OleDbDataAdapter 
              Dim cmd As New OleDbCommand(Sorgu, bag) 
              DAdapter.SelectCommand = cmd 
   
              If bag.State = ConnectionState.Closed Then bag.Open() 
   
              If Komut = "ExecuteReader" Then 
                  Dim Cikti As DataTable = New DataTable("Cikti") 
                  DAdapter.Fill(Cikti) 
                  Return Cikti 
              ElseIf Komut = "ExecuteNonQuery" Then 
                  Dim Cikti As Integer = 0 
                  Cikti = cmd.ExecuteNonQuery 
                  Return Cikti 
              Else 
                  Dim Cikti As String = "" 
                  Cikti = cmd.ExecuteScalar.ToString 
                  Return Cikti 
              End If 
          Catch e As OleDbException 
              Dim errorMessages As String = "", Cikti As Integer = 0 
              For i As Integer = 0 To e.Errors.Count - 1 
                  errorMessages += "GUNCELLEME HATASI." & ControlChars.Cr & "------------" & ControlChars.Cr & "Index #" & i.ToString() & ControlChars.Cr & "Message: " & e.Errors(i).Message & ControlChars.Cr & "NativeError: " & e.Errors(i).NativeError & ControlChars.Cr & "Source: " & e.Errors(i).Source & ControlChars.Cr & "SQLState: " & e.Errors(i).SQLState & ControlChars.Cr & ControlChars.Cr & ControlChars.Cr 
                  Cikti = 0 
              Next i 
              Return Cikti 
          Finally 
              If bag.State = ConnectionState.Open Then bag.Close() 
   
          End Try 
   
      End Function 'Bu OK