- Katılım
- 5 Ocak 2014
- Mesajlar
- 3,333
- Tepkime puanı
- 6
- Puanları
- 136
1.Mysql Bağlantısı ( Modüle Yazılacak Bu Sonra İlk Form Loadtada Call baglanyi_kur yazmanız yeterli )
Kod:
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
Kod:
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
