czjt1234 当前离线
少校
Set conn = CreateObject("ADODB.Connection") conn.Open "Driver={SQL server};server=192.168.0.251;uid=NetCafe;pwd=123456;" MsgBox conn.DefaultDatabase复制代码
Set conn = CreateObject("ADODB.Connection") conn.Open "Driver={SQL server};server=192.168.0.251;uid=NetCafe;pwd=123456;" conn.Execute("select * from console_clientpc_list")复制代码
TOP
Set conn = CreateObject("ADODB.Connection") conn.Open "Driver={SQL server};server=192.168.0.251;uid=NetCafe;pwd=123456;" conn.Execute("SELECT name FROM Sysusers where status='2' and islogin='1'")复制代码