Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
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
|Expression in Access Query Field not showing null results||11||43|
|Using Case or If statement in Select statement, result is a string. Need a number.||4||46|
|HELP! MS Access VBA How Do you Add Attachments To XML Files Before Sending Over HTTP As API Call||36||48|
|SQL Server Compression Decision||5||43|