Oncelikle tekrar belirtmek isterim, alıntı değildir. yaptığım butun paylaşımlar genelde hep bana ait olmaktadır.

Başlıyoruz..

SQL BAĞLANTISI

Form'daki General bolumune aşağıdaki kodları koyuyoruz:

CTRL+T ye basıp, Microsof ADO Data Control 6.0'ı secip eklemeyi unutmayın.

Kod:
Dim conn As New ADODB.Connection Dim rst As New ADODB.Recordset
Bir buton veya form_load a herhangi istediğiniz bir yere aşağıdaki SQL bağlantı kodunu koyuyoruz (LOCAL BAGLANTI [Sadece kendi pc nize])

Kod:
With conn .CursorLocation = adUseClient .ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=" & Text1.Text & "" .Open End With
Ustteki koda gore Text1 boxtaki yazan veri tabanı adına gore veri tabanına bağlanacak. isterseniz " & Text1.Text & " silerek kendiniz yazabilirsiniz.

Orn: ,Initial Catalog=LOCAL_DB"

Uzak SQL bağlantısı icin aşağıdaki kodu kullanıcaz:

Not: 1433 port u acık olmassa bağlantı sağlanamaz. ve ipnin yanında mutlaka ,1433 olması lazım

Kod:
With conn .CursorLocation = adUseClient .ConnectionString = "Provider=SQLOLEDB;Data Source=88.88.88.88,1433;Network Library=DBMSSOCN;Initial Catalog=LOCAL_DB;User ID=TheNeroStyle;Password=Nero;" .Open End With
Yukardaki koda gore :

88.88.88.88 ; bağlanacağı pc nin ip si
LOCAL_DB ; veri tabanı ismi
TheNeroStyle ; SQL db kullanıcı adı
Nero ; SQL db kullanıcı şifresi

VERI TABANINDAN VERI CEKMEK

evet hatırladıysanız General bolumune "Dim rst As New ADODB.Recordset" eklemiştik.

isterseniz bir butona vs. istediğiniz yere aşağıdaki kodu yazın.

Kod:
rst.Open "Select * FROM USER Where UserID = '" & ListX.Text & "'", conn, 1, 3 TextX.Text = Trim(rst!Para) rst.Close
yukarıdaki koda gore:

USER tablosunda UserID satırında ListX teki olan UserID nin satırında Para sutununu TextX e geciriyor.

Bir tablodan ornek NERO tablosundan TheNeroStyle'nin yaşını oğrencez. bunun icin :

Kod:
rst.Open " Select * FROM NERO Where UserID = 'TheNeroStyle' ", conn, 1, 3 Text1.Text = Trim(rst!Age) rst.Close
Text1.Text 'e otomatikman yaşımız gecti,

Bu kodu bir butona koyduğunuzu varsayın, butona bastığınızda Text1 e NERO adlı tabloda TheNeroStyle ye ait satırdaki Age sutununda ne yazıyor "14" otomatikman Text1 e gecicektir.

VERI TABANINA KAYIT YAPMAK

Son olarak veri tabanına her hangi bir veriyi kaydetmeyi gostericem.. Cok basit fazla birşey yok bu olayda.

conn.Execute " QUERY KODU " olarak yapılıyor bu olay,

ornek :

Kod:
conn.Execute " UPDATE NERO SET Age = '14' wher UserID='TheNeroStyle' "
bu kodla NERO adlı tablodaki TheNeroStyle adlı kişinin satırındaki Age sutununa 14 yazdık. Butona vs. koya bilirsiniz.

evet herşey bu kadar. kolay gelsin

ilerde daha değişik vb6 paylaşımlarımla.. goruşmek uzere anlamayan varsa konu altından yardımcı olabilirim.

__________________