VB.Net/Database ADO.net/OleDbCommand Parameter

Материал из VB Эксперт
Версия от 15:44, 26 мая 2010; Admin (обсуждение | вклад) (1 версия)
(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к: навигация, поиск

Add OleDbCommand Parameter

<source lang="vbnet"> Imports System Imports System.Data Imports System.Data.SqlClient Imports System.Collections Imports System.Windows.Forms Imports System.Resources Public Class MainClass

   Shared Dim OleDbConnection As System.Data.OleDb.OleDbConnection
   Shared Dim AddressBookDataAdapter As System.Data.OleDb.OleDbDataAdapter
   Shared Sub Main()
      Connect()
      Display()
      
      Dim ID As String = "1"
      Dim OleDbUpdateCommand As System.Data.OleDb.OleDbCommand
      OleDbUpdateCommand = new System.Data.OleDb.OleDbCommand
      
      OleDbUpdateCommand.rumandText = _
              "Delete from Employee WHERE id= ? ;  "
      OleDbUpdateCommand.Parameters.Add( _
          New System.Data.OleDb.OleDbParameter("id",  _
          System.Data.OleDb.OleDbType.Numeric,  _
          0,  _
          System.Data.ParameterDirection.Input,  _
          False,  _
          CType(10, Byte),  _
          CType(0, Byte),  _
          "id",  _
          System.Data.DataRowVersion.Original,  _
          1))
              
      OleDbUpdateCommand.Connection = OleDbConnection
      AddressBookDataAdapter.UpdateCommand = OleDbUpdateCommand
      AddressBookDataAdapter.UpdateCommand.ExecuteNonQuery()
      Display()
      Disconnect()
   End Sub
   Shared Sub Display()
      Dim OleDbSelectCommand As System.Data.OleDb.OleDbCommand
      OleDbSelectCommand = New System.Data.OleDb.OleDbCommand()
      OleDbSelectCommand.rumandText = "SELECT ID, FirstName, LastName,Salary FROM Employee"
      OleDbSelectCommand.Connection = OleDbConnection
      AddressBookDataAdapter = New System.Data.OleDb.OleDbDataAdapter()
      AddressBookDataAdapter.SelectCommand = OleDbSelectCommand
      Dim AddressBookDataSet As System.Data.DataSet
      AddressBookDataSet = New System.Data.DataSet()
      CType(AddressBookDataSet, System.ruponentModel.ISupportInitialize).BeginInit()
      AddressBookDataAdapter.Fill(AddressBookDataSet)
        Dim dataTable As DataTable = AddressBookDataSet.Tables(0)
        " ensure dataTable not empty
        If dataTable.Rows.Count <> 0 Then
           Dim recordNumber As Integer = Convert.ToInt32(dataTable.Rows(0)(0))
           Console.Write( recordNumber.ToString & "  ")
           Console.Write( Convert.ToString(dataTable.Rows(0)(1)) & "  ")
           Console.Write( Convert.ToString(dataTable.Rows(0)(2)) & "  ")
           Console.Write( Convert.ToString(dataTable.Rows(0)(3)) & "  ")
           " display not-found message
        Else
           Console.WriteLine( "No record found" )
        End If
        Console.WriteLine(  )
   End Sub
   Shared Sub Connect()
     OleDbConnection = New System.Data.OleDb.OleDbConnection()
     OleDbConnection.ConnectionString = _
        "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";" & _
        "User ID=Admin;Data Source=Employee.mdb;Mode=Sha" & _
        "re Deny None;Extended Properties="""";" & _
        "Jet OLEDB:System database="""";Jet OLEDB:Regis" & _
        "try Path="""";Jet OLEDB:Database Password="""";" & _
        "Jet OLEDB:Engine Type=5;Jet OLEDB:Dat" & _
        "abase Locking Mode=1;Jet OLEDB:Global Partial " & _
        "Bulk Ops=2;Jet OLEDB:Global Bulk T" & _
        "ransactions=1;Jet OLEDB:New Database " & _
        "Password="""";Jet OLEDB:Create System Databas" & _
        "e=False;Jet OLEDB:Encrypt Database=False;" & _
        "Jet OLEDB:Don"t Copy Locale on Compact=" & _
        "False;Jet OLEDB:Compact Without Replica " & _
        "Repair=False;Jet OLEDB:SFP=False"
     Try
        OleDbConnection.Open()
     Catch ex As Exception
        Console.WriteLine(ex.Message)
     End Try
   End Sub
   Shared Sub Disconnect()
     Try
        OleDbConnection.Close()
     Catch ex As Exception
        Console.WriteLine(ex.Message)
     End Try
   End Sub

End Class


      </source>

<A href="http://www.vbex.ru/Code/VBDownload/Employee.zip">Employee.zip( 7 k)</a>