wince下没有odbc包,以下代码无法运行
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim strConn As String
Dim strSql As String = "select * from" + " 1.csv"
Dim objConn As OdbcConnection
Dim dataSet As DataSet = New DataSet
Dim dataRow As DataRow
Dim odbcCSVDataAdapter As New OdbcDataAdapter
dataSet.Tables.Add(New DataTable())
strConn = "Driver={Microsoft Text Driver (*.txt; *.csv)};Dbq="
strConn += "e:\"
strConn += ";Extensions=asc,csv,tab,txt;"
objConn = New OdbcConnection(strConn)
odbcCSVDataAdapter = New OdbcDataAdapter(strSql, objConn)
odbcCSVDataAdapter.Fill(dataSet.Tables(0))
End Sub