用ADODC控件的哪个属性
可以通过FSO对象进行搜索该MDB数据库文件~~~~~~~~
然后adodc.datasource=找出的路径
dim pathname as string
pathname=app.path
app.path即为当前程序所在路径
pathname & "相对路径" 确定数据库位置
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据处理名.mdb ;Persist Security Info=False"
Adodc1.RecordSource = "select * from 表名"
Adodc1.Refresh
End Sub
sys_wkq(吴克青)的方法好象不可行
用app.path就行了
哈哈,这个问题我给你解决了!!!!
可以先用ODBC连上数据源,再如下:
mycon.Open "aaa"
Set mycom.ActiveConnection = mycon
mycom.CommandText = "Select * from rydj"
myres.CursorLocation = adUseClient
myres.Open mycom, , adOpenStatic, adLockBatchOptimistic
就OK了。