Bağlantı Kesintisi

[Recep İpek]

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?

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

 

[Zeki Gürsoy]

Acaba diğer kullanıcı da "SYSDBA" ile mi bağlanıyor?

 

[Recep İpek]

Her kullanıcının programda kendi Username ve Şifresi var.Fakat bu şifreyi girdiklerinde sanırım program tabloya bağlanmak için otomatik olarak bu SYSDBA kullanabilir.

Açıkcası fazla bilgim yok.

Veritabanı şifresi ile programa girmek için kullanılan kullanıcı adı ve şifre arasında nasıl bir bağlantı olduğunu gerekirse firmadan öğrenebilirim.

 

[Zeki Gürsoy]

Firebird/Interbase'i local olarak kullandığım için bu durumla karşılaşmadım.
Interbase/Firebird programcıları (Delphi) IBDataset gibi bir bağlantı nesnesi kullanırlar.

Program, oto. SYSDBA ile bağlanıyorsa bu acemilik olur. Dahası aynı programı kullanan siz ve diğer kullanıcılarında başına aynı şey gelirdi.(O program ile oturum açılırken)

Eğer öyle değilse, konuyla ilgili şu anda kesin bir fikrim olmamakla birlikte ADO Connection ve Recordset kilit tiplerini değiştirerek denemenizi önerebilirim.

Hatta, ODBC ile diğer makineden bağlantı kurun. Sizin bağlantınız kesilecek mi?

 

[modalı]

Sayın ripek,

Bir de şu kodlarla deneyin:

Dim con As New ADODB.Connection
con.Open "Driver={Easysoft Interbase ODBC};" _
    & "Database=myinterbaseserver:c:\myinterbasedatabase.gdb;" _
    & "UID=myinterbaseusername;PWD=myinterbaseusername"
Dim rs As New ADODB.Recordset

rs.Open "select column from mytable", con

Do Until rs.EOF
   Debug.Print rs.Fields(0)
   rs.MoveNext
Loop

rs.Closecon.Close

Bir de aşağıdaki link yardımcı oabilir:

http://www.easysoft.com/products/data_access/odbc_interbase_driver/manual/ib7TOC.html

İyi çalışmalar

 

[Recep İpek]

ADO Connection ve Recordset kilit tiplerini değiştirerek denemenizi önerebilirim.

.LockType = adLockReadOnly yapınca şu anki denemelerimde işe yaradı.

Teşekkürler arkadaşlar.

 

[Recep İpek]

Asıl atladığım nokta;

.CursorType = adOpenStatic

satırındaymış.

Aşağıdaki şeklikde yapınca gayet uygun oldu.

Set Kayit1 = CreateObject("ADODB.Recordset")
With Kayit1
.ActiveConnection = Baglanti
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Source = SQLStr
.Open
End With