Sonuçlar 1 to 2 of 2

Konu: ADO Data Control - ADO Veri Erişim(v.basic.kaynak1)

  1. #1

    Default ADO Data Control - ADO Veri Erişim(v.basic.kaynak1)




    ADO Data Control - Özellikler





    Align

    Appearance

    BackColor

    BOF

    CacheSize

    Caption

    CausesValidation

    CommandTimeOut

    CommandType

    ConnectionString

    ConnectionTimeOut

    Container

    CursorLocation


    CursorType

    DragIcon

    DragMode

    EOF

    Font

    ForeColor

    Height

    HelpContextID

    Index

    Left

    Lock

    MaxRecord

    Mode


    Name

    Object

    Orientation

    Parent

    Password

    Recordset

    RecordSource

    TabIndex

    TabStop

    Tag

    Top

    ToolTipText

    UserName

    Visible

    Weight

    WhatsThisHelpID


    ADO Data Control - Olaylar





    DragDrop

    DragOver

    EndOfRecordset

    Error

    FetchComplete

    FetchProgress


    FieldChangedComplete

    GotFocus

    LostFocus

    MouseDown

    MouseMove

    MouseUp

    MoveComplete


    RecordChangeComplete

    RecordsetChangeComplete

    Validate

    WillChangeField

    WillChangeRecord

    WillChangeRecordset

    WillMove


    ADO Data Control - Yöntemler





    Drag

    Move


    Refresh

    SetFocus


    ShowWhatsThis

    UpdateControls

    ZOrder


    ADO Kontrol & DataList & DataCombo & DataGrid


    Private Sub Form_Load() ‘ Veri tabanı tanımlama

    Adodc1.ConnectionString = "Provider =" & "Microsoft.Jet.OLEDB.4.0; _

    Data Source= personel.mdb"

    SecimIptal _Click ‘ Ortak kod



    With DataList1 ‘ DataList veri tabanına bağlanıyor

    Set .DataSource = Adodc1

    .DataField = "Sicil_No"

    .BoundColumn = "Sicil_No"

    Set .RowSource = Adodc1

    .ListField = "Sicil_No"

    End With



    With DataCombo1 ‘ DataCombo veri tabanına bağlanıyor

    Set .DataSource = Adodc1

    .DataField = "Soyad"

    .BoundColumn = "Soyad"

    Set .RowSource = Adodc1

    .ListField = "Soyad"

    End With



    With DataGrid1 ‘ DataGrid veri tabanına bağlanıyor

    Set .DataSource = Adodc1

    .AllowAddNew = True

    .AllowDelete = True

    .AllowUpdate = True

    End With



    Set Text1.DataSource = Adodc1 ‘ TextBoxlar veri tabanına bağlanıyor

    Set Text2.DataSource = Adodc1

    Set Text3.DataSource = Adodc1

    Set Text4.DataSource = Adodc1

    Text1.DataField = "Sicil_No"

    Text2.DataField = "Ad"

    Text3.DataField = "Soyad"

    Text4.DataField = "Adres"

    End Sub






    Private Sub SecimIptal _Click() ‘ Alan seçimi

    Adodc1.RecordSource = "SELECT * FROM kisiler"

    Adodc1.Refresh

    Adodc1.Recordset.MoveFirst

    End Sub





    Private Sub DataCombo1_DblClick(Area As Integer)

    Adodc1.RecordSource = "select * from kisiler where soyad='" & _

    DataCombo1.Text & "'"

    Adodc1.Refresh ‘ Çift tıklana kayıt seçiliyor

    End Sub





    Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)

    Adodc1.RecordSource = "select * from kisiler Order By " & _

    DataGrid1.Columns(ColIndex).DataField

    Adodc1.Refresh ‘ Seçilen başlıkda sıralama yapılıyor

    End Sub



    Private Sub DataList1_Click()

    Adodc1.RecordSource = "select * from kisiler where sicil_no=" & DataList1.Text

    Adodc1.Refresh ‘ Tıklanan sicil numaralı kayıt seçiliyor

    End Sub



    Private Sub Cık_Click()

    End ‘ Program kapatılıyor

    End Sub




    ADO - Kod ile Veri Tabanı Yönetimi



    (General)(Declaration)

    Dim Baglanti As Connection

    Dim KayitSet As Recordset



    Private Sub veri_set() ‘ Tekrar eden tanımlama için

    Text1.Text = KayitSet![sicil_no] ‘ ortak kod

    Text2.Text = KayitSet![ad]

    Text3.Text = KayitSet![soyad]

    Text4.Text = KayitSet![adres]

    End Sub



    Private Sub ilk_okuma() ‘ Ortak kod

    Set KayitSet = New Recordset ‘ Kayıt seti tanımlanıyor

    KayitSet.Open "Select * from kisiler", Baglanti, adOpenKeyset, adLockOptimistic

    If KayitSet.RecordCount <> 0 Then

    KayitSet.Fields.Refresh

    veri_set

    End If

    End Sub



    Private Sub Form_Load()

    Set Baglanti = New Connection ‘ Veri tabanının tanıtımı

    Baglanti.Open "Provider=Microsoft.jet.oledb.4.0; Data Source = personel.mdb"

    ilk_okuma

    End Sub






    Private Sub Command4_Click() ‘ İlk kayıt

    On Error Resume Next

    KayitSet.MoveFirst

    veri_set

    End Sub





    Private Sub Command2_Click() ‘ Önceki kayıt

    On Error GoTo yenihata

    KayitSet.MovePrevious

    veri_set

    Exit Sub

    yenihata:

    KayitSet.MoveFirst

    End Sub





    Private Sub Command3_Click() ‘ Son Kayıt

    On Error Resume Next

    KayitSet.MoveLast

    veri_set

    End Sub





    Private Sub Command1_Click() ‘ Sonraki kayıt

    On Error GoTo yenihata

    KayitSet.MoveNext

    veri_set

    Exit Sub

    yenihata:

    KayitSet.MoveLast

    End Sub





    Private Sub Command6_Click() ‘ Arama

    On Error Resume Next

    Dim ara_sicil_no As Double ‘ Arama için yeni kayıt seti

    Dim yeni_k_s As New Recordset

    ara_sicil_no = InputBox("Aranan kişinin sicil numarasını giriniz :", _

    "Sicil Numarası İle Arama")

    yeni_k_s.Open "Select * from kisiler where sicil_no=" & _

    Val(ara_sicil_no), Baglanti, adOpenKeyset, adLockOptimistic

    If yeni_k_s.RecordCount <> 0 Then

    Text1.Text = yeni_k_s![sicil_no]

    Text2.Text = yeni_k_s![ad]

    Text3.Text = yeni_k_s![soyad]

    Text4.Text = yeni_k_s![adres]

    yeni_k_s.Close

    Else

    MsgBox "Kayıt Bulunamadı", vbCritical, "Arama"

    End If

    End Sub









    Private Sub Command7_Click() ‘ Kayıt ekleme

    If Command7.Caption = "Ekle" Then ‘ başlığa göre işlem seçimi

    Text1.Text = ""

    Text2.Text = ""

    Text3.Text = ""

    Text4.Text = ""

    Command7.Caption = "Kaydet" ‘ Başlık değiştirme

    Else

    Dim yeni_k_s As New Recordset

    yeni_k_s.Open "Select * from kisiler", Baglanti, _

    adOpenKeyset, adLockOptimistic

    If yeni_k_s.RecordCount <> 0 Then

    yeni_k_s.AddNew

    yeni_k_s![sicil_no] = Text1.Text

    yeni_k_s![ad] = Text2.Text

    yeni_k_s![soyad] = Text3.Text

    yeni_k_s![adres] = Text4.Text

    yeni_k_s.Update

    yeni_k_s.Close

    End If

    ilk_okuma

    Command7.Caption = "Ekle"

    End If

    End Sub





    Private Sub Command5_Click() ‘ Kayıt silme

    On Error Resume Next

    Dim yeni_k_s As New Recordset ‘ Kayıt silme için kayıt seti

    yeni_k_s.Open "Select * from kisiler where sicil_no=" & Text1.Text, _

    Baglanti, adOpenKeyset, adLockOptimistic

    If yeni_k_s.RecordCount <> 0 Then

    yeni_k_s.Delete

    yeni_k_s.Close

    End If

    ilk_okuma

    End Sub





    Private Sub Command8_Click()

    Close All ‘ Açık olan herşeyi kapat

    End ‘ Programdan çık

    End Sub





    Programın kodlanmasına başlamadan önce Project > Reference mönüsünden “Microsoft ActiveX Data Object 2.5 Library” referanslar arasına eklenir.

  2. #2

