Problem solved, I just needed to run code from ADMIN_CMD.
For everyone who wiil need this code in future:
Option Explicit
Dim DBCONSRT, QRYSTR As String
Dim DBCON, DBRS As Object
Dim excel_app As Object
Private Sub CSVtoDB2()
Set excel_app = CreateObject("Excel.Application")
DBCONSRT = "Driver={IBM DB2 ODBC DRIVER};Database=OFFROAD;hostname=localhost;port=50000;protocol=TCPIP; uid=db2admin; pwd=sample123"
'CHANGE THE BELOW QUERY STRING ACCORDING TO YOUR NEEDS, THIS ONE IMPORTS CSV FROM FILE PATH INTO TABLE CALLED RAZPORED
QRYSTR = "Call SYSPROC.ADMIN_CMD ('IMPORT FROM C:\Users\db2admin.Luka-PC\Documents\auth.csv OF DEL INSERT INTO db2admin.razpored')"
Set DBCON = CreateObject("ADODB.Connection")
DBCON.ConnectionString = DBCONSRT
DBCON.Open
'BELOW CODE USED TO GET THE DATABASE CONECTION AND EXECUTE THE QUERY CHANGE ACCORDING TO YOUR NEED
Set DBRS = CreateObject("ADODB.Recordset")
With DBRS
.Source = QRYSTR
Set .ActiveConnection = DBCON
.Open
End With
End Sub
And be very careful with charachers when writing QUERY commands
Bookmarks