|
なおのＥｘｃｅｌ教室 さんの「exvol108」データベースの更新・参照（４）より 【名前を入力する】 Visual Basic Editorを開いて〔挿入〕→〔プロシージャ〕を選択します 〔プロシージャの追加〕画面が表示されたら〔名前〕に〔db_get〕と入力し 〔種類〕で〔Function〕プロシージャを選択して〔ＯＫ〕を押します Public Function db_get（）というプロシージャが作成されますので 半角スペースに続けて〔As String〕と記述します そこに
【記述する】 Dim no As Integer
Dim criteria As Variant
db_get_err:Dim sSQL As String Dim rs As ADODB.Recordset On Error GoTo db_get_err no = CInt(Trim(UserForm1.txtNo.Text)) criteria = " WHERE ＮＯ=" & no sSQL = "SELECT * FROM 住所データ" & criteria Set rs = New ADODB.Recordset rs.Open sSQL, con, adOpenDynamic, adLockReadOnly UserForm1.txtName.Text = Trim(rs![氏名]) UserForm1.txtYubin.Text = Trim(rs![郵便番号]) UserForm1.txtAddress.Text = Trim(rs![住所]) UserForm1.txtTel.Text = Trim(rs![電話番号]) UserForm1.txtMail.Text = Trim(rs![メール]) db_get = "ok" Exit Function
db_get = Err.Number & Err.Description
記述したら保存します |
- >
- コンピュータとインターネット
- >
- コンピュータ
- >
- パソコン
データベースの該当する行の列の値をフォームのそれぞれのテキストボックスにセットするところだよね〜(^^
2006/2/2(木) 午前 8:17 [ なお ]
なおさん、やっとここまで来ました。こうやって作るんですね〜〜(^^♪
2006/2/2(木) 午後 2:17