タイトル | : MDBにCSVファイルをインポート |
記事No | : 7253 |
投稿日 | : 2008/03/26(Wed) 13:48 |
投稿者 | : むら |
いつもお世話になっております
WindowsXP VB2005 環境です
VB5 DAO のソースを VB2005 ADO にコンバートしているのですが インポートのソース記述が調査しているのですがよくわかりません 申し訳ありませんがどなたかご教示ください
以下コードです --------------------------------------------------------------- <VB5 DAO> Public Db As DAO.Database 'データベース変数
Dim td As DAO.TableDef
Db = DAODBEngine_definst.OpenDatabase("C:\A.MDB", False, False, "")
td = Db.CreateTableDef("S情報") td.Connect = "Text;DATABASE=" & "C:\" & ";TABLE=" & "S情報.CSV;" td.SourceTableName = "S情報.CSV" Db.TableDefs.Append(td)
↓
<VB2005 ADO> Dim cat As ADOX.Catalog Dim tbl As New ADOX.Table Dim strConnect As String strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & "C:\A.MDB" & ";" cat = New ADOX.Catalog cat.let_ActiveConnection(strConnect) tbl.Name = "S情報" (ここからどのような記述をすればいいかがわかりません・・・)
|