我想应该是数据与数据库字段类型不符引起的错误
具体可能就是-2147024891 超出了int范围

解决方案 »

  1.   

    你是否在Windows 2000或是IIS的权限设置?也就是说看看你是否有访问的权限
      

  2.   

    Dim rdso As RDS.DataControl   ' 建立一个具体的 RDS 对象
    Dim rs As ADODB.Recordset    ' 注意 rs 还不是具体对象Private Sub Command1_Click()
    Dim driver, dbpath As String
        driver = "driver={Microsoft Access Driver (*.mdb)}"
        dbpath = ";dbq=C:\inetpub\wwwroot\source\mdb\stock01.mdb"
       
       rdso.Server = "http://127.0.0.1"
       rdso.Connect = driver & dbpath
     
       rdso.SQL = "Select * From 股票行情表"
       rdso.ExecuteOptions = adcExecSync
       rdso.Refresh
       
       
    End SubSub OutputRecordset(rs As ADODB.Recordset)
       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
      

  3.   

    上面是我的代码!还有是不是我的权限设置问题
     回复人: lusoo(英雄无敌) ( ) 信誉:100  2002-10-24 20:34:00  得分:0 
     
     
      你是否在Windows 2000或是IIS的权限设置?也就是说看看你是否有访问的权限
      
     
    提醒了我。但是应该怎么设置呢!