05/05/2020, 12:50
accessman
Access Dosya Güncelleme İnternetten adresinde internetten indirmek ile ilgili güzel örnekler var. Ama bizim durum biraz farklı
Network yerel ağda ana bilgisayarda sqlite veri tabanı var. Client bilgisayarlarda ise Access programına şu kod ile bağlanıyor
Network yerel ağda ana bilgisayarda sqlite veri tabanı var. Client bilgisayarlarda ise Access programına şu kod ile bağlanıyor
Sub ChangeConnectTable(Optional dbPathName As String = "C:", Optional ViaConnect As Boolean = True)
Dim sConnect As String
Dim dbs As Variant
Dim tdf As TableDef
Dim prp As Property
Dim dolar As String
'Database=" & CurrentProject.path & "\adressenneu.sqlite;
'Database=C:\pmf\mrs.db
';PWD=Admin
dolar = ""
If (dbPathName = "C:") Then dolar = "$"
sConnect = "ODBC;DSN=SQLite3 Datasource;" & _
"Driver={SQLite3 ODBC Driver};" & _
"Database=" & dbPathName & "\smltrkkl" & dolar & "\akca\data\mrs.db;" & _
"LongNames=0;ShortNames=0;NoWCHAR=0;FKSupport=1;" & _
"Timeout=500;NoTXN=0;OEMCP=1;BigInt=0;JDConv=0;StepAPI=0;" & _
"NoCreat=1;SyncPragma=FULL;"
Debug.Print sConnect
DoCmd.TransferDatabase acLink, "ODBC Database", sConnect, acTable, "tUser", "tmUser"
Exit Sub
If ViaConnect Then
Set dbs = CurrentDb
Set tdf = dbs.TableDefs("tmUser")
tdf.connect = sConnect
tdf.RefreshLink
dbs.TableDefs.Refresh
Set tdf = Nothing
Else
DoCmd.TransferDatabase acLink, "ODBC Database", sConnect, acTable, "tblAdressen", "tmUser"
DoCmd.DeleteObject acTable, "tmUser"
DoCmd.Rename "tblAdressen", acTable, "tblAdressen1"
End If
End Sub
yani dosyalar internetten indirilmek yerine ağdaki bilgisayardan alınsa yukardaki adresteki programda nasıl bir değişiklik yapılması lazım