- Katılım
- 14 Şubat 2006
- Mesajlar
- 3,426
- Excel Vers. ve Dili
- (Excel 2016 - İngilizce)
- Altın Üyelik Bitiş Tarihi
- 30-11-2022
Aşağıdaki kodlar ile İnterbase veritabanına bağlanabiliyorum.
Fakat ben veri çekmek için bağlantığımda, o an bu tabloya programla bağlı olup çalışan kişinin bağlantısı kesiliyor.
Eğer çözümü var ise bağlantının kesilmemesi için kodlarda nasıl bir değişiklik yapmam gerekir?
Fakat ben veri çekmek için bağlantığımda, o an bu tabloya programla bağlı olup çalışan kişinin bağlantısı kesiliyor.
Eğer çözümü var ise bağlantının kesilmemesi için kodlarda nasıl bir değişiklik yapmam gerekir?
Kod:
Sub PDKSBaglanti()
On Error GoTo Son
Dim Baglanti As ADODB.Connection
Dim Kayit1 As ADODB.Recordset
Dim SQLStr, Kaynak As String
'********************************************************
Kaynak = "D:\BARDES\PDKS\DATA\PDKSIB.GDB"
SQLStr = "SELECT SICILNO, ADI,SOYADI,DEPARTMANADI"
Set Baglanti = CreateObject("ADODB.Connection")
With Baglanti
.CursorLocation = adUseClient
.Mode = adModeRead
.ConnectionString = "DRIVER=Firebird/InterBase(r) driver;USER ID=SYSDBA;PASSWORD=masterkey; CHARSET=NONE; DBNAME=" & Kaynak
.Open
End With
If Err = 0 Then
Set Kayit1 = CreateObject("ADODB.Recordset")
With Kayit1
.ActiveConnection = Baglanti
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.Source = SQLStr
.Open
End With
'..........
'............
Else
MsgBox "Aradığınız Kayıt Bulunamadı.", vbInformation, "Bilgi"
End If
Else
Son:
MsgBox "Bağlantı Hatası.Kontrol Ediniz", vbInformation, "Bilgi"
End If
If (Kayit1.State <> adStateClosed) Then Kayit1.Close
Set Kayit1 = Nothing
If (Baglanti.State <> adStateClosed) Then Baglanti.Close
Set Baglanti = Nothing
End Sub
Son düzenleme: