VisualBasic_MysqL_baglantisi.htm
.Mysql Bağlantısı ( Modüle Yazılacak Bu Sonra İlk Form Loadtada Call baglanyi_kur yazmanız yeterli )


 
Kod Alanı:

 
Global kutup As New ADODB.Connection
Global cmd As New ADODB.Command
Public Sub baglanti_kur( )
If kutup.State = 1 Then kutup.Close
With kutup
        .CursorLocation = adUseClient
        .ConnectionString = "Provider= MSDASQL.1;Persist Security Info=False;User ID=root;Data Source=dsnkutup;Initial Catalog=kutuphane;"
        .Open
    End With
Set cmd.ActiveConnection = kutup
End Sub


 

Yardım İçin Sadece Bir Tık Yeter
 
Sponsor
 
.tk
 
Bu web sitesi ücretsiz olarak Bedava-Sitem.com ile oluşturulmuştur. Siz de kendi web sitenizi kurmak ister misiniz?
Ücretsiz kaydol