複数テキストboxの内容をボタン1つでＤＢに追加するには？ (ID:107163)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 DBや接続方法やテーブル構造が不明確ですから 的確な回答ができかねるのですが、 既にADO.Connectionで接続が確立し、 オブジェクト変数adoCnnを用いて インスタンスが生成できているものとすると、一般に 新規追加ならば文字列変数strSQLを用いて、 strSQL = "Insert Into テーブル名 " strSQL = strSQL & " ( 項目名1 , 項目名2 , 項目名3 ) Values " strSQL = strSQL & " ( 項目1 , 項目2 , 項目3 ) " adoCnn.Execute strSQL 既存レコードの更新ならば strSQL = "Update テーブル名 Set " strSQL = strSQL & " 項目名1 = 項目1 , " strSQL = strSQL & " 項目名2 = 項目2 , " strSQL = strSQL & " 項目名3 = 項目3 " strSQL = strSQL & " Where キー項目名 = 条件値 " adoCnn.Execute strSQL といったコードでSQL文を発行すればテーブルのデータが変更されます。 通常は項目1などが可変ですから、この部分を文字列変数や、 Text1.Textなどに置き換えて文字列連結します。 例 strSQL = strSQL & " 項目名1 = " & Text1.Text & " , " なお、フィールドの型が文字型(String,Text,Char,Varchar2など) の場合、項目値をシングルクォートではさむ必要があります。 例 strSQL = strSQL & " 項目名2 = '" & Text2.Text & "' , " 上記の例では更新クエリを発行しましたが、 RecordSetオブジェクトのUpdateメソッドで行う方法もあります。