Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Public Function uploadLog() 'Uploads the Problem to the Server based mdb Dim cn As ADODB.Connection Dim rsLog As DAO.Recordset Dim rsWeb As ADODB.Recordset Dim strSQL As String Dim strCn As String Dim myURL As String Dim fld as field 'Get the local records to be send to the server DB strSQL = "SELECT * FROM PROBLEMLOG WHERE SendToSupport=False" Set rsLog = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset) If rsLog.RecordCount > 0 Then 'There are some records to send 'Now Make connection to the server side Access 2003 mdb '***** TROUBLE HERE! ********* Set cn = New ADODB.Connection myURL = "//www.myurl.com.au/mydblocation/mydbname.mdb" strCn = "Provider=MS Remote; Remote Server=" & myURL _ & "Remote Provider=Microsoft.Jet.OLEDB.4.0;" With cn .ConnectionString = strCn .CursorLocation = adUseServer .OPEN End With '***** I THINK ITS OK FROM HERE ON? ******** '***** BUT CAN'T GET PAST THE CONNECTION BIT TO SEE ***** 'Open the Server Side Recordset for editing Set rsWeb = New ADODB.Recordset rsWeb.OPEN "SELECT * FROM PROBLEMLOG", cn 'If connection made then continue to write rsLog.MoveFirst Do Until rsLog.EOF rsWeb.AddNew For Each fld In rsLog.Fields Debug.Print fld.NAME, rsLog(fld.NAME), fld.Type rsWeb(fld.NAME) = rsLog(fld.NAME) Next fld rsWeb.Update 'Edit the local record so that it it does get resend next time rsLog.Edit rsLog!SentToSupport = True rsLog.Update 'move onto the next record rsLog.MoveNext Loop End If End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.