Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
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.
|Storage and Retrieval of ISO-8601 Format Date/Timestamp Records in Access / SQL Server||10||58|
|Count text color with conditional formating in Excel||4||58|
|MS Access How To Append and Prepend a String To Each line In a Table Field Value||5||37|
|Excel 2007 Random Generate List Based on Defined Source Cells||3||21|