VBE å·¥å
· å¼ç¨,éä¸ Microsoft ActiveX Data Object 2.8 Library
æä¸æ¸
æ¥æ¯ä¸æ¯UFDATA_013_2008表çVENDORåçæ°æ®,å¦æä¸æ¯,ä½ èªå·±æ¹ä¸ä¸SQLè¯å¥å§,sql = "select VENDOR from UFDATA_013_2008"
Sub SQLæ°æ®å¯¼å
¥()
Dim cn As New ADODB.Connection
Dim rs As ADODB.Recordset
Dim str As String
Dim sql As String
Dim i As Integer
str = "Provider=SQLOLEDB;Data Source=SQLSERVERæå¡å¨åæIP;DATABASE=æ°æ®åº;UID=ç¨æ·å;PWD=å¯ç "
cn.Open str
Set rs = New ADODB.Recordset
sql = "select VENDOR from UFDATA_013_2008"
rs.Open sql, cn, adOpenStatic, adLockOptimistic
If Not rs.EOF Then
For i = 1 To rs.RecordCount
Sheet2.Cells(i, 1).Value = rs.Fields(0).Value
Next i
rs.MoveNext
End If
rs.Close
cn.Close
End Sub
温馨提示:答案为网友推荐,仅供参考