Merhaba arkadaşlar şimdi vb6 da nasıl veritabanı bağlantısı yaparız nasıl veri çeker update yaparız onları anlatacağım.. Öncelikle components bölümünden ADODB yi eklemeliyiz daha sonra forma 1 adet adodb nesnesi ekleyip görüntüyü bozmasın diye visible false yapalım.. Devam edelim.. Dimdi geldi sıra Değişkenlere Declarations kısmına rst ve conn adlı 2 adet değişken atayacağız.. Conn değişkenine adodb nin connection kütüphanesi rst ise adodb nin recordset kütüphanesi atanacak.. Şimdi kodumuzu yazalım.. Kod: Dim conn as new ADODB. Connection Dim rst as new ADODB. Recordset Değişkenler tamam şimdi sıra geldi bağlantıya bağlantıyı form_load eventinde yapacağız ve bunun için bize string lazım.. Ben genelde mssql kullandığım için elimde mssql stringleri var .. Stringimiz: Provider=SQLOLEDB;Data Source='SUNUCUSUN IP ADRESİ';Network Library=DBMSSOCN;Initial Catalog='VERİTABANI ADI';User ID='GİRİŞ ID';Password='PAROLA'; Ve Şimdi form_load kodumuzu yazalım conn. open "STRINGIMIZ" Bağlantımız Tamamlandı Sıra Geldi Recordset e.. Öncelikle bir tablo yapalım kafamızdan Tablo Adı:wardom Colonlar : id | parola | puan Mesela 0sk1 idli karakterin parolasını bir değişkene atayacağız.. Önce değişkenimizi yazalım Dim Parola as String rst. Open "Select from wardom where id='0sk1'", conn,1,3 'recordseti açıyoruz ve sql kodumuzu işliyoruz Parola=rst! parola 'rst de RecordsetDeğişkenAdı! ColonAdı olarak kullanılır.. Msgbox Parola,64,"WARDOM" 'şifreyi gösterelim.. rst. close 'recordseti kapamayı unutmayalım.. Diyelim ki kullanıcıları listbox a listeleyeğiz.. Aynı tabloyu kullanalım ve listbox adı list1 olsun rst. open "Select from wardom", conn,1,3 ' rst açtık kodu yazdık Do Until RST. EOF=TRUE 'EOF > END OF FILE yani dosya sonu dosya sonuna gelene kadar LOOP ile aradaki kodları işle demek.. list1. additem rst! id 'id colonunu attık rst. movenext 'diğer kayıta geçtik eğer geçmezseniz program kitlenir kitlenmesede hep aynı şeyleri yazar.. LOOP 'buraya gelene kadar yukarıdaki kodu işler rst. close 've son.. Diyelimki veri güncelleyeceğiz puan adlı colon üzerine 5 ekleyeceğiz.. bu sefer recordseti değil bağlantı yaptığımız conn değişkenini kullanıyoruz.. bunun için; conn. execute "UPDATE wardom SET puan=puan+5 where id='0sk1'" Buraya where id='0sk1' yazmassak herkese 5 puan ekler.. Örnek bir program yapalım.. Programımızda şunlar olsun.. 2 Adet textbox > Kullanıcı Adı & Şifre Yazılacak 1 Adet Label Puan Yazacak.. 1. textbox ADI > KAD > Kullanıcı Adı Yazılan 2. textbox adı > Parola > Parola Yazılan label adı > puan > puan yazılacak ON ERROR RESUME NEXT rst. open "Select from wardom where id='" & text1. text & "'", conn,1,3 'rst açtık if rst! id="" then 'eğer rst! id bize "" olarak cevap vermişse yani yoksa... msgbox "Böyle bir Kullanıcı Adı Bulunamadı",64,"WARDOM" 'hata mesajı çıkart else 'varsa msgbox "Kullanıcı Girişi Başarılı" 'başarılı.. label1. caption=rst! puan 'puanı yaz end if 'if i sonlandır rst. close 'recordset kapat Şehir dışındayım kusura bakmayın biraz aceleye geldi resimlerle anlatırım daha sonra isteyen olursa