投稿日 | : 2005/09/13(Tue) 19:39 |
投稿者 | : まさ |
URL | : |
タイトル | : Re^6: レコードの取得・表示 |
いなさん、ありがとうございました。無事解決しました。
このあとのレコード抽出の記述をいろいろ参考に記述してみました。
うまくnumber.textで入力した番号に該当するレコードだけを表示したいのですが
このDo...Loop文では最後のレコードの表示になってしまいます。
本当に基本中の基本な質問で申し訳ないんですが、何かご教授いただけないでしょうか。
Set OraDS = OraDB.CreateDynaset(strSQL, 0&)
If Not IsExist(number.Text) Then
MsgBox "該当レコードがありません。新規登録を行ってください。"
Exit Sub
Else
Do Until OraDS.EOF
Kname.Text = OraDS.Fields(2)
add.Text = OraDS.Fields(3)
tel.Text = OraDS.Fields(4)
OraDS.dbmovenext
Loop