Öncelikle sql servera bağlantımızı yapmalıyız.Bunun için General Declarations bölümüne bağlantı sabitleri :
Ctrl + T ye basarak Component penceresinden "Microsoft ADO Data Control " ü seçiyoruz.Nesne penceresinden (soldaki buton,label gibi eklediğimiz pencere ) ordan bir adodb nesnesini forma ekliyoruz .. Bunu yapmazsanız general declarations kodları işlemez
Bağlantımızı sağlayacak sabitlerden sonra sorguyu gönderen kodlarımız :
Yukarıda trayhoper yazan bölüm bağlanılacak veritabanının adıdır.Yukarıdaki kodu kod penceresinin istediğiniz bir bölümüe yapıştırabilirsiniz.Eğer dediğim gibi sub içine alırsanız birçok yerde kullanabilir ve kodları kısaltmış olursunuz :
Sub içine aldığımız için başka bir sub altında sadece ismi ile kullanabiliriz .. yani form_load altında yazan baglan ın yerine sistem bizim yukarıda yazdığımıx Public Sub baglan() a yazdıklarımızı yapıştırıyor.Değişen birşey yok fakat sadece kodlarımız kısalıyor ..
Şimdi gelelim recordset i kullanmaya
Recordset veritabanından veri almak için kullanılır.Recordset ile çalışırklen genellikle sql da "Select" komutu kullanılır.Amaç zaten bilgi çekmek.Küçük bir örnek :
Ufak bir örnek gösterdim
Genel sorgu kullanımı :
Genel veri çekme :
Veritabanından sorgu ile seçtirdiğimiz bilgilerden hangisi istiyorsan "rst!" den sonra koymalıyız.Başka bir örnek daha :
Umarım anlamışsınızdır.Örnekler oldukça basit.Eğer veri göndermek istiyorsanız :
Yukarıdaki kod bağlantı ile sağlanmış sorgu gönderen bir koddur.USERDATA tablosunda strUserID si trayhoper olan birinin iLoyalty sekmesini 500 olarak değiştirdik
conn nesnesini kapatmanıza gerek yoktur çünkü conn bağlantı olarak adlandırılır.Bağlantıyı kapatmış olursunuz ve tekrar bağlanmanız gerekir
Kolay Gelsin
Gizli içerik
Ctrl + T ye basarak Component penceresinden "Microsoft ADO Data Control " ü seçiyoruz.Nesne penceresinden (soldaki buton,label gibi eklediğimiz pencere ) ordan bir adodb nesnesini forma ekliyoruz .. Bunu yapmazsanız general declarations kodları işlemez
Bağlantımızı sağlayacak sabitlerden sonra sorguyu gönderen kodlarımız :
Kod:
Public Sub baglan()
With conn
.CursorLocation = adUseClient
.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=trayhoper"
.Open
End With
End SubYukarıda trayhoper yazan bölüm bağlanılacak veritabanının adıdır.Yukarıdaki kodu kod penceresinin istediğiniz bir bölümüe yapıştırabilirsiniz.Eğer dediğim gibi sub içine alırsanız birçok yerde kullanabilir ve kodları kısaltmış olursunuz :
Gizli içerik
Sub içine aldığımız için başka bir sub altında sadece ismi ile kullanabiliriz .. yani form_load altında yazan baglan ın yerine sistem bizim yukarıda yazdığımıx Public Sub baglan() a yazdıklarımızı yapıştırıyor.Değişen birşey yok fakat sadece kodlarımız kısalıyor ..
Şimdi gelelim recordset i kullanmaya
Gizli içerik
Ufak bir örnek gösterdim
Genel sorgu kullanımı :
Kod:
rst.Open "Select * FROM DBADI WHERE sekmeadi = 'deger'",conn,1,3Genel veri çekme :
Kod:
veri = rst!sekmeadiVeritabanından sorgu ile seçtirdiğimiz bilgilerden hangisi istiyorsan "rst!" den sonra koymalıyız.Başka bir örnek daha :
Kod:
Dim trayhoper As String
rst.Open "Select * FROM TB_USER WHERE strAccountID = 'AliOsman'
' TB_USER tablosunda strAccountID si AliOsman olan şahısın bilgilerini seçtirdik
trayhoper = rst!strPasswd
' trayhoper değişkenine seçtirdiğimiz bilgilerden strpasswd sekmesindeki şifreyi yazdırdık
msgbox trayhoper
' trayhoper değişkenini mesajlayarak ekrana yansıttık
rst.close
' hataya karşın recordseti kapattıkUmarım anlamışsınızdır.Örnekler oldukça basit.Eğer veri göndermek istiyorsanız :
Kod:
conn.Execute "Update USERDATA Set iLoyalty = '500' WHERE strUserID = 'trayhoper'"Yukarıdaki kod bağlantı ile sağlanmış sorgu gönderen bir koddur.USERDATA tablosunda strUserID si trayhoper olan birinin iLoyalty sekmesini 500 olarak değiştirdik
Kolay Gelsin