Similar Threads

  1. DataGrid – Veri Tabanı Izgarası(kaynak1.v.basic)
    By Elektronik in forum Visual Basic
    CEvaplar: 1
    Son Mesaj: 06-08-08, 11:20
  2. DBGrid – RDO Veri Izgarası(kaynak1.v.basic)
    By Elektronik in forum Visual Basic
    CEvaplar: 1
    Son Mesaj: 06-08-08, 11:17
  3. Dinamik Veri Erişimi (kaynak1.v.basic)
    By Elektronik in forum Visual Basic
    CEvaplar: 1
    Son Mesaj: 25-07-08, 18:53
  4. Data – Veri Erişim Kontrolü-(V.Basic-kaynak1)
    By Elektronik in forum Visual Basic
    CEvaplar: 1
    Son Mesaj: 24-07-08, 17:52
  5. MSChart – Veri Grafiği(kaynak1-V.Basic)
    By Elektronik in forum Visual Basic
    CEvaplar: 0
    Son Mesaj: 04-11-07, 14:31

Tags for this Thread

Bookmarks

Gönderme izinleri

  • Yeni Konu açamazsınız
  • Konulara cevap yazamazsınız.
  • Eklenti gönderemezsiniz.
  • Mesajlarınızı düzenleme izniniz yok.
  •