使用ODBC驅動下載AS400資料直接在VBA程序中使用

 

cn As New ADODB.Connection

rs As New ADODB.Recordset  

strCn = "Data source=ODBC名稱;Uid=******;Pwd=******;"

section　:SQL語句

 

直接更新AS400的檔案

     cn.Open strCn

              rs.Open section, cn

              cn.Close

下載資料到output (有時需要只得到某一欄位的值做判定時比較方便,無需將資料先下載到excel後再取excel的值做判定)

       cn.Open strCn

       rs.Open section, cn

   

       If rs.EOF Then

              output = ""

       Else

              output = rs("UIUSSC")

       End If

       rs.Close

       cn.Close

 

說明:如需更新AS400的資料ODBC的Connection type應該選Read and write