|
 | 作者: battle [battle]
 论坛用户 |
登录 |
| QQ:27272855 E-mail:XF_Mengqier@163.com 大家好.....好长时间没上网了...祝大家新年快乐....好了.工程开始 现建一个普通窗口..放上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配置字符串就可以了.. 配置完以后就可以把这个控件删掉..... 就讲说这里了....上面已经基本实现了主题的功能..大家还可以自己改进一下...是不是很简单喔?? 大家有什么问题可以找我一起研究.. |
| 地主 发表时间: 04-12-29 18:19 |
|
20CN网络安全小组版权所有
Copyright © 2000-2010 20CN Security Group. All Rights Reserved.
论坛程序编写：NetDemon
粤ICP备05087286号
论坛: 编程破解
标题: 用vb打造自己的SQL连接器（原创)