tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re^2: データコンボの、リストフィールドの表示「修正}
投稿日: 2012/11/16(Fri) 20:19
投稿者nao
> 申し訳ありませんが、下記をよく読んで質問内容を書き直して投稿して下さい。
> このままでは、どなたもレスをする気になれないかと思いますよ。
> 英数は、基本的に半角で大文字、小文字を区別して書いて頂かないと読みづらいです。
> 特にコードの部分で全角を使用されると、間違いとタイプミスの区別がつきません。
>
>  http://hanatyan.sakura.ne.jp/hazimeni.htm#keijiban

 大変御見苦しい投稿をして、申し訳ありません、心から反省しています。
御指摘いただきました事、感謝いたします。
   
OS:Windows XP(SP6) 
VB:VB6.0(SP3)

「dcmbtest」は、DataComb、「txttest」は「あいまい抽出」する部品名の一部を入力。
「BUHINMEI」は、デタベース「SIZAIITIRAN2」のフィールド名です。

If Area = 0 Then      
   dcmbtest.ListField = "BUHINMEI"
    
    MYSQL = "SELECT DISTINCT BUHINMEI FROM SIZAIITIRAN2"
    Set RS1 = New ADODB.Recordset
    RS1.Open MYSQL, CN, adOpenStatic, adLockOptimistic
    
    RS1.MoveFirst
    RS1.Filter = "BUHINMEI Like '%" & txttest.Text & "%'"
   lblkensu.caption =  RS1.Recordcount   
    Set dcmbtest.RowSource = RS1
ElseIf Area = 2 Then
    RS1.Close
    Set RS1 = Nothing
End If

以上がテストしたプログラムで 結果は、重複なしの部品名が FieldList に表示され、
あいまい抽出された結果ではありませんでした。
「lblkensu」に表示される件数は、フィルターされた結果の件数が表示されました。
「重複なし」で「あいまい抽出」した結果を、FieldList に表示できるのか、
教えていただきたく、投稿いたしました。
今回は、御迷惑をかけました。宜しくお願いします。

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

古いスレッドにレスはつけられません。