1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| Imports System.IOImports ADODB
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim cn As New ADODB.Connection
ShemaIn()
cn.ConnectionString = "Driver={Microsoft Text Driver (*.txt; *.csv)};DefaultDir=C:\MyRep"
cn.Open()
Dim objRecordset As Object = cn.Execute("SELECT * FROM test#csv")
Dim ee = objRecordset.getrows
End Sub
Public Sub ShemaIn()
Dim txt As String = "[test.csv]" & vbCrLf & "Format=Delimited(;)"
Dim fso As Object, NewFichier As Object
fso = CreateObject("Scripting.FileSystemObject")
NewFichier = fso.OpenTextFile("C:\MyRep\schema.ini", 2, True)
NewFichier.Write(txt)
NewFichier.Close
NewFichier = Nothing
fso = Nothing
End Sub
End Class |
Partager