查询的流程代码什么的都差不多,只是改几个值。
Private Sub cmdOk_Click()
Dim mrc As ADODB.Recordset
Dim MsgText As String
Dim txtSQL As String
txtSQL = "select * from Line_Info where cardno ='" & txtCardNumber.Text & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
If Trim(txtCardNumber.Text = "") Then
MsgBox "卡号为空,请输入卡号!", vbOKOnly + vbExclamation, "警告"
txtCardNumber.SetFocus
End If
MSshow.Clear
With MSshow
.Rows = 1
.TextMatrix(0, 0) = "卡号"
.TextMatrix(0, 1) = "充值金额"
.