|
なおのＥｘｃｅｌ教室 さんの「exvol108」データベースの更新・参照（５）より 【名前をつけて記述する】 〔Visual Basic Editor〕を開いて 〔挿入〕→〔プロシージャ〕を選択します 〔プロシージャの追加〕画面が表示されたら 〔名前〕に〔db_set〕と入力し〔種類〕で〔Function〕プロシージャを選択し 〔ＯＫ〕を押します Public Function db_set（）というプロシージャが作成されますので半角スペースに続けて
As Stringと記述します そこに Dim no As Integer
Dim name As String
db_set_err:Dim yubin As String Dim address As String Dim tel As String Dim mail As String Dim criteria As Variant Dim sSQL As String Dim rs As ADODB.Recordset On Error GoTo db_set_err no = CInt(Trim(UserForm1.txtNo.Text)) name = Trim(UserForm1.txtName.Text) yubin = Trim(UserForm1.txtYubin.Text) address = Trim(UserForm1.txtAddress.Text) tel = Trim(UserForm1.txtTel.Text) mail = Trim(UserForm1.txtMail.Text) criteria = " WHERE ＮＯ=" & no sSQL = "SELECT * FROM 住所データ" & criteria Set rs = New ADODB.Recordset rs.Open sSQL, con, adOpenDynamic, adLockOptimistic If rs.EOF Then rs.AddNew End If rs![no] = no rs![氏名] = name rs![郵便番号] = yubin rs![住所] = address rs![電話番号] = tel rs![メール] = mail rs.Update db_set = "ok" Exit Function
db_set = Err.Number & Err.Description と記述します
保存します |
- >
- コンピュータとインターネット
- >
- コンピュータ
- >
- パソコン
こんどは逆に画面のデータをデータベースにセットするところだね〜〜〜(^^
2006/2/4(土) 午後 5:40 [ なお ]
記述するのも少し慣れてきました。何かをするにもこんな作業が必要なんですね。いつも感心したり驚いたりの連続です。(^^♪
2006/2/4(土) 午後 7:01
sSQLにセットしているのはＳＱＬ文でデータベースを操作するものだよね(^^
2006/2/4(土) 午後 8:55 [ なお ]
ＳＱＬって？何の略か調べました。情けないですね、こんな状態なんですから…申しわけありません。。でも一つ賢くなりましたよ。(*ﾟ▽ﾟ)ﾉ ありがとうございました！
2006/2/5(日) 午後 3:15
ＪＡＶＡやＶＢとかはかなり認知度あるけどＳＱＬは知らない人も多いからぜんぜんおかしいことじゃないよ〜 リレーショナルデータベースの定義や操作をする言語だよね(^^
2006/2/5(日) 午後 6:33 [ なお ]
♪⌒ヽ(*ﾟOﾟ)ﾉ ｽｺﾞｲｯ!!!ただ尊敬するばかりです。今までなおさんのお教室で知らなかったことを沢山教えて頂きました。なかなか思い通りにいきませんが何時も感謝しています。ありがとうございます！(*ﾟ▽ﾟ)ﾉ
2006/2/6(月) 午前 10:37
全部ができなくてもいいよね(^^ でもこんな感じなんだ〜って思うとパソコンで動いてるプログラムも違った目で見ることが出来るかもしれないよね♪
2006/2/6(月) 午前 11:08 [ なお ]
なおさん、そうですね。教室を知る以前よりは見る目も少〜しはマシになってきたように思います？‖ﾍ(′ｪ｀)ゝ__｣ふぅぅん
2006/2/7(火) 午前 11:00