Hello Experts
i am using following code to get data from csv to access
but i am getting an error "Run Time Erro Type Mismatch"
Please assist me to solve
i am using vb6.0 and msaccess
i am using following code
Const adOpenStatic = 3
Const adLockOptimistic = 3
Const ForReading = 1
Const MDB_FILE = "D:\Crystal\A_Trans\Trans.mdb"
Const TABLE_NAME = "B_Detail"
Const TABLE_COLUMNS = "BNo,Mode,BDate,City,To,"
Const CSV_SEARCH_PATH = "D:\Crystal\A_Trans"
Dim fso As New FileSystemObject
Dim objConnection As New adodb.Connection
Dim objRecordSet As New adodb.Recordset
Dim drive, objWMIService, path, line, objFile, oFile, i, props, colFiles, columns
Set objRecordSet = CreateObject("ADODB.Recordset")
objRecordSet.Open "SELECT * FROM " & TABLE_NAME, _
con, adOpenStatic, adLockOptimistic
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
drive = Split(CSV_SEARCH_PATH, "\")(0)
path = "\\" & Replace(Split(CSV_SEARCH_PATH, drive + "\")(1), "\", "\\") & "\\"
Set colFiles = objWMIService.ExecQuery("Select * from CIM_DataFile where Drive='" + drive + "' and path = '" + path + "' and extension = 'csv'")
For Each oFile In colFiles
Set objFile = fso.OpenTextFile(oFile.Name, ForReading)
For Each line In Split(objFile.ReadAll, vbNewLine)
objRecordSet.AddNew
columns = Split(TABLE_COLUMNS, ",")
props = Split(line, ",")
For i = 0 To UBound(columns)
objRecordSet(columns(i)) = props(i)
' objRecordSet(i).Value = props(i)
Next
objRecordSet.Update
Next
Next
objRecordSet.Close
con.Close
- 7 views