Option Compare Database
Option Explicit
'**********************************************************
'* Library of Bilgisayarcı Ado
'* www.accesstr.net kullanıcıları için
'* Bilgisayarcı tarafından tasarlanmıştır.
'**********************************************************
Global Rs1 As adodb.Recordset
Global Rs2 As adodb.Recordset
Global Rs3 As adodb.Recordset
Global RsEx As adodb.Recordset
Public Function AdoKapa(i As Integer) As Boolean
On Error GoTo AdoKapaHata
AdoKapa = False
Select Case i
Case 1
If Not Rs1 Is Nothing Then
If Rs1.State = adStateOpen Then Rs1.Close
End If
Case 2
If Not Rs2 Is Nothing Then
If Rs2.State = adStateOpen Then Rs2.Close
End If
Case 3
If Not Rs3 Is Nothing Then
If Rs3.State = adStateOpen Then Rs3.Close
End If
Case 4
If Not RsEx Is Nothing Then
If RsEx.State = adStateOpen Then RsEx.Close
End If
End Select
AdoKapa = True
Exit Function
AdoKapaHata:
AdoKapa = False
End Function
Public Function AdoAc1(sql As String) As Boolean
AdoAc1 = True
On Error GoTo AdoHata
If IsNull(Trim(sql)) Then Exit Function
AdoKapa 1
Set Rs1 = New adodb.Recordset
With Rs1
Set .ActiveConnection = CurrentProject.Connection
.Source = sql
.LockType = adLockOptimistic
.CursorType = adOpenKeyset
.Open
End With
AdoAc1 = True
Exit Function
AdoHata:
MsgBox Err.Description
AdoAc1 = False
End Function
Public Function AdoAc2(sql As String) As Boolean
AdoAc2 = False
On Error GoTo AdoHata
If IsNull(Trim(sql)) Then Exit Function
AdoKapa 2
Set Rs2 = New adodb.Recordset
With Rs2
Set .ActiveConnection = CurrentProject.Connection
.Source = sql
.LockType = adLockOptimistic
.CursorType = adOpenKeyset
.Open
End With
AdoAc2 = True
Exit Function
AdoHata:
MsgBox Err.Description
AdoAc2 = False
End Function
Public Function AdoAc3(sql As String) As Boolean
AdoAc3 = False
On Error GoTo AdoHata
If IsNull(Trim(sql)) Then Exit Function
AdoKapa 3
Set Rs3 = New adodb.Recordset
With Rs3
Set .ActiveConnection = CurrentProject.Connection
.Source = sql
.LockType = adLockOptimistic
.CursorType = adOpenKeyset
.Open
End With
AdoAc3 = True
Exit Function
AdoHata:
MsgBox Err.Description
AdoAc3 = False
End Function
Public Function AdoAcEx(sql As String) As Boolean
AdoAcEx = False
On Error GoTo AdoHata
If IsNull(Trim(sql)) Then Exit Function
AdoKapa 4
Set RsEx = New adodb.Recordset
With RsEx
Set .ActiveConnection = CurrentProject.Connection
.Source = sql
.LockType = adLockOptimistic
.CursorType = adOpenKeyset
.Open
End With
AdoAcEx = True
Exit Function
AdoHata:
MsgBox Err.Description
AdoAcEx = False
End Function
Sayın Kadirdursun sanırım aşağıdaki MOdülü eklemeyi unutmuşsunuz..
Kaplumbağa ya dikkat et...
Sadece başını çıkartıp risk aldığında ilerleyebiliyor...
Sadece başını çıkartıp risk aldığında ilerleyebiliyor...