VB.NET 誰有關于SQLITE的類庫.最好有備注和使用方法的

system.data.sqlite后面加.org

為浙江等地區(qū)用戶提供了全套網頁設計制作服務，及浙江網站建設行業(yè)解決方案。主營業(yè)務為成都網站設計、網站制作、浙江網站設計，以傳統(tǒng)方式定制建設網站，并提供域名空間備案等一條龍服務，秉承以專業(yè)、用心的態(tài)度為用戶提供真誠的服務。我們深信只要達到每一位用戶的要求，就會得到認可，從而選擇與我們長期合作。這樣，我們也可以走得更遠！

有完全開源的ado點虐 for sqlite類庫。使用方法的demo盡在其中。

vb點虐 如何引用自定義類庫

在項目A里添加引用，在“添加引用”對話框里找到項目B就可以了。也可以先把項目B生成dll文件，然后在項目A中添加對這個dll文件的引用。

vb點虐 如何與excel建立連接，并從里面查詢并讀取數據？

1.新建一張表格，在表格中導入學生的成績表，如圖所示，將建立一個按鈕，通過它來實現查找。

2.單擊菜單欄中的“開發(fā)工具”——插入——表單控件——按鈕，在出現的十字箭頭上拖住畫出一個按鈕，如圖所示。

3.在彈出的查找紅對話框中選擇“錄制”，在彈出的“錄制新宏”對話框中，修改宏名稱為“查找”，單擊確定。

4. 單擊“開發(fā)工具”——查看代碼，打開VBA編輯器，如圖所示。

5.現在輸入代碼：

Sub 查找()

Dim jieguo As String, p As String, q As String

Dim c As Range

jieguo = Application.InputBox(prompt:="請輸入要查找的值：", Title:="查找", Type:=2)

If jieguo = "False" Or jieguo = "" Then Exit Sub

Application.ScreenUpdating = False

Application.DisplayAlerts = False

With ActiveSheet.Cells

? Set c = .Find(jieguo, , , xlWhole, xlByColumns, xlNext, False)

? If Not c Is Nothing Then

? ? ? p = c.Address

? ? ? Do

? ? ? ? ? c.Interior.ColorIndex = 4

? ? ? ? ? q = q c.Address vbCrLf

? ? ? ? ? Set c = .FindNext(c)

? ? ? Loop While Not c Is Nothing And c.Address p

? End If

End With

MsgBox "查找數據在以下單元格中：" vbCrLf vbCrLf _

? q, vbInformation + vbOKOnly, "查找結果"

Application.ScreenUpdating = True

Application.DisplayAlerts = True

End Sub

6.現在回到EXCEL表格，右擊按鈕，選擇“編輯文字”，修改按鈕名稱為“查找按鈕”。

7. 現在單擊查找按鈕，出現對話框“請輸入要查找的值”，在方框中輸入“男”，單擊確定，出現對話框“查找數據在一下單元格中”，單擊確定，對應單元格就變成了亮色。