- Katılım
- 3 Şubat 2014
- Mesajlar
- 1,744
- Tepkime puanı
- 0
- Puanları
- 0
SQL BAĞLANTISI
Form'daki General bölümüne aşağıdaki kodları koyuyoruz:
CTRL+T ye basıp, Microsof ADO Data Control 6.0'ı seçip eklemeyi unutmayın.
Kod:
[/B][FONT=Verdana]Dim conn As New ADODB.Connection Dim rst As New ADODB.Recordset [/FONT][B]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:
[FONT=Verdana]With conn .CursorLocation = adUseClient .ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=" & Text1.Text & "" .Open End With [/FONT]Üstteki koda göre Text1 boxtaki yazan veri tabanı adına göre veri tabanına bağlanacak. isterseniz " & Text1.Text & " silerek kendiniz yazabilirsiniz.
Örn: ,Initial Catalog=LOCAL_DB"
Uzak SQL bağlantısı için aşağıdaki kodu kullanıcaz:
Not: 1433 port u açık olmassa bağlantı sağlanamaz. ve ipnin yanında mutlaka ,1433 olması lazım
Kod:
[FONT=Verdana]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 [/FONT]Yukardaki koda göre :
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 bölümüne "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[COLOR=red]!Para[/COLOR]) rst.CloseUSER tablosunda UserID satırında ListX teki olan UserID nin satırında Para sütununu TextX e geçiriyor.
Bir tablodan örnek NERO tablosundan TheNeroStyle'nin yaşını öğrencez. bunun için :
Kod:
rst.Open " Select * FROM NERO Where UserID = 'TheNeroStyle' ", conn, 1, 3 Text1.Text = Trim(rst![COLOR=red]Age[/COLOR]) rst.CloseBu kodu bir butona koyduğunuzu varsayın, butona bastığınızda Text1 e NERO adlı tabloda TheNeroStyle ye ait satırdaki Age sütununda ne yazıyor "14" otomatikman Text1 e geçicektir.
VERI TABANINA KAYIT YAPMAK
Son olarak veri tabanına her hangi bir veriyi kaydetmeyi göstericem.. Çok basit fazla birşey yok bu olayda.
conn.Execute " QUERY KODU " olarak yapılıyor bu olay,
örnek :
Kod:
conn.Execute " UPDATE NERO SET Age = '14' wher UserID='TheNeroStyle' "evet herşey bu kadar. kolay gelsin
