利用vba+ado+sql连接sql server数据库

hner

Sub test()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim SqlStr As String, CnStr As String, MyTable As String, Db As String
MyTable = "spt_provider_types"
Db = "master"
Set cn = New ADODB.Connection
'连接本地数据库
CnStr = "provider=sqloledb;server=renh;user id=sa;pwd=;database=" & Db
'CnStr = "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.Path & "\" & Db
Debug.Print CnStr
cn.Open CnStr
If cn.State = adStateOpen Then
  MsgBox "数据库连接成功！"
  SqlStr = "select * from " & MyTable
  Set rs = cn.Execute(SqlStr)
  Range("a1").CopyFromRecordset rs
End If
End Sub

vyizjwa

先学习一下

5257004

用.NET2005....拉个gridview就行了

DSY-GH

就那么几句还打包,唉