利用VB打造Sql Server数据库连接器

 RedIce声明:该文章来自《黑客基地》

现建一个普通窗口..放上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配置字符串就可以了..
配置完以后就可以把这个控件删掉.....