Klasična Access aplikacija se izvršava lokalno, ali tabela SIFKOM, tj. šifarnik komitenata, trebala bi da se na On Click updateuje podacima koji se popunjavaju na udaljenoj lokaciji.
Na remote lokaciji je Advantage Database Server. Izguglao sam i prepravio rešenje za internet konekciju, napravio unbound datasheet formu, i na open event postavio sledeći kod:
Code:
Private Sub Form_Open(Cancel As Integer)
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
'Create a new ADO Connection object
Set cn = New ADODB.Connection
With cn
.Provider = "Advantage OLE DB Provider;LockMode=ADS_COMPATIBLE_LOCKING;User ID=USER;Password=Pass; Data Source=\\adresa:6263\software\baza.add;Advantage Server Type=ADS_AIS_SERVER;ReadOnly=TRUE;TableType=ADS_CDX"
.Open
End With
'Create an instance of the ADO Recordset class, and
'set its properties
Set rs = New ADODB.Recordset
With rs
Set .ActiveConnection = cn
.Source = "SELECT SIFRA_KOM, NAZIV_KOM, POSTA, ADRESA, MESTO_KOM, TEKUCI, PIB, REFER, DATUM, VREME from SIFKOM where PIB is not null order by SIFRA_KOM"
.LockType = adLockReadOnly
.CursorType = adOpenKeyset
.CursorLocation = adUseClient
.Open
End With
'Set the form's Recordset property to the ADO recordset
Set Me.Recordset = rs
Set rs = Nothing
Set cn = Nothing
Set cn = Me.Recordset.ActiveConnection
cn.Close
End Sub
Private Sub Form_Open(Cancel As Integer)
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
'Create a new ADO Connection object
Set cn = New ADODB.Connection
With cn
.Provider = "Advantage OLE DB Provider;LockMode=ADS_COMPATIBLE_LOCKING;User ID=USER;Password=Pass; Data Source=\\adresa:6263\software\baza.add;Advantage Server Type=ADS_AIS_SERVER;ReadOnly=TRUE;TableType=ADS_CDX"
.Open
End With
'Create an instance of the ADO Recordset class, and
'set its properties
Set rs = New ADODB.Recordset
With rs
Set .ActiveConnection = cn
.Source = "SELECT SIFRA_KOM, NAZIV_KOM, POSTA, ADRESA, MESTO_KOM, TEKUCI, PIB, REFER, DATUM, VREME from SIFKOM where PIB is not null order by SIFRA_KOM"
.LockType = adLockReadOnly
.CursorType = adOpenKeyset
.CursorLocation = adUseClient
.Open
End With
'Set the form's Recordset property to the ADO recordset
Set Me.Recordset = rs
Set rs = Nothing
Set cn = Nothing
Set cn = Me.Recordset.ActiveConnection
cn.Close
End Sub
i podaci su na formi za manje od 2 sekunde. Moje pitanje glasi, kako recordset prebaciti u lokalnu Access tabelu, odnosno kako izvršiti update lokalne Access tabele dobijenim recordset sadržajem?
Hvala!