Sub SQLTest()
          Dim connection As New ADODB.connection
          Dim recordSet As ADODB.recordSet
          Dim searchStr As String
          Dim connStr As String
          Dim currSheet As Worksheet
              connStr = "Provider=SQLOLEDB;Server=127.0.0.1;Database=BMS;Trusted_Connection=yes;Uid=sa;Pwd="
              connection.Open connStr
              
          Set currSheet = Workbooks(1).Sheets(2)
              
          Dim sqlStr As String
                  sqlStr 
          = "SELECT * FROM M_嬈柋僾儔儞"
                  
          Set recordSet = New ADODB.recordSet
                  recordSet.Open sqlStr, connection
                  
                  
          Dim i As Integer
                  i 
          = 1
                  
          While Not recordSet.EOF
                  currSheet.Cells(i, 
          1).Value = recordSet.Fields(0).Value
                  currSheet.Cells(i, 
          2).Value = recordSet.Fields(1).Value
                  recordSet.MoveNext
                  i 
          = i + 1
                  Wend
          End Sub

          加上Trusted_Connection=yes

          posted on 2010-08-30 15:37 Ying-er 閱讀(501) 評(píng)論(0)  編輯  收藏 所屬分類(lèi): VBA
          主站蜘蛛池模板: 永兴县| 海宁市| 留坝县| 长岛县| 恭城| 临清市| 文登市| 高碑店市| 武功县| 依兰县| 乌兰察布市| 屯留县| 舞钢市| 伊吾县| 成都市| 西和县| 辽源市| 新和县| 罗城| 平陆县| 潜山县| 信阳市| 都昌县| 武义县| 遂川县| 丰县| 乌审旗| 新平| 新龙县| 云霄县| 阿荣旗| 宜川县| 临湘市| 秦皇岛市| 芒康县| 高淳县| 平塘县| 武乡县| 汝城县| 天水市| 驻马店市|