用EXCEL VBA '引用ADO Public Cnn As ADODB.Connection Public Rec As ADODB.RecordsetPublic Sub GetData() Set Cnn = New ADODB.Connection Cnn.ConnectionString = "driver=SQL Server;server=(local);database=YourDataBaseName;uid=sa;pwd=" Cnn.Open Set Rec = New ADODB.Recordset Rec.Open "select * from YourTabName", pCnn, adOpenDynamic '接下来是从RecordSet中填充表的代码,不用我详述了吧。:) '用cells属性可访问excel的单元格 End Sub
'引用ADO
Public Cnn As ADODB.Connection
Public Rec As ADODB.RecordsetPublic Sub GetData()
Set Cnn = New ADODB.Connection
Cnn.ConnectionString = "driver=SQL Server;server=(local);database=YourDataBaseName;uid=sa;pwd="
Cnn.Open
Set Rec = New ADODB.Recordset
Rec.Open "select * from YourTabName", pCnn, adOpenDynamic
'接下来是从RecordSet中填充表的代码,不用我详述了吧。:)
'用cells属性可访问excel的单元格
End Sub