DonanımHaber Mini sürüm 2 Ocak 2026 tarihi itibariyle kullanımdan kalkacaktır. Bunun yerine daha hızlı bir deneyim için DH Android veya DH iOS uygulamalarını kullanabilirsiniz.
Öncelikle SQL, Access hangi veritabanı kullanırsan kullan bir connection ve recordset nesnesine ihtiyacın olacaktır. bu nesneleri oluşturduktan sonra db'ye bağlanabilir, seçme ekleme ve güncelleme sorgusu yaptırabilirsin. Bir örnek kod yazacağım bunu geliştirmek senin elinde. Öncelikle ADO ile bu bağlantıyı sağlayacağımızı düşünürsek projen için insert yada tools menüsünden References'a gel ve Microsoft ActiveX Data Objest 2.x gibi versiyonlardan sonuncusunu seç şu an 2.8 sonra ok'le onayla
Private Sub Form_Load() dim cnn as ADODB.Connection dim rs As ADODB.Recordset
cnn.Provider="Microsoft.Jet.OLEDB.4.0" 'Bağlantı için sağlayıcı seçiyoruz cnn.Open("c:\proje\prj.mdb") 'DBnin yolunu gösteriyip açıyoruz rs.Open "SELECT isim FROM uyeler",cnn 'DBdeki uyeler tablosundan isim sütunundaki bilgileri çekiyoruz do until rs.EOF 'rs değişkeni sonkayda gelene kadar döngü içinde ilerliyoruz ListBox1.AddItem rs.Fields("isim") 'rs değişkeninde yer alan isim değerini formdaki listbox'a ekliyoruz rs.MoveNext 'bir sonraki kayda geçiyoruz loop 'döngü sonu
data sihirbazları ile yukarıdaki angaryalığı yapmana gerek kalmaz.. araç çubuğundaki data bileşenini forma koyup database adi olarak accesten yaptigin veritabanı dosyasını vermen, recorsource bağlantıları yapman gerekir... bu arada vb acces ile iletişim yaparken sorun cıkarıyor(access 2000 ustunde) yapman gereken iki şey var.. vbacess eklentisini bulup yuklemen yada acessten 97 ye donuşturu kullanman.. kolay gelsin
Öncelikle ADO ile bu bağlantıyı sağlayacağımızı düşünürsek projen için insert yada tools menüsünden References'a gel ve Microsoft ActiveX Data Objest 2.x gibi versiyonlardan sonuncusunu seç şu an 2.8 sonra ok'le onayla
Private Sub Form_Load()
dim cnn as ADODB.Connection
dim rs As ADODB.Recordset
cnn.Provider="Microsoft.Jet.OLEDB.4.0" 'Bağlantı için sağlayıcı seçiyoruz
cnn.Open("c:\proje\prj.mdb") 'DBnin yolunu gösteriyip açıyoruz
rs.Open "SELECT isim FROM uyeler",cnn 'DBdeki uyeler tablosundan isim sütunundaki bilgileri çekiyoruz
do until rs.EOF 'rs değişkeni sonkayda gelene kadar döngü içinde ilerliyoruz
ListBox1.AddItem rs.Fields("isim") 'rs değişkeninde yer alan isim değerini formdaki listbox'a ekliyoruz
rs.MoveNext 'bir sonraki kayda geçiyoruz
loop 'döngü sonu
End Sub
< Bu mesaj bu kişi tarafından değiştirildi Judge Of Nights -- 25 Ekim 2005, 22:45:48 >
Bu mesaja 1 cevap geldi. Cevapları Gizle
Bu mesaja 1 cevap geldi. Cevapları Gizle