タイトル : MDBにCSVファイルをインポート 投稿日 : 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情報" (ここからどのような記述をすればいいかがわかりません・・・) |