吾爱破解 - LCG - LSG |安卓破解|病毒分析|www.52pojie.cn

 找回密码
 注册[Register]

QQ登录

只需一步,快速开始

查看: 5231|回复: 2
收起左侧

用vb打造自己的SQL连接器

[复制链接]
阿冰 发表于 2008-9-29 01:30
大家好.....好长时间没上网了...祝大家新年快乐....好了.工程开始
现建一个普通窗口..放上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配置字符串就可以了..
配置完以后就可以把这个控件删掉.....
就讲说这里了....上面已经基本实现了主题的功能..大家还可以自己改进一下...是不是很简单喔??
大家有什么问题可以找我一起研究..

发帖前要善用论坛搜索功能,那里可能会有你要找的答案或者已经有人发布过相同内容了,请勿重复发帖。

wxb519774317 发表于 2008-11-29 14:26
没人顶``藕顶你i```呷呷``
boyqi 发表于 2008-12-8 14:29
您需要登录后才可以回帖 登录 | 注册[Register]

本版积分规则 警告:本版块禁止灌水或回复与主题无关内容,违者重罚!

快速回复 收藏帖子 返回列表 搜索

RSS订阅|小黑屋|处罚记录|联系我们|吾爱破解 - LCG - LSG ( 京ICP备16042023号 | 京公网安备 11010502030087号 )

GMT+8, 2024-3-29 21:51

Powered by Discuz!

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表