ADODC ile veritabanı bağlantısı

ADODC ile veritabanı bağlantısı

'Forma gerekli Text ve Butonları ve bir yerleştirirek kullanabilirisiniz.(ODADC ve GRID 6.0 eklemeyi unutmayın)
'Yapılması gereken hata konrolleri var onları artık siz halledersiniz.
'Benim programlarımda kullandığım teknik bu biraz zahmetli yanları var ama sorunsuz çalışıyor.
'Umarım İşinize yarar...

'*********************
'Fatih UYDURAN             '*
'asmin80@hotmail.com  '*
'*********************

'*****************************************
'Modüle yapıştır...

Global vrt As New ADODB.Connection
Global tb As New ADODB.Recordset

Sub tablo1()
vrt.Open "provider=microsoft.jet.oledb.4.0;data source= " & App.Path & "\asmin.mdb"
    tb.Open "SELECT * FROM ask ", vrt, adOpenDynamic, adLockOptimistic
End Sub

"Modül kısmı bu kadar

"'Form kısmına yapıştır...

Private Sub Command1_Click()
tb.MovePrevious
    If tb.BOF = True Then tb.MoveFirst
    veriyukle
End Sub
Private Sub Command2_Click()
    Command9.Enabled = True
    Command2.Enabled = False
    Command3.Enabled = True
    Command4.Enabled = True
tb.AddNew
  verikaydet
tb.Update
End Sub
Private Sub Command3_Click()
   verikaydet
tb.Update
End Sub
Private Sub Command4_Click() """"""'SİLLLLLLLL
tb.Close
tb.Open "select * from ask where adi", vrt, adOpenDynamic
    If tb.BOF = True And tb.EOF = True Then
        MsgBox " Kayıt Kalmadı??????!!!!!!"
        Exit Sub
    Else
        tb.Delete
        tb.MoveFirst
    If tb.BOF = True Then
        Exit Sub
    Else
        veriyukle
    End If
    End If
End Sub
Private Sub Command5_Click()
    End
End Sub
Private Sub Command6_Click()
tb.MoveNext
    If tb.EOF = True Then tb.MoveLast
veriyukle
End Sub

Private Sub Command7_Click()
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
End Sub

Private Sub Command8_Click()
Dim SQL, SQL1 As String
tb.Close
    SQL = "SELECT * From ask where adi='" & Text4.Text & "'"
    'SQL1 = "SELECT [adi],[soyadi],[no]From ask where adi='" & Text4.Text & "'"
   tb.Open SQL
  With Adodc1
        .ConnectionString = "provider=microsoft.jet.oledb.4.0;data source= " & App.Path & "\asmin.mdb"
        .CommandType = adCmdUnknown
        .Password = ""
        .UserName = ""
        .RecordSource = SQL
        .Refresh
  End With
  Set DataGrid1.DataSource = Adodc1 'DataGrid ADODC nesnesine bağlanıyor
   DataGrid1.Columns(0).Caption = "ADI" 'Grid kolon başlıkları değiştirildi
   DataGrid1.Columns(1).Caption = "SOYADI" 'Tasarım aşamasında verilirse Grid sonuçları göstermez
   DataGrid1.Columns(2).Caption = "NO"
    '********************************************
  If tb.BOF = True And tb.EOF Then
     MsgBox Text4.Text & "   " & "Kaydı Bulunamadı"
  Else
      veriyukle  'sorgudan sonra bulununan alanlar textlere atılmalı
  End If
    vrt.Close 'tekrar sorgu yapılma ihtimali üzerine kapattık
    Call Form_Load ' form açılıştaki haline geldi
   End Sub
Private Sub Command9_Click()
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    Command9.Enabled = False
    Command2.Enabled = True
    Command3.Enabled = False
    Command4.Enabled = False
End Sub

Private Sub Form_Load()
tablo1
    DataGrid1.Columns(0).Caption = "ADI"
    DataGrid1.Columns(1).Caption = "SOYADI"
    DataGrid1.Columns(2).Caption = "NO"
End Sub
Sub verikaydet()
  tb!adi = Text1.Text
  tb!soyadi = Text2.Text
  tb!no = Text3.Text
End Sub
Sub veriyukle()
    Text1.Text = tb!adi
    Text2.Text = tb!soyadi
    Text3.Text = tb!no
End Sub

                                           Alıntıdır