Private Sub Optinformation_Click(Index As Integer)
Dim s As String
Select Case Index
Case 0
s = InputBox("請輸入要查詢的駕齡：")
Adodc1.RecordSource = "select * from 交通事故資訊 where 駕齡 like '%" & s & " % ' "
Adodc1.Refresh
DataGrid1.Refresh
Case 1
s = InputBox("請輸入要查詢的違章行為：")
Adodc1.RecordSource = "select * from 交通事故資訊 where 違章行為 like '%" & s & " % ' "
Adodc1.Refresh
DataGrid1.Refresh
Case 2
s = InputBox("請輸入要查詢的事故時間：")
Adodc1.RecordSource = "select * from 交通事故資訊 where 事故時間 like '%" & s & " % ' "
Adodc1.Refresh
DataGrid1.Refresh
Case 3
s = InputBox("請輸入要查詢的性別：")
Adodc1.RecordSource = "select * from 交通事故資訊 where 性別 like '%" & s & " % ' "
Adodc1.Refresh
DataGrid1.Refresh
End Select
End Sub
uj5u.com熱心網友回復：
可能需要事先注冊Iadodc依賴的控制元件。在64位Windows下：
64位exe和dll在目錄c:\windows\system32目錄下；
32位exe和dll在目錄c:\windows\syswow64目錄下；
所以要注意：
在win64位系統下注冊32位ocx或dll需要將32位ocx或dll拷貝到c:\windows\syswow64\目錄下。
且注冊要用c:\windows\syswow64\regsvr32 xxxxxxx.ocx或dll
在win64位系統下設定32位程式使用的資料庫別名要用c:\windows\syswow64\cliconfg.exe
在win64位系統下設定32位程式使用的系統DSN要用c:\windows\syswow64\odbcad32.exe
uj5u.com熱心網友回復：
您可以再詳細一點嗎，我沒看懂具體怎么操作，應該把什么東西拷貝過去uj5u.com熱心網友回復：
Adodc1是什么型別的變數？uj5u.com熱心網友回復：
adodc的連接字串呢？uj5u.com熱心網友回復：
SQL陳述句中的欄位均是字符型資料型別，就沒有問題。DataGrid1.Refresh 好像不對，應該是：
Set DataGrid1.DataSource = Adodc1 '在DataGrid1中顯示資料
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/73806.html
下一篇：大家幫忙看看