D
DrEvil
Hi,
I would like to upload some parts of record (CaseNo, Plaintiff, Defendant,
etc.) into AS400. Here is what's going on; I got file (aao) and library
created (ccpgen) created in AS400 and I have Access database (aao.mdb) that
will need to upload some info to AS400. I was wondering what would it be the
best way to do this?? So far, I can't send info from Access to AS400 without
running query and exporting these above named fields into .txt file and then
using FTP within Access to upload this info, and the after I do the data is
in binary and not in ascii (which is what I need) everything else work just
fine. Here is the code I'm using borrowed from Mvps.org site:
Sub TestFTPUpload()
On Error GoTo ErrHandler
Dim objFTP As InetTransferLib.FTP
Const conTARGET = "ftp://stlcivil"
Set objFTP = New InetTransferLib.FTP
With objFTP
.FtpURL = conTARGET
.SourceFile = "c:\juror.txt"
.DestinationFile = "ccpgen/aao"
'.AutoCreateRemoteDir = True
'If Not .IsConnected Then .DialDefaultNumber
.ConnectToFTPHost "UserName", "Password"
.UploadFileToFTPServer
End With
ExitHere:
On Error Resume Next
Set objFTP = Nothing
Call SysCmd(acSysCmdRemoveMeter)
Exit Sub
ErrHandler:
MsgBox Err.Number & vbCrLf & Err.Description, vbCritical + vbOKOnly,
Err.Source
Resume ExitHere
End Sub
What I'm looking for is how to specify ascii format and Maybe someone has
better what without making .txt file. I can't use ODBC to directly do this
(they are afraid I'm going to create problems on AS400 since I would create
cases from different database.)
THANK YOU IN ADVANCE
I would like to upload some parts of record (CaseNo, Plaintiff, Defendant,
etc.) into AS400. Here is what's going on; I got file (aao) and library
created (ccpgen) created in AS400 and I have Access database (aao.mdb) that
will need to upload some info to AS400. I was wondering what would it be the
best way to do this?? So far, I can't send info from Access to AS400 without
running query and exporting these above named fields into .txt file and then
using FTP within Access to upload this info, and the after I do the data is
in binary and not in ascii (which is what I need) everything else work just
fine. Here is the code I'm using borrowed from Mvps.org site:
Sub TestFTPUpload()
On Error GoTo ErrHandler
Dim objFTP As InetTransferLib.FTP
Const conTARGET = "ftp://stlcivil"
Set objFTP = New InetTransferLib.FTP
With objFTP
.FtpURL = conTARGET
.SourceFile = "c:\juror.txt"
.DestinationFile = "ccpgen/aao"
'.AutoCreateRemoteDir = True
'If Not .IsConnected Then .DialDefaultNumber
.ConnectToFTPHost "UserName", "Password"
.UploadFileToFTPServer
End With
ExitHere:
On Error Resume Next
Set objFTP = Nothing
Call SysCmd(acSysCmdRemoveMeter)
Exit Sub
ErrHandler:
MsgBox Err.Number & vbCrLf & Err.Description, vbCritical + vbOKOnly,
Err.Source
Resume ExitHere
End Sub
What I'm looking for is how to specify ascii format and Maybe someone has
better what without making .txt file. I can't use ODBC to directly do this
(they are afraid I'm going to create problems on AS400 since I would create
cases from different database.)
THANK YOU IN ADVANCE