- ベストアンサー
VB6でのSQLでのアクセスデーターの追加について
akeyの回答
- akey
- ベストアンサー率38% (8/21)
abc = "insert into 社員テーブル(コード,名前) values ('" & tx1.Text & "','" & tx2.Text &"')" c1.Execute abc では如何？
関連するQ&A
- AccessのSQLについて教えてください。
Excel＋VBA から、ADOを使って、Accessを操作しようとしています。 なんとか、sqlを実行できるようになったのですが、 一点、分からないところが出てきましたので、教えてください。 insert文で、レコードを追加したとき、追加されたレコードのIDを取得したいのですが、 どのようにすれば良いかわかりません。 コードは次のようにしています。 cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & データベース名 & ";" sql = "INSERT INTO テーブル名(フィールド) VALUES(値)" cnn.Execute sql 以上、すみませんが、よろしくお願いいたします。
- ベストアンサー
- その他(データベース)
- アクセスにて、フォームのテキストボックスの値をテーブルにコピーしたい
初めて質問させていただきます。宜しくお願いします。 アクセスで、 ＝＝＝フォーム上にある非連結テキストボックスに、日付を入力し、コマンドボタンをクリックすると、テーブルにある日付のデータをクリアし、その後フォーム上のテキストボックスに入力した日付を挿入＝＝＝の方法を教えていただきたいと思います。 CurrentDb.Execute "DELETE * FROM T_設定日;" CurrentDb.Execute "INSERT INTO T_設定日(設定日) VALUES ('Me![年月日]');" 上記でやってみたところ、データのクリアはされるのですが、その後、テキストボックスに入れた日付は入りません。エラーは出ません。 アクセス初心者で、分かりにくい説明と思いますが、宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- phpでのSQLでのデータの追加方法
phpでのSQL実行に関して、下記のデータを追加するコードがあります。 mysql_query('INSERT INTO my_items SET maker_id=1, item_name="もも", price=210, keyword="缶詰,ピンク,甘い", sales=0, created="2010-08-01", modified="2010-08-01"') or die(mysql_error()); echo 'データを挿入しました'; 私は。それを INSERT INTO (フィールド名) VALUES(値) のSQL文で実行したいのですが、その方法が分かりません。 よろしければ、それを実行するコードを教えてください。お願いします。
- ベストアンサー
- PHP
- アクセス２０００でデータの追加がうまくいかないんですけど
アクセス２０００を使ってます。 基礎データというテーブルを作って、そこに「テキスト」というメモ型のフィールドを作り、 参照追加フォームというフォームを作って、その中に二つのテキストボックスを配置し、一方のテキストボックス１には「基礎データ」の「テキスト」をコントロールソースとして設定し、他方のテキストボックス２は非連結にし、コマンドボタンを二つ配置して、一方のコマンドボタン１を押すと、テキストボックス１のデータがテキストボックス２のデータにコピーされるようにＶＢＡコードを書き、さらに、もうひとつのコマンドボタン２を押すと、非連結のテキストボックスのデータを、基礎データテーブルの「テキスト」というフィールドに追加する追加クエリを動かすようにしました。 このような状況で、コマンドボタン２を押すと、非連結のテキストボックス２のデータが、全角１２６文字までなら正常に動作するのですが、それ以上（全角１２７文字以上）になると、「引数が無効です。」というエラーが出てしまいます。 基礎データテーブルの「テキスト」はメモ型に設定してあるのに、どうしてこのようなエラーが出てしまうのでしょうか？誰か教えてください。 ※ためしに、追加クエリ単独で動かして、全角１２７文字以上のデータを入れた場合には、追加クエリは正常に動作します。これって、フォーム側の問題なんですか？
- 締切済み
- オフィス系ソフト
- Access2007の、フォーム入力について
下記のようなコマンドを、ボタンに追加しました。 名前の欄に入力して、ボタンを押すと、レコードの名前フィールドに入力されます。 Private Sub コマンド10_Click() If Nz(Me.名前1, "") <> "" Then CurrentDb.Execute "INSERT INTO 氏名 (名前) SELECT '" & Me.名前1 & "'" End If If Nz(Me.名前2, "") <> "" Then CurrentDb.Execute "INSERT INTO 氏名 (名前) SELECT '" & Me.名前2 & "'" End If If Nz(Me.名前3, "") <> "" Then CurrentDb.Execute "INSERT INTO 氏名 (名前) SELECT '" & Me.名前3 & "'" End If If Nz(Me.名前4, "") <> "" Then CurrentDb.Execute "INSERT INTO 氏名 (名前) SELECT '" & Me.名前4 & "'" End If If Nz(Me.名前5, "") <> "" Then CurrentDb.Execute "INSERT INTO 氏名 (名前) SELECT '" & Me.名前5 & "'" End If DoCmd.Close acForm, "フォーム1" End Sub テキストボックスには、それぞれ名前1～5、という名前がつけられています。レコードが追加されるテーブルは「氏名」です。 そこで、さらにテーブルに部署フィールドを追加して、フォームに上から、部署1～5のテキストボックスを追加し、 名前と部署のテキストボックスの、それぞれ対応しているものが、同じレコードに追加されるようにするには どうすればよいでしょうか？ 有識者の皆さま、どうぞよろしくお願いいたします。
- ベストアンサー
- その他(データベース)
- VB6でのSQLでのアクセスデーターの更新について
VB6でSQLを使ってアクセスのデーターを下記のように 変換したいのですが 変換前のコード 変換後のコード 0001 --> 00-01 0002 --> 00-02 0003 --> 00-03 jkl = "update 社員テーブル set コード= MID(コード,1,2) & ' - ' & MID(コード,3,4)" c1.Execute jkl 上記のようにしてプログラムを実行すると エラーになります。 どこが違っているのでしょうか？
- ベストアンサー
- Visual Basic
- ACCESSでVBを使って特定のデータを変更したいのですが・・・
ACCESSのVB初心者です。 専門書も買って読んでるのですが、どうにも行き詰ったので質問させてください。 今やろうとしているのは、データNoが入るフィールドと文字列が入るフィールドの２つのフィールドから出来ている「Ａテーブル」を作ってあり・・・フォームのテキストボックスに入力された任意の数字とＡテーブルのデータNoを照合し、同じ番号を処理するコードを打ち込みたいのですが、どうにもやり方がわかりません。 フォームで「１２」という数字をテキストボックスで指定し、「新規追加」をすると、Ａテーブルに１２のデータNoがない場合は、Ａテーブルに１２というデータNoと文字列を追加し、「データ削除」をすると、ＡテーブルのデータNo１２を削除と言う感じでやりたいのですが・・・。 どなたか知識のある方、教えてくださいませ。 または、このサイトを見れば分かるんじゃないかと言う情報もお待ちしております。
- 締切済み
- オフィス系ソフト
- ＶＢとアクセスでＳＱＬ文に変数を使いたいのですが
したいことはレコードの挿入をＳＱＬ文で変数を使用して処理したいのですがうまく動作してくれません StrSQL_1 = _ "insert into 行先情報テーブル (社員ID, 行先, 帰社予定時刻, 備考)" & _ "values (7,'（変数１）','（変数２）','（変数３）')" 変数の部分が置き換わりません、いろいろ調べてみたのですがどうもわかりませんvaluesでは変数を使えないのでしょうか？ もしそうだとするとどのようにすればレコードを挿入するＳＱＬ文で変数を利用できるのかをおしえていただけないでしょうか
- ベストアンサー
- Visual Basic
- Access2000のＶＢＡについて
下記のプログラムだと挿入が可能になります。 Private Sub 削除_コマンド_Click() If IsNull(Me.社員コード) Then MsgBox ("社員コードが入力されていません") Else Dim strSQL As String strSQL = "INSERT INTO 社員情報テーブル(社員コード,作成日) " _ & " VALUES ('" & Me.社員コード & "', now());" DoCmd.RunSQL strSQL End If End Sub しかし、下記のプログラムだとinsert文の『Me.社員コード』で エラーが発生します。 エラーメッセージは 『メソッドまたはデータメンバが見つかりません』 と表示されます。 上と下とどう違うのでしょうか。 Private Sub 削除_コマンド_Click() If IsNull(Me.社員コード) Then MsgBox ("社員コードが入力されていません") Else Dim strSQL As String strSQL = "INSERT INTO 社員情報テーブル(社員コード,氏名(氏),作成日) " _ & " VALUES ('" & Me.社員コード & "','" & Me.氏名(氏) & "', now());" DoCmd.RunSQL strSQL End If End Sub
- ベストアンサー
- その他(データベース)
- VB6からSQLServer7に加工したデータを、正常に追加できません。なぜ？
VB6から、SQLServerに対して 加工したデータを追加するプログラムをしています。 （環境：Windows2000 Pro + VB6[SP5] + SQLServer[7.0]） 一度、「sampletable」のデータを全件削除した上で、 必ず２回以上実行するループ処理の中で、Insert文を発行しています。 がしかし、プログラム実行後にSQLServerのデータベースを検索してみると、 何故か、最後に実行したInsert文しか、正常に実行終了していないようなのです。 （最後のループ処理でInsertされたデータしか、追加されてないのです。） 何か、プログラム上で、おかしいところとか 抜けているところとかございましたら、教えて下さい。 ＜サンプルプログラム＞ ' SQL Server へ接続 Set cn = New ADODB.Connection cn.Open "Provider=SQLOLEDB;" & _ "Data Source=(localhost);" & _ "Initial Catalog=database", "login", "passwd" ' 一度、テーブルデータを削除する strSQL = "delete from sampletable" Set rs = cn.Execute(strSQL) Do 'このループ処理は、２回以上、必ず動作します。 ・・・ (データ加工処理) ・・・ ' データを追加する strSQL = "INSERT INTO sampletable(xxx, xxx, xxx) " & _ "VALUES('" + HENSUU-A + "','" + HENSUU-B + "','" + HENSUU-C + "')" Set rs = cn.Execute(strSQL) Loop ' SQL Server 接続を閉じる cn.Close
- ベストアンサー
- Visual Basic
お礼
有難うございました。回答通り実行しましたら、うまく 追加登録が出来ました。今後もよろしくお願いします