ByTiryaKi
██►Programmer Editör™◄██
- Haz
- 507
- 0
Merhabalar Arkadaşlar
Bu Gün Size Editörle Databaseye Bağlanmayı Anlatacağım.Elimden Geldiği Kadar Açık Yapmaya Çalıştım,şuana kadar 1-2 Arkadaş Anlatmaya Çalışmış Fakat Tam Olarak Anlatamamışlar Şahsen Bende Anlayamadım Hönk
NEYSE...
RESİMLERLE ANLATMAYA GEÇELİM;
http://i1008.hizliresim.com/2021/8/12/146.jpg
http://i1008.hizliresim.com/2021/8/12/150.jpg
http://i1008.hizliresim.com/2021/8/12/154.jpg
http://i1008.hizliresim.com/2021/8/12/157.jpg
http://i1008.hizliresim.com/2021/8/12/158.jpg
http://i1008.hizliresim.com/2021/8/12/159.jpg
http://i1008.hizliresim.com/2021/8/12/162.jpg
http://i1008.hizliresim.com/2021/8/12/166.jpg
http://i1008.hizliresim.com/2021/8/12/168.jpg
http://i1008.hizliresim.com/2021/8/12/169.jpg
------------------------------------------------------------------------------------------
RESİMLERDE KODLARI TAM OLARAK GÖREMEDİNİZ Mİ BUYRUN
PHP:
Dim conn As New ADODB.Connection
Dim rst As New ADODB.Recordset
------------------------------------------------------------------------------------------
Public Sub baglan()
With conn
.CursorLocation = adUseClient
.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog='" & Text1 & "'"
.Open
End With
End Sub
----------------------------------------------------------------------------------
Private Sub Command1_Click()
On Error GoTo hata2
With conn
.CursorLocation = adUseClient
.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog='" & Text1.Text & "'"
.Open
End With
MsgBox ("Tebrikler Başarıyla Bağlandınız."), vbInformation, "Bilgi"
Exit Sub
hata2:
MsgBox "Baglanti saglanılamadı. Lütfen Tekrar Deneyiniz...!", vbCritical, "Hata"
End Sub
ARKADAŞLAR UMARIN AÇIKLAYICI OLMUŞTUR,ÇOK UĞRAŞTIM DEYMİŞTİR SANIRIM + REPLERİ VE TEŞEKKÜRLERİ UNUTMAMANIZ DİLEĞİYLE
Son düzenleme:
2.000.000 TL ⚔️ Ödüllü MYKOv2 GENESIS | 24 Nisan 2026 ⚔️ Resmi Açılış Başlıyor!