文件名的特别字符 导致数据库连不上?求解答
2012.02.25_d3.csv 有这样一个文件
我用以下方法数据库连接
DS = getDataset("select top 1 * from " & safefilename & " where [F4] = 'Mid-M 70%' order by [F2],[F3] desc", Filepath)'FilePath为该CSV所在文件夹,safefilename为该文件文件名 Function getDataset(ByVal sql As String, ByVal path As String) As DataSet Try Dim connstr As String = "Provider=Microsoft.jet.OLEDB.4.0;Data Source= " & path & "\;Extended Properties=""text;HDR=no;FMT=Delimited""" Dim conn As OleDbConnection = New OleDbConnection(connstr) Dim adapter1 As OleDb.OleDbDataAdapter = New OleDbDataAdapter(sql, conn) Dim cmd As OleDbCommand = New OleDbCommand Dim commandBuilder As OleDbCommandBuilder = New OleDbCommandBuilder(adapter1) getDataset = New DataSet adapter1.Fill(getDataset, "temp") Catch ex As Exception MsgBox(ex.Message) End Try End Function