|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
本帖最后由 lichangjun2012 于 2017-6-17 19:43 编辑
下面这段代码在本机上测试,能够提取到数据
我在局域网中的其它机器上访问本机的sqlsever数据库,用以下代码,错误提示“连接字符串无效”,求解答,非常感谢!!!
cnn.Open "Provider=SQLOLEDB;sever=192.168.0.100;Database=t;Uid=h;Pwd=t"(这样也不行)
本机IP 192.168.0.100
本人菜鸟一枚!
Sub 测试()
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim sql As String
cnn.Open "Provider=SQLOLEDB;sever=127.0.0.1;Database=t;Uid=h;Pwd=t"
sql = "select * from ba_cls_info"
rst.Open sql, cnn, 1, 1
Range("A1").CopyFromRecordset rst
rst.Close: cnn.Close
Set rst = Nothing: Set cnn = Nothing
End Sub
|
|