大家好.....好长时间没上网了...祝大家新年快乐....好了.工程开始

　　现建一个普通窗口..放上3个textBox控件.

　　一个是用来输入ip的txtaddres..还有就是用户名txtuser和密码txtpass...为相应的控件起个好听地名字

　　还有1个按钮用来确定连接...

　　定义一个连接对象..和记录集对象

　　public conn as new ADODB.Connect '连接的

　　public recv as new ADODB.Resordset '用来接收数据的

　　'''''''''''''''''''''''''''''''''''''''''''''''''''

　　连接按钮事件click()

　　dim sql as string

　　sql ="Provider=SQLOLEDB.1;

　　Password=" &txtpass &";

　　Persist Security Info=True;

　　User ID=" &txtuser &";

　　Initial Catalog=" &msdb &";

　　Data Source=" &txtaddres

　　sql变量力存放的是连接字符串....

　　conn.ConnectionString = sql '连接字符串..

　　conn.open '连接

　　if conn.state = 0 then '表示连接不成功...

　　当conn.state = 1 表示连接成功了....

　　好了...我们的软件现在已经可以正确的连接上sql服务器了

　　现在我们要能执行dos命令...

　　在我们刚才的窗体里面在创建一个textbox(txtsend)用来打dos命令和一个发送命令按钮

　　发送命令以后服务器会返回数据...所以还要加一个RichTextBox控件(个人推荐)...用textbox也可以

　　在sql默认得数据库msdb里面可以执行xp_cmdshell 'dos命令'

　　对...我们现在也要把这条命令发送到服务器执行.....

　　执行按钮事件click()

　　dim sql as string

　　sql = "xp_cmdshell '" &txtsend.text &"'" '命令应该用单引号括起来....

　　set recv = conn.Execute(sql) ' 执行sql命令.并把返回数据记录在记录集recv里面

　　dim i as integer,col as string

　　While Not recv.Eof '读数据到最后一行

　　for i = 0 to Recv.Fields.Count - 1

　　col =recv.fields(i).name

　　RichTextBox.setcolor = &hff00& '改颜色

　　RichTextBox.seltext = recv.fields(col).value

　　recv.movenext

　　next

　　wend

　　程序可能会出现问题..最好加上

　　on Error goto err1

　　err1:

　　msgbox err.number &err.Description '程序错误编号和类型

　　还告诉大家vb里面有个控件可以生成连接字符串.....

　　components或者直接按Ctrl+T..添加Microsoft ADO Data Control 6.0(OLEDB)控件

　　控件属性里面的选择第三个选项Use Connection String然后点Build配置字符串就可以了..

　　配置完以后就可以把这个控件删掉.....

　　就讲说这里了....上面已经基本实现了主题的功能..大家还可以自己改进一下...是不是很简单喔??

　　大家有什么问题可以找我一起研究..