数据库读取问题

2007-09-27 11:48:34 172 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Shopee App加密算法逆向实战：从抓包到libshpssdk.so的深度解析本文详细解析了Shopee App加密算法的逆向过程，从网络抓包发现加密参数入手，通过Frida动态Hook定位到Java层关键方法，并深入追踪至Native层的libshpssdk.so核心函数。文章结合实战演示了如何利用Unidbg模拟执行环境进行算法分析与验证，并探讨了核心参数生成逻辑及风控规避要点，为移动安全与逆向工程研究提供了完整的技术路径。阅读详情

我是初哥一个，在网上找到以下连接数据库的类。现在想使用当中的一个函数query,但不知怎样使用，请各位帮帮忙。比如，我要利用“SQL = "select * from vote where ID=10"去查询，只要我点击一下按钮，就可以显示查询结果。

Imports System.Data.OleDb
Imports System.IO
Module myConnection

Public Class search

Public Shared con As OleDbConnection
Public Shared ada As OleDbDataAdapter
Public Shared ds As DataSet

Public Shared Sub init()
con = New OleDbConnection
con.ConnectionString = "Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Registry Path=;Jet OLEDB:Database Locking Mode=1;Data Source=""E:\MyJob\Training\admin\Vote.mdb"";Mode=Share Deny None;Jet OLEDB:Engine Type=5;Provider=""Microsoft.Jet.OLEDB.4.0"";Jet OLEDB:System database=;Jet OLEDB:SFP=False;persist security info=False;Extended Properties=;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Create System Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;User ID=Admin;Jet OLEDB:Global Bulk Transactions=1"

ada = New OleDbDataAdapter
ada.SelectCommand = New OleDbCommand
ada.InsertCommand = New OleDbCommand
ada.UpdateCommand = New OleDbCommand
ada.DeleteCommand = New OleDbCommand

ada.SelectCommand.Connection = con
ada.InsertCommand.Connection = con
ada.UpdateCommand.Connection = con
ada.DeleteCommand.Connection = con

End Sub

Public Shared Function query(ByVal SQL As String) As DataSet
Try
ds = New DataSet
ada.SelectCommand.CommandText = SQL
ada.Fill(ds)
Return (ds)
Catch ex As Exception
MsgBox(ex.Message)

End Try

End Function

Public Shared Function insert(ByVal SQL As String) As Integer
Dim i As Integer
ds = New DataSet
ada.InsertCommand.CommandText = SQL
con.Open()
i = ada.InsertCommand.ExecuteNonQuery()
con.Close()
ada.Fill(ds)
Return (i)
End Function

Public Shared Function update(ByVal SQL As String) As Integer
Try

Dim i As Integer
ds = New DataSet
ada.UpdateCommand.CommandText = SQL
con.Open()
i = ada.UpdateCommand.ExecuteNonQuery()
con.Close()
ada.Fill(ds)
Return (i)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function

Public Shared Function delete(ByVal SQL As String) As Integer
Dim i As Integer
ds = New DataSet
ada.DeleteCommand.CommandText = SQL
con.Open()
i = ada.DeleteCommand.ExecuteNonQuery()
con.Close()
ada.Fill(ds)
Return (i)
End Function
End Class

End Module

...全文