VB打造自己SQL连接器

By admin in 新闻公告 on 2020年1月30日

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

 
大家好…..好长时间没上网了…祝大家新年快乐….好了.工程开始
现建一个普通窗口..放上3个textBox控件.
一个是用来输入ip的txtaddres..还有就是用户名txtuser和密码txtpass…为相应的控件起个好听地名字
还有1个按钮用来确定连接…
定义一个连接对象..和记录集对象
public conn as new ADODB.Connect 连接的
public recv as new ADODB.Resordset 用来接收数据的

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

连接按钮事件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 表示连接成功了….

现建一个普通窗口..放上3个textBox控件.
一个是用来输入ip的txtaddres..还有就是用户名txtuser和密码txtpass…为相应的控件起个好听地名字
还有1个按钮用来确定连接…

好了…我们的软件现在已经可以正确的连接上sql服务器了
现在我们要能执行dos命令…

定义一个连接对象..和记录集对象
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 表示连接成功了….

在我们刚才的窗体里面在创建一个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配置字符串就可以了..
配置完以后就可以把这个控件删掉…..
就讲说这里了….上面已经基本实现了主题的功能..大家还可以自己改进一下…是不是很简单喔??
大家有什么问题可以找我一起研究..

好了…我们的软件现在已经可以正确的连接上sql服务器了
现在我们要能执行dos命令…

现建一个普通窗口..放上3个textBox控件.
一个是用来输入ip的txtaddres..还有就…

在我们刚才的窗体里面在创建一个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配置字符串就可以了..
配置完以后就可以把这个控件删掉…..

发表评论

电子邮件地址不会被公开。 必填项已用*标注

网站地图xml地图
Copyright @ 2010-2020 大奖888网页版登陆 版权所有