投稿日 | : 2007/01/12(Fri) 13:23 |
投稿者 | : アカマル |
Eメール | : |
URL | : |
タイトル | : ACCESSからデータをひっぱってきたいけど・・・ |
ACCESSで作ったテーブルのデータをFlex Gridに検索(NOで)をかけて表示させたいのですが、
テキストボックスにいれた言葉の一部でも一致していれば対応したレコードを表示させるように
したいんです。自力で作ってみたんですが、テキストボックスに何も入れないと当然全部の
データを表示するんですが、何か言葉を入れるとレコードを引っ張ってこないんです・・・
SQL文が間違っているんでしょうか?何とかうまく表示させたいんです・・。
よろしくお願いします。
Private Sub cmdSeek_Click()
Dim MyTB As DAO.Recordset
Dim sSql As String
Dim ix As Integer
Dim sDisp As String
With fgDisp
.Rows = 1
If optSQL(0).Value = True Then
sSql = "SELECT * FROM T_DATA WHERE (NO Like '*" & txtSeek.Text & "*')"
Set MyTB = g_MyDB.OpenRecordset(sSql, dbOpenDynaset)
Do Until MyTB.EOF
For ix = 0 To 6
sDisp = sDisp & vbTab & CStr(IIf(IsNull(MyTB(ix + 1)) = True,_
"", MyTB(ix + 1)))
Next
.AddItem CStr(fgDisp.Rows) & sDisp
sDisp = ""
MyTB.MoveNext
Loop
MyTB.Close
Set MyTB = Nothing
End If
End With
End Sub