タイトル : Re: csv→mdbへのインポート 投稿日 : 2008/04/08(Tue) 07:55 投稿者 : YK
こんにちは。 > VB6.0でcsvをmdbにインポートは出来るのでしょうか? > 一括で変換する方法はありますでしょうか? サンプルです。 Sub MdbInsertTEST() Dim strMDB As String Dim strSQL As String Dim strCSV As String Dim strPath As String Dim TblName As String Dim adoConn As ADODB.Connection strMDB = "D:\TEST.mdb" 'MDB のFullPath strCSV = "TEST.CSV" 'CSV File 名 strPath = "D:\TEST\" 'CSV File の Path TblName = "T_TEST" 'Table 名 strSQL = "INSERT INTO " & TblName & " " & _ "SELECT * FROM [" & strCSV & "] IN '" & strPath & "' " & _ "'Text;HDR=YES'" Set adoConn = New ADODB.Connection With adoConn .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Data Source=" & strMDB .Open .Execute strSQL End With adoConn.Close Set adoConn = Nothing End Sub |