既存のAccessのテーブルに空の領域を作成する
既存のAccess2000のテーブルに空の領域を作成する
プログラムを作っているのですが(下記参照)、
「データベースの形式 <ファイル名> を認識できません。(Error 3343)」の
エラーが出ます。
【状況説明】
・パスの内容、パス名、DB名はあっています。
・編集前のDB前に戻して(テーブル内に空白データが無い状態)、
再実行してもダメでした。
・参照設定「DAO 3.51 Object Libraly」はチェックしています。
「DAO 3.6 Object Libraly」にチェックすると、
「この名前は既にあるモジュール、プロジェクト、オブジェクト
ライブラリで使われています。」のメッセージが出て、チェック出来ません。
解決方法がありましたら、記入をお願い致します。
【作成プログラム】
'DB関連設定
Dim DBName As String(iniファイルから取得したDB名)
Dim SQL As String (SQL文領域)
Dim DB名 As DAO.Database
'データベース接続
Set DB = OpenDatabase(iniファイルから取得したパス & "\" &
DBName)
'領域作成
Do While 数値 > 0
SQL名 = ""
SQL名 = SQL名 & "INSERT INTO テーブル (A, B, C) "
SQL名 = SQL名 & "VALUES ("", "", ""); "
db.Execute (SQL)
数値 = 数値 - 1
Loop
db.Close