国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學院 > 開發設計 > 正文

用VB打造自己的SQL連接器

2019-11-18 17:28:42
字體:
來源:轉載
供稿:網友
用VB打造自己的SQL連接器

大家好.....好長時間沒上網了...祝大家新年快樂....好了.工程開始
現建一個普通窗口..放上3個textBox控件.
一個是用來輸入PRovider=SQLOLEDB.1;
PassWord="&txtpass&";
PersistSecurityInfo=True;
UserID="&txtuser&";
InitialCatalog="&msdb&";
DataSource="&txtaddres
sql變量力存放的是連接字符串....
conn.ConnectionString=sql'連接字符串..
conn.open'連接
ifconn.state=0then'表示連接不成功...
當conn.state=1表示連接成功了....

好了...我們的軟件現在已經可以正確的連接上sql服務器了
現在我們要能執行dos命令...

在我們剛才的窗體里面在創建一個textbox(txtsend)用來打dos命令和一個發送命令按鈕
發送命令以后服務器會返回數據...所以還要加一個RichTextBox控件(個人推薦)...用textbox也可以
在sql默認得數據庫msdb里面可以執行xp_cmdshell'dos命令'
對...我們現在也要把這條命令發送到服務器執行.....
執行按鈕事件click()
dimsqlasstring
sql="xp_cmdshell'"&txtsend.text&"'"'命令應該用單引號括起來....
setrecv=conn.Execute(sql)'執行sql命令.并把返回數據記錄在記錄集recv里面
dimiasinteger,colasstring
WhileNotrecv.Eof'讀數據到最后一行
fori=0toRecv.Fields.Count-1
col=recv.fields(i).name
RichTextBox.setcolor=&hff00&'改顏色
RichTextBox.seltext=recv.fields(col).value
recv.movenext
next
wend
程序可能會出現問題..最好加上
onErrorgotoerr1
err1:
msgboxerr.number&err.Description'程序錯誤編號和類型
還告訴大家vb里面有個控件可以生成連接字符串.....
components或者直接按Ctrl T..添加MicrosoftADODataControl6.0(OLEDB)控件
控件屬性里面的選擇第三個選項UseConnectionString然后點Build配置字符串就可以了..
配置完以后就可以把這個控件刪掉.....
就講說這里了....上面已經基本實現了主題的功能..大家還可以自己改進一下...是不是很簡單喔??
大家有什么問題可以找我一起研究..
===============================================
本文版權屬20CN網絡安全小組及其作者所有,如有轉載,請保持文章完整性并注明出處

編寫:特務
QQ:27272855
E-mail:XF_Mengqier@163.com

->


發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 江孜县| 嵊州市| 化德县| 乌鲁木齐县| 文水县| 修文县| 七台河市| 文化| 诏安县| 彰化市| 浦北县| 铜山县| 榆社县| 财经| 晋江市| 衡山县| 博兴县| 忻州市| 永兴县| 浏阳市| 盐亭县| 故城县| 四川省| 克拉玛依市| 雷山县| 金堂县| 阿坝县| 友谊县| 金溪县| 泸水县| 西和县| 渭南市| 石屏县| 左贡县| 丰城市| 东光县| 赣州市| 吉隆县| 揭东县| 陇南市| 会东县|