- Kod: Tümünü seç
Private BAGLAN As Object, rs As Object
Sub BAGLANTI()
On Error Resume Next
Set BAGLAN = CreateObject("adodb.connection")
#If VBA7 And Win64 Then
BAGLAN.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\EVN.mdb;"
#Else
BAGLAN.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\EVN.mdb;"
#End If
'BAGLAN.Open "provider=microsoft.jet.oledb.4.0;data source=" & "\\Serveradı\Klasöradı\EVN.mdb"
End Sub
-
- Destek
-
Özel Arama