VBasic ile veritabanı bağlantısı kurmak

[burcu_86]

ben vb ile sql arasındaki baglantıyı nasıl saglıyacagımı bilmiyorum. onunla ilgili örnek arıyorum. bu konuda bilgisi olan arkadaşlar bana yardımcı olurlarsa sevinirim tşkler.yada yararlanabilecegim siteleri biliyolarsa linklerini verirlerse sevirim. tşkler

[Revne]

Google ----> using ADO in VB

daha sonra takildigin yerleri MSDN de arastir veya tekrar sor...

Kolay Gelsin

[galip_9474]

MySQL hakkında bilgi verebilirmisin acil öğrenciyim çok önemli

[Revne]

MySQL hiç kullanmadım.. Dolayısıla cok fazla yyardımcı olamıyacagim..
Veritabanları & SQL

bolumune yaz istersen orada MySQL kullanan bir çok arkadaş var..

NOT:
Eger MySQL'in ODBC destegi varsa. ODBC ile baglanabilirsin...

Kolay Gelsin...

[CeaSeR]

my sql ile bağlanmak için
öncelikle mysqlodbc driver bilgisayarında kurulu olması gerekli ardından

Public Sorgum, KayitlaR
Dim strDbAdresi, objBaglanti

Sub sorguac(Sorgum)
On Error GoTo hata
strDbAdresi = "Driver={MySQL ODBC 3.51 Driver};server=SERVERIPSIYADALOCALHOST;port=SENINP ORTUN;Database=SENINDATABASEIN;Uid=root;Pwd="
Set objBaglanti = CreateObject("ADODB.Connection")
objBaglanti.Open strDbAdresi
Set KayitlaR = CreateObject("ADODB.RecordSet")
KayitlaR.Open Sorgum, objBaglanti, 1, 3
Exit Sub
hata:
msgbox "Hata !. " & Err.Description & vbCrLf & "# Sunucuya Bağlanamadı"
End
End Sub

Sub Sorgukapat()
On Error Resume Next
KayitlaR.Close
Set KayitlaR = Nothing
objBaglanti.Close
Set objBaglanti = Nothing
End Sub


bu iki komut senin işini kolaylaştıracaktır.

diyelimki kisiler diye bir tablon var ve içinde ad soyad kısımları var

sorgum = "Select * from kisiler"
sorguac sorgum
do while not kayitlar.eof
msgbox kayitlar("ad") & " - " & kayitlar("soyad")
kayitlar.movenext
loop
sorgukapat
bu kadar basit :P