VBA连接SQL Server2000数据库

  最近学习VBA的知识，有点稀里糊涂的感觉。今天下午没什么业务又开始研究了，连上数据库了，以防以后忘了，记录以下。呵呵~~

步骤如下：

① 代码区里的工具⇒参照设定里添加参照。

　　　Microsoft  ActiveX  Data Objects 2.5 Library

 

②新建一个模块在模块中添加如下代码。

Option Explicit

 

Public cn As New ADODB.Connection

Public Sub cnOpen()

Dim strConn As String

strConn = ""

strConn = strConn & "Provider=SQLOLEDB.1;Persist Security Info=false; User ID=sa;Password=;Initial Catalog=VBAstudy;Data Source=(local);"

If cn Is Nothing Then Set cn = New ADODB.Connection

If cn.State <> adStateClosed Then cn.Close

If cn.State = adStateClosed Then cn.Open strConn

End Sub

 

Public Sub cnClose()

cn.Close

End Sub

③ 在sheet里添加要执行的代码。如下很简单的代码。

Public ds As New ADODB.Recordset

Public Sub getdata()

Dim strSQL As String

Call cnOpen  --调用模块中的数据库连接子程序

strSQL = ""

strSQL = "select * from theme"

Set ds = cn.Execute(strSQL)

Dim i As Integer

For i = 1 To 1000

    Sheet1.Range(Cells(i, 1), Cells(2000, 1)).Value = ds.Fields(0).Value

    Sheet1.Range(Cells(i, 2), Cells(2000, 2)).Value = ds.Fields(1).Value

    ds.MoveNext

Next

Call cnClose   --调用模块中的数据库关闭子程序

End Sub

④点击F5运行即可。（F8单步执行）