Dim Strg As String
If Trim(Text1.Text) <> "" Then
If cb1.Text = "編號" Then
Strg = "select * from dingdan where " & cb1.Text & "=" & Trim(Text1.Text)
Else
Strg = "select * from dingdan where " & cb1.Text & " like '%" & Trim(Text1.Text) & "%'"
End If
' MsgBox Strg
Call Conndata
Conn.Open
Adob.Open Strg, Conn, 1, 3
If Adob.EOF Then
MsgBox "沒有該條記錄!", 48 + vbOKOnly, "pcbsystem"
Else
Set fld4.DataSource = Adob
End If
Else
MsgBox "查詢資料不能為空", 48 + vbOKOnly, "pcbsystem"
End If
If Conn.State = 1 Then
Conn.Close
End If
If Adob.State = 1 Then
Adob.Close
End If
uj5u.com熱心網友回復：
能判斷出問題出在哪一句上面嗎？uj5u.com熱心網友回復：
Adob.Open Strg, Conn, 1, 3uj5u.com熱心網友回復：
有沒人幫我解決一下這個問題uj5u.com熱心網友回復：
先在查詢分析器里面能連接并操作成功轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/126346.html
上一篇：matlab運算之后不能用MLGetMatrix匯出到EXCEL
下一篇：關于提示"檔案未找到"