1:
不清楚你的具体意思
2:var ADS = new ActiveXObject("RDS.Dataspace");
var mts_util = ADS.CreateObject("util.dodatabase",strServer);
// strServer为服务器名称
不清楚你的具体意思
2:var ADS = new ActiveXObject("RDS.Dataspace");
var mts_util = ADS.CreateObject("util.dodatabase",strServer);
// strServer为服务器名称
解决方案 »
- VB 乘法 与 加法问题
- rasdial在ide成功拨号,编译成exe一拨号就崩溃
- 有什么办法可以动态生成N层菜单?
- 如何设置MSFlexGrid的某个单元格、某行、某列的ForeColor
- 有没有类似OICQ之类的控件
- 初级问题,等于白送分!
- 服务器组件(DLL)中的窗体如何在客户机中显示.解决问题给100分
- MSHFLEXGRID控件高手请来看帮忙!来者给分,答案正确再加分。
- 请问QQ内的窗口最大化是怎么做出来的?
- 急!!!高分征ActiveReport注册码/注册机
- 请问:"webbrowser的progid是什么?还有怎样可以知道一个控件的progid,或怎样设置?"谢谢!
- 在VB+SQLserver中遇到的另我困惑的问题
对不起,是我没说清楚:
1,我想下载网上的MDB文件到本机,不要出现任何提示和对话框等,只要知道下载完毕就可以了,期间不要出现是否下载,下载到何地等信息。
2,我想实现在本机操作互连网上的数据库!我测试如下代码,失败??Dim rdso As New RDS.DataControlDim rs As ADOR.RecordsetPrivate Sub Command1_Click()
driver = "driver={microsoft access driver(*.mdb)}"
dbpath = "; dbq=C:\Inetpub\wwwroot\expo.mdb"
rdso.Server = "http://127.0.0.1"
rdso.Connect = driver & dbpath
rdso.SQL = "Select * from expo"
rdso.ExecuteOptions = adcExecAsync
rdso.FetchOptions = adcFetchBackground
rdso.Refresh
Set rs = rdso.Recordset
outputrecordset rs
End SubSub outputrecordset(rs As ADOR.Recordset)
Dim i As Integer
For i = 0 To rs.Fields.Count - 1
Debug.Print rs.Fields(i).Name
Next
Debug.Print
While Not rs.EOF
For i = 0 To rs.Fields.Count - 1
Debug.Print rs.Fields(i),
Next
'Debug.Print
rs.MoveNext
Wend
End Sub