検索結果で得たレコードセットを他のテーブルに全てコピーするには
解決VB6.0 Access2000で検索プログラムを組んでいるんですが、検索後にデータグリッドに表示されるようにはなったんですが、作成されたレコードセットを他の空のテーブルに上書きすることは可能でしょうか？rs.AddNew命令でできると思うのですが、やり方がわからないのでどうかお願いします。
>rs.AddNew命令でできると思うのですが、やり方がわからないので
過去ログ検索『AddNew』でどうぞ。
すいません、説明不足でした。
状況としては<抽出したデータを別のテーブルへ保存するには？>と同じなんですが、私の場合はAccess2000でＡＤＯを使用しています。
AddNewの項目で調べてみましたが、だいたいは入力されたテキストデータをフィールド指定して値を入力となっており、私の場合はテーブル１の内容を検索後、該当したレコードセットの内容を他のテーブルにそのままコピーしたいのですが、可能でしょうか？もし良きアドバイスがありましたら、宜しくお願い致します。
> だいたいは入力されたテキストデータをフィールド指定して値を入力となっており
そのように行ってください。
そもそも、データベースにおいて、フィールドの順番というものは簡単に変更でき、
追加や削除も一般的な操作ですから、別のテーブルへデータを移動させる時は
フィールド名を指定しておくべきでしょう。
データベースのフィールド名を調べる方法も過去ログにありますし、SQL文で取得
することも可能なはずです。テキストデータの挿入などの場合は、どんなデータが
挿入されてもおかしくありません。本来は、スキーマ情報を取得してデータ有効範囲の
チェックをして、本当に挿入しても良いデータなのか？の判定まで行います。
フィールドの型によってはオートナンバー型のように、勝手な値を挿入できない場合も
ありますし、テーブル設計に基づいてデータ更新用のSQL文を編集する方が確実
でしょう。
今回はデータベースから取得したデータのようですし、そういったチェックを面倒に
思うなら、データ挿入した時のデータベースのエラー処理に任せてデータを挿入
してみれば良いのでは？
フィールド名ではなく、インデックスの指定も可能です。詳しくはヘルプで確認
してください。
度々申し訳ありません。
> だいたいは入力されたテキストデータをフィールド指定して値を入力となっており
そのように行ってください。
つまり、検索後に取得したレコードセットをフィールドごとにテキスト出力し、それを指定したテーブルにAddNew命令で追加していけばいいのでしょうか？
> つまり、検索後に取得したレコードセットをフィールドごとにテキスト出力し、
> それを指定したテーブルにAddNew命令で追加していけばいいのでしょうか？
…ああ。。。そこも『そのように』に含まれて理解されるんですねぇ。。。
……まぁ、無駄な処理ですが、それもいいでしょう。
『テキスト』はテキストファイルでなく、文字列型の変数で代用してみては？
入力チェックとかしないなら、レコードセットからAddNew命令に直接
渡してみては？
えっと私のプログラムの一部なんですが、テーブルAから検索条件を入力し、レコードセットの結果が
番号 名前 在庫 状態
１ Ａ 有 良
３ Ｓ 有 良
８ Ｚ 有 良
という状態から空のテーブルBに書き込みたいのです。
以下にコードの一部を書くので、よろしければアドバイスをお願いします。
Private Sub tyushutu_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "テーブル1", cn, adOpenKeyset, adLockOptimistic, adCmdTable
rs.Filter ="在庫 ='有'"
If rs1.RecordCount >0 Then
/////////////
ここの部分が分からない状態です。
/////////////
End If
End Sub
>Dim rs As ADODB.Recordset
rs と
>If rs1.RecordCount >0 Then
rs1 は違うものなの？
テーブルAと説明しながら
> rs.Open "テーブル1", cn, adOpenKeyset, adLockOptimistic, adCmdTable
テーブル1？？？
とりあえず、検索結果を保持しておく rsTableA と、
別のテーブルを扱うのだから rsTableB を用意したら？
んで、後は、AddNew のサンプルコードを参考にしてみてください。
すいません
If rs.RecordCount >0 Then
rs.Open "テーブルA", cn, adOpenKeyset, adLockOptimistic, adCmdTable
の記入ミスでした。
書き込み用レコードセットを作り、あらかじめテーブルを用意しておくことで解決できました。分かりにくい文章でもしっかりとした助言を与えてくださった特攻隊長まるるう様、ありがとうございました。
| ツイート |  |