VB里的問題
我這段查詢是在一個(gè)文本框里顯示的.我想改成表格形式的.
Private Sub Command2_Click()
'查詢
If Combo1.Text = "" Then
MsgBox "你沒有選擇查詢方式,請選擇!",16,"錯(cuò)誤提示!"
Exit Sub
End If
If Combo1 "全部記錄" And Text4.Text = "" Then
MsgBox "你沒有填寫查詢的關(guān)鍵字,請?zhí)顚?",16,"錯(cuò)誤提示!"
Exit Sub
End If
Dim XX As Integer,SS As Integer
XX = 0:SS = 0:Text5.Text = "日 期" & Space(20) & "購買單位" & Space(16) & "用戶單位" & Space(10) & "聯(lián)系人" & Space(10) & "聯(lián)系電話" & Space(10) & vbCrLf
Call SJK(db)
RS.Open "Select * From 表1",db,3,3
SS = RS.RecordCount
RS.Close
Set RS = Nothing
If Combo1.Text = "全部記錄" Then
txtSQL = "Select * From 表1"
ElseIf Combo1.Text = "以姓名查詢" Then
txtSQL = "Select * From 表1 Where T2 Like '%" & Text4.Text & "%'"
ElseIf Combo1.Text = "以內(nèi)容查詢" Then
txtSQL = "Select * From 表1 Where T3 Like '%" & Text4.Text & "%'"
End If
RS.Open txtSQL,db,2,2
Do While Not RS.EOF
XX = XX + 5
Text5.Text = Text5.Text & RS!T1 & 16 & RS!T2 & vbCrLf
RS.MoveNext
Loop
RS.Close
Set RS = Nothing
db.Close
Set db = Nothing
If SS > 0 Then
If XX = 0 Then
MsgBox "對不起!你選擇方式中的關(guān)鍵字可能有誤,沒有你查詢的記錄!請重新查詢!",48,"無記錄!"
End If
Else
MsgBox "對不起!你的數(shù)據(jù)庫中沒有記錄,請首先錄入記錄!",48,"數(shù)據(jù)庫是空的!"
End If
End Sub
Public Sub SJK(db)
db.ConnectionString = "DRIVER=Microsoft Access Driver (*.mdb);dbQ=" & App.Path & "\ABCD.mdb"
db.Open
End Sub
Private Sub Command3_Click()
Unload Me
其他查詢.Show
End Sub
Private Sub Command4_Click()
End
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
End Sub
Private Sub MSFlexGrid1_Click()
End Sub