Başlangıç > Kodlar > Visual Basic 6 ile Aacces’de DataReport kullanımı

Visual Basic 6 ile Aacces’de DataReport kullanımı


Visual basicte acces ile Datareport kullanımı dökümanlar ve örnekler arasında pek rastlayamadım eklemek istedim. Umarım işinize yarar.


Öncelikle bir access veri tabanı yaratın adını Test1 koyun. içine tablo1 olarak bir tablo açın ve isim, adress, yas diye alanlar oluşturun.

Veritabanımızı yarttıktan sonra VB’de bir proje açın ve bu projeye birde DataReport ekleyin. Formumuza koyacaklarımız, iki adet buton (Command1, command2), bir tane combo (combo1). Datareportumuza koyacaklarımız üç adet layer(Layer1, Layer2, Layer3). Tüm bunları hazırladıysak geçelim kodumuza.

Formumuzun declarations bölümünden itibaren kodları kopyalayın.

Option Explicit
Private Sub Command1_Click()
Dim Db As New ADODB.Connection
Dim Rs As New ADODB.Recordset

Dim strPath As String

strPath = App.Path & “\test1.mdb”

Db.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0;” & _
“Data Source=” & strPath

Db.Open

Rs.ActiveConnection = Db

Rs.Open Combo1.Text, Db, adOpenKeyset, adLockOptimistic, adCmdTableDirect

With DataReport1.Sections(“Section1”).Controls
.Item(“text1”).DataField = Rs(“isim”).Name
.Item(“text2”).DataField = Rs(“Adres”).Name
.Item(“text3”).DataField = Rs(“yas”).Name
End With

With DataReport1.Sections(“Section2”).Controls
.Item(“Label2”).Caption = “İsim”
.Item(“Label3”).Caption = “Adres”
.Item(“Label4”).Caption = “Yaş”
End With

With DataReport1.Sections(“Section4”).Controls
.Item(“Label1”).Caption = “Adres Defterim”
End With

Set DataReport1.DataSource = Rs

DataReport1.Show

End Sub

Private Sub Command2_Click()
Unload Form1
End

End Sub

Umarım yeterince açık anlatmışımdır ve işinize yarayacaktır umarım. Herkese kolay gesin.
Mehmet DOĞAN
mehmet@cyperzone.com



TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: