Ｐａｇｅ 400 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼ODBCリンクテーブルへの新規追加 おらあく 03/10/9(木) 11:35 ┗Re:ODBCリンクテーブルへの新規追加 こうちゃん 03/10/9(木) 16:45 ┗Re:ODBCリンクテーブルへの新規追加（再） おらあく 03/10/9(木) 17:35 ┗Re:ODBCリンクテーブルへの新規追加（再） こうちゃん 03/10/9(木) 18:45 ─────────────────────────────────────── ■題名 ： ODBCリンクテーブルへの新規追加 ■名前 ： おらあく ■日付 ： 03/10/9(木) 11:35 -------------------------------------------------------------------------
| こんにちは。いつもこちらではお世話になっています。 今日はオラクル8i⇔Access2000でのデータ追加方法について教えて下さい。 Access2000でＯＤＢＣ経由でリンク接続しています。 あるフォームから新しいデータを入力し、下記のプログラムを実行しています。 そうすると最後のUpdate文で「ODBC-リンクテーブル"STREAM_APSIRMST"への挿入に失敗しました」と表示されてしまいます。 オラクルテーブルへの更新作業を行うのが始めてな為、初歩的な質問で申し訳ありませんがよろしくお願い致します。 【実行文】 Private Sub 登録ボタン_Click() On Error GoTo Err_登録ボタン_Click '* * * ADO定義 * * * Dim db As ADODB.Connection Set db = CurrentProject.Connection Dim STREAM_APSIRMST As ADODB.Recordset Set STREAM_APSIRMST = New ADODB.Recordset STREAM_APSIRMST.Open "STREAM_APSIRMST", db, adOpenKeyset, adLockOptimistic 'プリントＩＤ、１件目の町名・丁目コード 値セット STREAM_APSIRMST.AddNew STREAM_APSIRMST![SIR_KAI_CODE] = Me![会社コード] STREAM_APSIRMST![SIR_CODE] = Me![仕入先コード] STREAM_APSIRMST![SIR_SH_KNR_CODE] = Me![支払管理コード] STREAM_APSIRMST.Update Exit_登録ボタン_Click: Exit Sub Err_登録ボタン_Click: MsgBox Err.Description Resume Exit_登録ボタン_Click End Sub |
| おらあくさん、こんにちは コードを拝見すると、レコードセットでのUPDATEをしているようですが、INSERT INTOのSQL発行でもエラーになりますか？ ODBCドライバはMSのものをお使いですか?それともoracle提供のものですか？ ドライバによってはレコードセットを使ったUPDATEがうまくいかなかった経験がありますので・・ ＃あまり詳しくはありませんので、お役にたてなかったらごめんなさい。 |
| こうちゃんさん、こんにちは！ 早速のお返事ありがとうございます。 INSERT INTO文で実行してみたところ、パスワードの入力画面が開き、パスワードを入力したところ更新できました。 また、ODBCドライバはMSのものを使っています。 パスワードをうたう必要があるのでしょうか？ ご存知でしたら教えて下さい。 お忙しいところすみませんがよろしくお願い致します。 |
| おらあくさん、こんにちは >また、ODBCドライバはMSのものを使っています。 > >パスワードをうたう必要があるのでしょうか？ 追加・更新にはパスワードが必要だと思います。 手元にオラクル環境がないので、はっきりしたことはいえないのですが、オラクルクライアントにはパスワード保存ができなかったような気がします。 申し訳ありませんが、もう少し詳しいかたのレスを待つか、オラクルのサイト等で質問するのが早道かもしれませんね。 お役に立てずにもうしわけありません。 |