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) 評論(0)  編輯  收藏 所屬分類: VBA
          主站蜘蛛池模板: 平潭县| 萨迦县| 铜鼓县| 呼和浩特市| 弥勒县| 临沧市| 苏尼特左旗| 镇沅| 雷州市| 马鞍山市| 和静县| 石首市| 萨迦县| 若羌县| 改则县| 富源县| 旌德县| 肃宁县| 崇义县| 抚宁县| 铁岭县| 淄博市| 清远市| 西吉县| 平陆县| 肥乡县| 图木舒克市| 即墨市| 甘肃省| 遂昌县| 霞浦县| 班玛县| 福建省| 隆回县| 通海县| 河东区| 景洪市| 禹城市| 临汾市| 礼泉县| 翼城县|