Option Explicit
Dim txtsql As String
Dim mrc As ADODB.Recordset
Dim msgtext As String
--------------------------------------------------------------------
Private Sub Command1_Click()
On Error Resume Next
Select Case Me.Combo3.ListIndex
Case 1
txtsql = "select * from xsxx where xm='" & Me.Text7.Text & "'"
Set mrc = ExecuteSQL(txtsql, msgtext)
Call viewdata
Me.Text7.Text = ""
Me.Combo3.Text = ""
Case 2
txtsql = "select * from xsxx where xh='" & Me.Text7.Text & "'"
Set mrc = ExecuteSQL(txtsql, msgtext)
Call viewdata
Me.Text7.Text = ""
Me.Combo3.Text = ""
End Select
Exit Sub
End Sub
---------------------------------------------------------------------------
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
Me.Combo1.AddItem ""
Me.Combo1.ListIndex = 0
Me.Combo2.AddItem ""
Me.Combo2.ListIndex = 0
Me.Text1.Text = ""
Me.Text2.Text = ""
Me.Text3.Text = ""
Me.Text4.Text = ""
Me.Text5.Text = ""
Me.Text6.Text = ""
Me.Text7.Text = ""
Me.Combo3.AddItem ""
Me.Combo3.AddItem "姓名"
Me.Combo3.AddItem "学号"
Me.Combo3.ListIndex = 0
End Sub
-------------------------------------------------------------
Public Sub viewdata()
Text1.Text = mrc.Fields(0)
Text2.Text = mrc.Fields(1)
Combo1.Text = mrc.Fields(2)
Text3.Text = mrc.Fields(3)
Combo2.Text = mrc.Fields(4)
Text4.Text = mrc.Fields(5)
Text5.Text = mrc.Fields(6)
Text6.Text = mrc.Fields(7)
End Sub
我应该在哪儿添加一个提示错误(数据库中没有记录或是输入错误的)的信息,怎么添加,如图所示右上角TEXT.7为错误时的判断语句。分另外加!
你看添加到这里行吗!Option ExplicitDim txtsql As StringDim mrc As ADODB.RecordsetDim msgtext As String--------------------------------------------------------------------Private Sub Command1_Click()On Error Resume NextSelect Case Me.Combo3.ListIndexCase 1
txtsql = "select * from xsxx where xm='" & Me.Text7.Te