Mysql Bağlantısı

[ßyMesMes]

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!

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

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

 

[darki2696]

Tşkler...

 

[cskn192]

Teşekkürler.

 

[ßyMesMes]

Teşekkürler.

 

[UnNaturaL]

Paylaşım için teşekkürler