--------------下面是我的程序代码-----------------------------
Dim tj1 As Boolean
Dim tj2 As Boolean
Dim sqlstr As String
Private Sub Command1_Click()
If tj1 = False And tj2 = False Then
MsgBox "请选择查询条件！", vbExclamation, "警告"
Option1.SetFocus
Exit Sub
End If
If Trim(Text1.Text) = "" Then
MsgBox "请输入查询条件！", vbExclamation, "警告"
Text1.SetFocus
Exit Sub
End If
If tj1 = True Then
sqlstr = "select * from jydm where jydm= '" & Trim(Text1.Text) & "' "
Call viewdata
End If
If tj2 = True Then
sqlstr = "select * from jydm where jypy= '" & Trim(Text1.Text) & "' "
MsgBox sqlstr
Call viewdata
End If
End Sub
Private Sub Form_Load()
tj1 = False
tj2 = False
End Sub
Private Sub Option1_Click()
If Option1.Value = True Then
tj1 = True
tj2 = False
Else
tj1 = False
tj2 = True
End If
End Sub
Private Sub viewdata()
Dim msgtext As String
Dim ret As ADODB.Recordset
Set ret = New ADODB.Recordset
Set ret = executeSQL(sqlstr, msgtext)
With MSFlexGrid1
.TextMatrix(0, 0) = "序号"
.TextMatrix(0, 1) = "交易代码"
.TextMatrix(0, 2) = "交易名称"
.TextMatrix(0, 3) = "交易拼音"
Do While Not ret.EOF
.TextMatrix(.Rows - 1, 0) = .Rows - 1
.TextMatrix(.Rows - 1, 1) = ret.Fields(0)
.TextMatrix(.Rows - 1, 2) = ret.Fields(1)
.TextMatrix(.Rows - 1, 3) = ret.Fields(2)
.Rows = .Rows + 1
ret.MoveNext
Loop
End With
ret.Close
End Sub
Private Sub Option2_Click()
If Option2.Value = True Then
tj2 = True
tj1 = False
Else
tj2 = False
tj1 = True
End If
End Sub
----------------------------------下面是公用模块代码------------------------------------------
Public Function executeSQL(ByVal sqlstr As String, msgstr As String) As ADODB.Recordset
Dim conn As ADODB.Connection
Dim ret As ADODB.Recordset
Dim sTokens() As String
Set conn = New ADODB.Connection
On Error GoTo executeSQL_Error
sTokens = Split(sqlstr)
conn.ConnectionString = "dsn=cxjydm;uid=;pwd="
conn.Open
If InStr("insert,delete,update", LCase(sTokens(0))) Then
conn.executeSQL
msgstr = sTokens(0) & "query successful"
Else
Set ret = New ADODB.Recordset
ret.Open Trim$(sqlstr), conn, adOpenKeyset, adLockOptimistic
Set executeSQL = ret
End If
executeSQL_Exit:
Set ret = Nothing
Set conn = Nothing
Exit Function
executeSQL_Error:
msgstr = "查询错误:" & Err.Description
Resume executeSQL_Exit
End Function
----------------------------------------------------------------------
问题:
１：如果我选择了"按交易代码查询",输入0100，结果查询到了一条记录，
如果我再按按钮，就又会增加一条同样的记录,为什么呀？什么原因导致这样呢？
２：如果我选择了"按拼音查询"，输入abc,如果没有查询到记录，可结果记录内容还是[第一个]问题的记录,
按常理说不应该是第一个问题的记录的呀？应该是显示字段名，而不显示记录内容才对的呀？
请大家帮我一下
[此贴子已经被作者于2007-1-6 9:12:39编辑过]
