VBS脚本ADO怎么连接读取SQL里面的表的内容？

czjt1234

SQLManager，设置数据库用户名密码，可以打开数据库，看到里面的表及内容

1. Set conn = CreateObject("ADODB.Connection")
   
2. conn.Open "Driver={SQL server};server=192.168.0.251;uid=NetCafe;pwd=123456;"
   
3. MsgBox conn.DefaultDatabase

复制代码

MsgBox 语句显示 master
说明已经连接成功

请问怎么用ADO Recordset查询里面的表的数据？

happy886rr

回复 1# czjt1234
哪种语言，你的连接字符串是什么？

czjt1234

1. Set conn = CreateObject("ADODB.Connection")
   
2. conn.Open "Driver={SQL server};server=192.168.0.251;uid=NetCafe;pwd=123456;"
   
3. conn.Execute("select * from console_clientpc_list")

复制代码

第三行对象名无效

是不是要指定什么数据库先？

happy886rr

回复 3# czjt1234
database=哪去了。端口不是默认需要加上。就这两点，其他都没问题。
还有服务器是否设置了IP拦截

yu2n

SQL Server

1. 
   
2. Dim StrDBConn1
   
3. StrDBConn1 = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=user123;Password=pwd123;Initial Catalog=MyDB;Data Source=SqlServer-Name"
   
4. Set objRS1    = CreateObject("ADODB.RecordSet")
   
5. Set objsConn1  = CreateObject("ADODB.Connection")
   
6. strSQL1 = "Select * from User where name='" & CName & "'"
   
7. objsConn1.ConnectionString = StrDBConn1
   
8. objsConn1.Open
   
9. objRS1.Open strSQL1, objsConn1, 3, 3
   
10. If objRS1.RecordCount > 0 Then
    

复制代码

Access

1. 
   
2. Set conn = CreateObject("adodb.connection")
   
3. Set rs = CreateObject("ADODB.Recordset")
   
4. 
   
5. strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
   
6.                 "Data Source=D:\TEST.MDB;" & _
   
7.                 "Password=Abcd123;" & _
   
8.                 "User ID=datamaintain;"
   
9. strSql = "select * from `Users`"
   
10. 
    
11. conn.Open strConn
    
12. With rs
    
13.         .ActiveConnection = conn
    
14.         .CursorLocation = adUseClient
    
15.         .CursorType = adOpenKeyset
    
16.         .LockType = adLockOptimistic
    
17.         .Open strSql
    
18. End With
    

复制代码

czjt1234

回复 4# happy886rr

我是本机连接的，没有端口问题

还有如果指定了database，由于该文件正在使用中，会无法打开
该文件在windows里也是无法复制的，因为正在使用中


SQLManager可以打开，那么它是打开的哪个数据库，默认数据库怎么表示
怎么打开默认数据库

czjt1234

回复 5# yu2n


   一样，由于数据库文件D:\Program Files\Hintsoft\PubwinServer\database\local_Data.MDF在使用中

提示无法打开登录'D:\Program Files\Hintsoft\PubwinServer\database\local_Data.MDF'中请求的数据库

czjt1234

我用SQLManager连接，也没有指定数据库文件啊

它是不是打开默认数据库？

czjt1234

1. Set conn = CreateObject("ADODB.Connection")
   
2. conn.Open "Driver={SQL server};server=192.168.0.251;uid=NetCafe;pwd=123456;"
   
3. conn.Execute("SELECT name FROM Sysusers where status='2' and islogin='1'")

复制代码

这个没有报错，说明已经连上了数据库
怎么读取表格？

happy886rr

回复 9# czjt1234
你为什么非要读取sql的默认数据库？那个只有sa用户才能看到。新建一个其他数据库，试试看。

czjt1234

我就要读取顶楼图示里的一个表的数据

czjt1234

9楼的，是读取用户的，怎么把读取的用户显示出来？
我就是基础语法不会

czjt1234

回复 10# happy886rr


   因为我指定数据库文件是打不开的，正在使用中

而SQLManager打开默认数据库是可行的
我运行SQLManager时，只输入了用户名密码。没有指定数据库文件

czjt1234

SQLManager，设置数据库用户名密码，可以打开数据库，看到里面的表及内容
图在顶楼

1. Set conn = CreateObject("ADODB.Connection")
   
2. conn.Open "Driver={SQL server};server=192.168.0.251;uid=NetCafe;pwd=123456;"
   
3. MsgBox conn.DefaultDatabase

复制代码

MsgBox 语句显示 master
说明已经连接成功

请问怎么用ADO Recordset查询里面的表的数据？