制作sql注入工具詳細(xì)教程全套資源是小編為大家分享的一套可以讓你快速學(xué)到如何做出SQL數(shù)據(jù)庫(kù)工具的教程,主要用的是易語(yǔ)言和C語(yǔ)言完成,需要的下載吧。
制作sql注入工具詳細(xì)教程全套資源說(shuō)明:
學(xué)習(xí)SQL一步一步開(kāi)始,跟著本文的腳印帶你走向SQL方向。
本分先分別介紹Microsoft Query 方法書(shū)寫(xiě)SQL語(yǔ)句,和VBA方法書(shū)寫(xiě)SQL語(yǔ)句。(注:VBA語(yǔ)句中只需修改其中的SQL語(yǔ)句即可,其他只需要復(fù)制粘貼即可)。
1.進(jìn)入VBA界面
2.插入模塊
3.雙擊模塊
4.在代碼區(qū)碼
寫(xiě)入VBA代碼
代碼如下:
Sub Test4()
Dim Conn As Object, Rst As Object
Dim strConn As String, strSQL As String
Dim i As Integer, PathStr As String
Set Conn = CreateObject("ADODB.Connection")
Set Rst = CreateObject("ADODB.Recordset")
PathStr = ThisWorkbook.FullName '設(shè)置工作簿的完整路徑和名稱(chēng)
Select Case Application.Version * 1 '設(shè)置連接字符串,根據(jù)版本創(chuàng)建連接
Case Is <= 11
strConn = "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=excel 8.0;Data source=" & PathStr
Case Is >= 12
strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & PathStr & ";Extended Properties=""Excel 12.0;HDR=YES"";"""
End Select
'設(shè)置SQL查詢(xún)語(yǔ)句
strSQL = "請(qǐng)寫(xiě)入SQL語(yǔ)句"
Conn.Open strConn '打開(kāi)數(shù)據(jù)庫(kù)鏈接
Set Rst = Conn.Execute(strSQL) '執(zhí)行查詢(xún),并將結(jié)果輸出到記錄集對(duì)象
With Sheet3
.Cells.Clear
For i = 0 To Rst.Fields.Count - 1 '填寫(xiě)標(biāo)題
.Cells(1, i + 1) = Rst.Fields(i).Name
Next i
.Range("A2").CopyFromRecordset Rst
.Cells.EntireColumn.AutoFit '自動(dòng)調(diào)整列寬
.Cells.EntireColumn.AutoFit '自動(dòng)調(diào)整列寬
End With
Rst.Close '關(guān)閉數(shù)據(jù)庫(kù)連接
Conn.Close
Set Conn = Nothing
Set Rst = Nothing
End Sub
復(fù)制代碼
介紹Microsoft Query的方法
1.從數(shù)據(jù)---自其他來(lái)源--來(lái)自Microsoft Query
2.選擇Excel類(lèi)型
3.選擇工作簿(文件)
4.選擇工作表
5.選擇需求數(shù)據(jù)的列
6.篩選條件,本例只接選下一步
7.排序方法,本教程也直接下一步
8.返回工作表或Microsoft Query編輯器。(本例選 Microsoft Query,以便以編寫(xiě)SQL語(yǔ)句)
9.編寫(xiě)SQL語(yǔ)句窗口。
通過(guò)以上二種方法,能知道SQL書(shū)寫(xiě)到什么地方。
接下來(lái),可以開(kāi)始學(xué)習(xí)SQL語(yǔ)句語(yǔ)法。
- PC官方版
- 安卓官方手機(jī)版
- IOS官方手機(jī)版