VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日: 2005/09/13(Tue) 19:40
投稿者まさ
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
  
*すいません、手違いで2度送信してしまいました。


- 関連一覧ツリー (★ をクリックするとツリー全体を一括表示します)

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)

- VBレスキュー(花ちゃん) - - Web Forum -