知识大全 vb.net实现sqlite数据库编程示例

Posted 2022-07-17 数据库

篇首语：不磨不炼，不成好汉。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 vb.net实现sqlite数据库编程示例相关的知识，希望对你有一定的参考价值。

在项目开发中充分体会到了一个精简数据存储模块的重要性及实用性在综合了三年开发经验的基础上向各位推介一下sqlite数据库希望更多的程序猿支持开源精神 Imports System data SQLite Public Class Form Dim conn As SQLiteConnection Private Sub Button _Click（ByVal sender As System Object ByVal e As System EventArgs） Handles Button Click If System IO File Exists（ test db ） = True Then System IO File Delete（ test db ） End If SQLiteConnection CreateFile（ test db ） conn = New SQLiteConnection（ Data Source=test db ;Pooling=true;FailIfMissing=false ） If conn State <> ConnectionState Open Then conn Open（） MsgBox（打开成功！） End If Dim cmd As New SQLiteCommand cmd Connection = conn cmd CommandText = CREATE TABLE Test （ID INTEGER PRIMARY KEY TestName VARCHAR（） TestTime DateTime Operator VARCHAR（）） Dim result As Integer = cmd ExecuteNonQuery（） If result = Then MsgBox（成功） Else MsgBox（失败） End If cmd = conn CreateCommand（） cmd CommandText = insert into Test（TestName TestTime Operator）values（@Name @TestTime @Operator） cmd Parameters Add（ @Name Data DbType String） Value = 动静 cmd Parameters Add（ @TestTime Data DbType DateTime） Value = Now（） cmd Parameters Add（ @Operator Data DbType String） Value = peer result = cmd ExecuteNonQuery（） If result <> Then MsgBox（插入成功） End If SelectShowInfo（） cmd = conn CreateCommand（） cmd CommandText = update Test set TestName= 动静 result = cmd ExecuteNonQuery（） If result <> Then MsgBox（更新成功） End If SelectShowInfo（） cmd = conn CreateCommand（） cmd CommandText = delete from Test result = cmd ExecuteNonQuery（） If result <> Then MsgBox（删除成功） End If SelectShowInfo（） cmd Dispose（） If conn State = ConnectionState Open Then conn Close（） End If End Sub Public Sub SelectShowInfo（） Dim sa As New SQLiteDataAdapter（ select * from Test conn） Dim ds As New System Data DataSet sa Fill（ds Test ） Dim mytable As New System Data DataTable mytable = ds Tables（ Test ） Me DataGridView DataSource = mytable Me DataGridView Refresh（） End Sub End Class cha138/Article/program/net/201311/13874