Public cnn As New ADODB.Connection再去掉 New ADODB.Connection

解决方案 »

  1.   

    去掉 Set cnn = New ADODB.Connection
      

  2.   

    你改为Public cnn As Object就可以了
      

  3.   

    Public rst As ADODB.Recordset
    Public cnn As ADODB.Connection
    定义的时候不加"new",那么需要set
    如果加了new则不需要set
      

  4.   

    Option Explicit
    Public rst As Recordset
    Public conn_SB As String
    Public sqlstr As String
    Public cnn As New ADODB.Connection
    Private Sub Form_Load()
    cnn.Open ("driver={SQL Server};server=(local);uid=sa;database=xzh_xz;pwd=")
        sqlstr = "select * from county_numreport"
        Set rst = New ADODB.Recordset
            rst.CursorLocation = adUseClient
            rst.Open sqlstr
        Set rst.ActiveConnection = cnn
    End Sub
    以上是经过修改的程序,可是执行到rst.CursorLocation = adUseClient有出了问题??????rst没有CursorLocation这个属性!!!!
      

  5.   

    你改为Public cnn As Object就可以了
      

  6.   

    你改为Public rst As Object
      

  7.   

    你改为Public rst As Object
      

  8.   

    public rst as adodb.recordsetSet rst.ActiveConnection = cnn
    放在rst.CursorLocation = adUseClient前面试试。
      

  9.   

    读数据 
            While Not rst.EOF
                aa= rst("ItemId")
                bb= rst("Name")
                If IsNull(rst("Describe")) = False Then
                    cc= rst("Describe")
                End If
            rst.MoveNext
            Wend
      

  10.   

    读数据 
            While Not rst.EOF
                aa= rst("ItemId")
                bb= rst("Name")
                If IsNull(rst("Describe")) = False Then
                    cc= rst("Describe")
                End If
            rst.MoveNext
            Wend
      

  11.   

    Option Explicit
    Public rst As Recordset
    Public conn_SB As String
    Public sqlstr As String
    Public cnn As New ADODB.Connection
    Private Sub Form_Load()
    cnn.Open ("odbc;driver={SQL Server};server=服务器名;uid=sa;database=数据库名;pwd=")
        sqlstr = "select * from county_numreport"
        Set rst = New ADODB.Recordset
            rst.CursorLocation = adUseClient
            rst.Open sqlstr
        Set rst.ActiveConnection = cnn
    End Sub