我想根據序號值,查詢acesss資料庫中內容,acesss資料庫中的內容如下:(只有一個表mainpar)

VB中建立form1,控制元件adodc1, datagrid,command,text1,界面如下:

對應代碼如下:
Private Sub Command1_Click()
If Text1 > "" Then
Adodc1.RecordSource = "Select * from mainpar where 序號='" & Text1 & "'"
Else
Adodc1.RecordSource = "Select * from mainpar "
End If
End Sub
Private Sub Form_Load()
Dim mpath$, mlink$
mpath = App.Path
If Right(mpath, 1) <> "\" Then mpath = mpath + "\"
mlink = "Provider = Microsoft.Jet.OLEDB.4.0;"
mlink = mlink + "data source=" + mpath + "jjmodel.mdb"
Adodc1.ConnectionString = mlink
Adodc1.CommandType = adCmdUnknown
End Sub
但是運行后什么都不顯示

高手給看看,拜托了
uj5u.com熱心網友回復:
補充,這是我按照書上例子做的,書上內容如下:
uj5u.com熱心網友回復:
誰給分析分析uj5u.com熱心網友回復:
大神們發發言吧轉載請註明出處,本文鏈接:https://www.uj5u.com/gongcheng/7370.html
標籤:VB基礎類
