visual basic ile ilgili basit bi soru

[bayte]

birine anlatmam gerekiyo
vb databasic(access) e bağlama işlemi nasıl yapılıyor
açaba
bilgi verirseniz sevinirim

uygulamalı yapmak isterseniz
bizimmekan_85@hotmail.com

[bayte]

buraya bi cvp yazacak arkadaş yok muuuuuuu???

[zaferdepe]

Option Explicit
Dim DB As Database
Dim RSBilgiler As Recordset
Dim RSSureSabitleri As Recordset
Dim RSSaglikProblemleri As Recordset
Dim RSSecim As Recordset
Dim DBName As String


Private Sub Form_Initialize()

DBName = App.Path & "\EE1.mdb"

Set DB = OpenDatabase(DBName)
Set RSBilgiler = DB.OpenRecordset("Bilgiler", dbOpenDynaset)
Set RSSureSabitleri = DB.OpenRecordset("SureSabitleri", dbOpenDynaset)
Set RSSaglikProblemleri = DB.OpenRecordset("SaglikProblemleri", dbOpenDynaset)

End Sub

Private Sub tablo1yukle()
On Error GoTo son

RSBilgiler.MoveFirst
i = 1
Do While RSBilgiler.Fields("ID").Value <> ""
tablo1.TextMatrix(i, 0) = i
tablo1.TextMatrix(i, 2) = RSBilgiler.Fields("TCKimlikNO").Value
tablo1.TextMatrix(i, 4) = RSBilgiler.Fields("RUTBESI").Value
tablo1.TextMatrix(i, 5) = RSBilgiler.Fields("ADI").Value & " " & RSBilgiler.Fields("SOYADI").Value
tablo1.TextMatrix(i, 6) = RSBilgiler.Fields("TERTIBI").Value
tablo1.TextMatrix(i, 8) = RSBilgiler.Fields("ID").Value

i = i + 1
RSBilgiler.MoveNext
Loop

son:
End Sub

Yukarıda verilen iki altprogram yapmış olduğum bir uygulamadan birer parça. Access veri tabanına nasıl bağlanacağına örnek olabilir.
Önce tanımlamaları yapacaksın,
Oluşturmuş olduğun Access veri tabanında RecordSet olarak tanımlı Tabloları ve Tablolara ait Alan Adları oluşturulmuş veri tabanına erişiyor.
İkinci alt programda ise seçili olan Tablodan ID'ye göre tüm Alan Adlarını tarıyor ve içeriklerini Form üzerindeki tabloya atıyor...
Kolay gelsin.

[samet_103]

visual basic ile ilgili bi soru soracam acil cevap bekliyorum soru şu?
girilen iki basamaklı bir sayının rakamları toplamını bulan program..