VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2004/12/01(Wed) 10:04
投稿者： おじん
Ｅメール：
ＵＲＬ：
タイトル： mdbファイル（Access）の書きこみ

次のようにして「新規」にデータを書きこもうとしています。
この時、「質問の部分」について、教えてください。
Dim db as DataBase
Dim ds as Recordset
Dim Dbfile$'データバースファイル名をセット
Set db = DBEngine.Workspaces(0).OpenDatabase(DBfile)
Set ds = db.OpenRecordset("テーブル1", dbOpenDynaset)
If ds.RecordCount <> 0 Then
   ds.MoveLast
   ds.AddNew
End If
'質問はここのパートのやり方について<<<<<===
ds.Update
ds.close
db.close
Set ds=nothing
Set db=nothing

データベースのフィールドは、Access97のデザインで定義しました。
No    数値
Dat1　テキスト
Dat2　テキスト
以下、Dat25まで（２５個）同じ形式のフィールドがあります。

質問１：同じ形式のものが続く場合、デザイン時に簡単な（手数が少ない）方法は
あるのですか。
質問２：上の「質問部分」において
Dim n&
for n=0 to 24
ds!dat(n)="データ"
next n
のような「繰り返し処理」をしたいとき、デザインはどのようにしたらよいのでしょうか。

付記：Dataコントロールを使用すると、
Data1.DatabaseName=DBfile
Data1.RecordSource="テーブル1"
Dim n&
For n=1 to 25
Data1.Recordset.Fields(n)="データ"
Next n
のように操作できることがわかったのですが、「新規に書きこむ」方法が
わかりません。

よりしくおねがいいたします。

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -