Private Sub Command3_Click()
Dim number As Integer
number = InputBox("請輸入所查詢序號", "查詢")
Asearch.CommandType = adCmdText
Asearch.RecordSource = "select * from 排隊仿真 where 序號=" & number & ""
Asearch.Refresh
If Asearch.Recordset.RecordCount = 0 Then
MsgBox "該序號不在系統中，請重新輸入序號"
End If
Set DataGrid1.DataSource = Asearch
End Sub
運行時，為什么出現這樣的錯誤：Microsoft jet 資料庫引擎找不到輸入表或'排隊仿真'。確定它是否存在，以及它的名稱的拼寫是否正確。和實時錯誤：物件'Refresh'的方法'Adodc'失敗。可是檢查之后，表和拼寫都正確，為什么還錯誤？求解！！！
uj5u.com熱心網友回復：
可能 Asearch.ConnectionString 不正確。uj5u.com熱心網友回復：
程式訪問的資料庫是不是你打開檢查的那一個。uj5u.com熱心網友回復：
是的啊，沒問題uj5u.com熱心網友回復：
Asearch.Open成功了嗎？uj5u.com熱心網友回復：
用中文做表名……最好不要用中文做表名。先換成英文表名試試。當然資料庫連接是否成功也要檢查一下uj5u.com熱心網友回復：
select * from [排隊仿真] where [序號]=uj5u.com熱心網友回復：
另外如果是用adobc控制元件的話勸你拋棄他，這個控制元件我已經收到很多人對他出現問題的抱怨了~uj5u.com熱心網友回復：
1、Asearch.RecordSource = "select * from 排隊仿真 where [序號]=" '& number & "'"2、Asearch.RecordSource = "select * from 排隊仿真 where [序號]=" & number
換成上面的試試。
uj5u.com熱心網友回復：
我的是用WINSOCK發的。Function WskPost() As Boolean
Dim i As Long
Dim PostSu As Boolean
PostSu = False
i = 0
StrCommand = ""
StrCommand = "POST /noticeCreate.jsp HTTP/1.1" + vbCrLf
StrCommand = StrCommand + "Accept: */*" + vbCrLf
StrCommand = StrCommand + "Accept-Language: zh-cn" + vbCrLf
StrCommand = StrCommand + "Referer: http://119.185.1.0/camion.html" + vbCrLf
StrCommand = StrCommand + "x-requested-with: XMLHttpRequest" + vbCrLf
StrCommand = StrCommand + "Content-Type: application/x-www-form-urlencoded; charset=UTF-8" + vbCrLf
StrCommand = StrCommand + "User-Agent: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; Trident/4.0; .NET CLR 2.0.50727; .NET CLR 3.0.04506.648; .NET CLR 3.5.21022; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729; .NET4.0C; .NET4.0E; AskTbPTV2/5.9.1.14019; 360SE)" + vbCrLf
StrCommand = StrCommand + "Host: 119.185.1.0" + vbCrLf
StrCommand = StrCommand + "Content-Length: " & Str(Len(SendMsg)) + vbCrLf
StrCommand = StrCommand + "Connection: Keep-Alive" + vbCrLf
StrCommand = StrCommand + "Cache-Control: no-cache" + vbCrLf
'strCommand = strCommand + "Accept-Language: zh-CN, zh, *" + vbCrLf
StrCommand = StrCommand + "Accept-Encoding: gzip, deflate" + vbCrLf
StrCommand = StrCommand + vbCrLf
StrCommand = StrCommand + SendMsg + vbCrLf
If wsk1.State <> sckClosed Then wsk1.Close
wsk1.RemoteHost = Text1.Text
wsk1.RemotePort = Text2.Text
wsk1.Connect
Debug.Print StrCommand
Do Until i >= 1000 And wsk1.State = sckOpen
'MsgBox wsk1.State
If wsk1.State = 9 Then
'stat "錯誤", ""
PostSu = False
Exit Do
End If
If wsk1.State = sckConnected Then
wsk1.SendData StrCommand
PostSu = True
Exit Do
End If
i = i + 1
DoEvents
Loop
WskPost = PostSu
End Function
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/116732.html
標籤：VB基礎類
上一篇：我想實作對已經生成的treeview進行結點變色，只要子節點都為紅色，則父結點為紅色
下一篇：拜托牛人幫忙做個post提交