bigcowboy
پنج شنبه 02 فروردین 1386, 16:20 عصر
من میخوام از یه کامپیوتر خونگی که وصل به اینترنت
به یه بانک اطلاعاتی از نوع اکسس که تو یه سایت قرار داره وصل بشم
اینم کدمه که خطا داره
runtime error 8309.internet server error object/module not found.
کد :
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
Dim rs As ADODB.Recordset
ConnString = "Provider=MS Remote;Remote Server=http://www.zzz.com/;Remote Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DB.mdb;Persist Security Info=False"
cn.Open (ConnString)
Set rs = New ADODB.Recordset
SQLquery = "Select * from TT"
rs.Open SQLquery, cn, OpenKeyset, adLockOptimistic
MsgBox (rs.Fields(1
))
به یه بانک اطلاعاتی از نوع اکسس که تو یه سایت قرار داره وصل بشم
اینم کدمه که خطا داره
runtime error 8309.internet server error object/module not found.
کد :
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
Dim rs As ADODB.Recordset
ConnString = "Provider=MS Remote;Remote Server=http://www.zzz.com/;Remote Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DB.mdb;Persist Security Info=False"
cn.Open (ConnString)
Set rs = New ADODB.Recordset
SQLquery = "Select * from TT"
rs.Open SQLquery, cn, OpenKeyset, adLockOptimistic
MsgBox (rs.Fields(1
))