«
»

VB6 MySQL Örnekleri

Aşağıdaki örneğin çalışabilmesi için gerekli olanlar.

  • Mysql sitesinden indirebileceğiniz MyODBC sürücüleri.
  • Visual Basic IDE’sinde projeye Microsoft ActiveX Object Library 2.8 referans olarak seçilmeli.
  • Örnek forma 1 adet button , datagrid ve listbox nesnelerinin eklenmesi gereklidir.

Örnek Kod :

Option Explicit
‘ Bağlantı için nesne oluşturuluyor.
Dim conn As New ADODB.Connection

Private Sub cmdCommand1_Click()
Dim rs As New ADODB.Recordset
Dim dizi() As String conn.CursorLocation = adUseClient
conn.ConnectionString = "uid=db_kullanıcı_adı;pwd=Db_parolası;" _
& "server=sunucu_adı;" _
& "driver={MySQL ODBC 3.51 Driver};" _
& "database=DatabaseAdı;"

‘ Bağlantı yapılıyor.
conn.Open

‘Recordset nesnesine bilgi çekiliyor.
rs.Open "select no,adi,soyadi from tablo", conn, adOpenDynamic, adLockOptimistic

‘Recordseti grid objesine bind edebiliriz.
Set DataGrid1.DataSource = rs

‘Ve satır nesnesine ulaşabilirsiniz.
Dim satir As String satir = rs!adi

‘Veya sorgumuzdaki tüm kayıtları bir listbox’a ekleyebiliriz.
Do While Not rs.EOF
List1.AddItem (rs!adi)
rs.MoveNext Loop

‘ Komutlar şu şekilde örnek bir insert işlemi.
conn.Execute "insert into tablo (adi,soyadi) values (‘Taner’,'özdaş\’)"

‘örnekler çoğaltılabilir. :)

‘Bağlantıyı kapatmayı unutmamalıyız !
conn.Close
End Sub

Son Aramalar:

Be Sociable, Share!

 

Etiketler: mysql örnekleri, vb6

Bu yazı Cuma, 11 Haziran 2010, 17:29 tarihinde Örnek Kodlar kategorisi altında yayınlandı. Bu yazıya yapılacak yorumlardan haberdar olmak için RSS 2.0 beslemesini kullanabilirsiniz. Yorum yapma ve pingleme kapalı.

Yorum yapma kapalı.