S
steven.britton
When I do the below I get the message Provider cannot be found? What
am I not seeing here? I am trying to remove the use of the report
downloader Evergreen in certain applications.
Public Sub Open_AS400()
Dim rst As ADODB.Recordset
Dim strSQL As String
strSQL = "Select * from mylib.myfile"
Set rst = New ADODB.Recordset
' xxx = my IP of the server containing the files
rst.Open strSQL, "Provider=IBMDA400;Data Source=xxx.xxx.xxx.xxx;"
Range("A2").CopyFromRecordset rst
End Sub
am I not seeing here? I am trying to remove the use of the report
downloader Evergreen in certain applications.
Public Sub Open_AS400()
Dim rst As ADODB.Recordset
Dim strSQL As String
strSQL = "Select * from mylib.myfile"
Set rst = New ADODB.Recordset
' xxx = my IP of the server containing the files
rst.Open strSQL, "Provider=IBMDA400;Data Source=xxx.xxx.xxx.xxx;"
Range("A2").CopyFromRecordset rst
End Sub