求教vb.net如何操作sqlite数据库？

wwhhg2 2009-07-25 09:44:00

准备使用sqlite数据库，看了一天文档，一知半解，请高人指点，希望不吝赐教，先谢了！具体：
假设已经建立了一个sqlite.数据库连接：
１、用什么方法插入、修改、删除一条记录呢？比如access数据库我可以用cmd实现，sqlite对应的用什么实现呢？
２、怎样用sql语句取得表里面的记录呢？比如access数据库我可以用cmd输出到red或者用ada输出到dataset，对应的sqlite应该怎么操作呢？

...全文

1459 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

zhaochenglin2003 2011-08-06

打赏
举报

很有帮助

晨风 2011-03-24

打赏
举报

留言备份，谢谢楼主及回复者。

paxiti 2011-02-16

打赏
举报

经典贴子需要留个脚印，感谢楼主的问题及诚实男人的回答

XING979020 2011-02-05

打赏
举报

不明白使用。有朋友可以说一下？

XING979020 2011-02-01

打赏
举报

应该怎么引用呢？

wwhhg2 2009-07-26

打赏
举报

[Quote=引用 2 楼 a854468521 的回复:]
'引用 Imports System.Data.SqlClient
Dim Nrsj As New Data.SQLite.SQLiteConnection
Nrsj.ConnectionString = "Data Source=" & _
"C:\SqliteDev\转换"
Try
Nrsj.Open()'测试数据库连接
Catch ex As Exception
MsgBox(ex.Message)
exit sub
End Try
Dim Nr As New Data.SQLite.SQLiteCommand’定义一个SQL操作
Nr.Connection = Nrsj
Nr.CommandType = CommandType.Text
Dim iD_tJ As New System.Collections.SortedList
Nr.CommandText = " select id,途径 from 文件 "
Dim Sj As Data.SQLite.SQLiteDataReader = Nr.ExecuteReader
While Sj.Read
iD_tJ.Add(Sj(0), Sj(1))
End While
Sj.Close()
' Nr.CommandText = " select Nr from 文件 WHERE 途径=@途径"
Nr.CommandText = " select Nr from 文件 WHERE ID=@ID"
Dim Xrsj As New Data.SQLite.SQLiteConnection
Xrsj.ConnectionString = "Data Source=" & _
System.Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\MB.Bmy"
Try
Xrsj.Open()
Catch ex As Exception
MsgBox(ex.Message)
End Try
Dim Xr As New Data.SQLite.SQLiteCommand
Xr.Connection = Xrsj
Xr.CommandType = CommandType.Text
Xr.CommandText = "select max(id) from 表格模版"
Dim MaxId As Int32 = Xr.ExecuteScalar
Xr.CommandText = "update 表格模版 set 表格=@表格 where id=@id "
' Xr.CommandText = "insert into 表格模版(fid,名称,序号,目录,表格) values (@fid,@名称,@序号,@目录,@表格)"
Dim Sw As Data.Common.DbTransaction = Xrsj.BeginTransaction‘开启数据库事务
For id As Int32 = 0 To MaxId - 1
Nr.Parameters.Clear()
Dim Tj As String = "C:\******\" & id & ".cll"
If iD_tJ.ContainsValue(Tj) Then

Nr.Parameters.Add("@id", DbType.Int64).Value = iD_tJ.GetKey(iD_tJ.IndexOfValue(Tj))
Xr.Parameters.Clear()
Xr.Parameters.Add("@表格", DbType.Binary).Value = Nr.ExecuteScalar
Xr.Parameters.Add("@id", DbType.Int64).Value = id
Xr.ExecuteNonQuery()
End If
Next

Sw.Commit()’提交事务。
MsgBox("ok")

[/Quote]
多谢指点！

a854468521 2009-07-25

打赏
举报

'引用 Imports System.Data.SqlClient
Dim Nrsj As New Data.SQLite.SQLiteConnection
Nrsj.ConnectionString = "Data Source=" & _
"C:\SqliteDev\转换"
Try
Nrsj.Open()'测试数据库连接
Catch ex As Exception
MsgBox(ex.Message)
exit sub
End Try
Dim Nr As New Data.SQLite.SQLiteCommand’定义一个SQL操作
Nr.Connection = Nrsj
Nr.CommandType = CommandType.Text
Dim iD_tJ As New System.Collections.SortedList
Nr.CommandText = " select id,途径 from 文件 "
Dim Sj As Data.SQLite.SQLiteDataReader = Nr.ExecuteReader
While Sj.Read
iD_tJ.Add(Sj(0), Sj(1))
End While
Sj.Close()
' Nr.CommandText = " select Nr from 文件 WHERE 途径=@途径"
Nr.CommandText = " select Nr from 文件 WHERE ID=@ID"
Dim Xrsj As New Data.SQLite.SQLiteConnection
Xrsj.ConnectionString = "Data Source=" & _
System.Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\MB.Bmy"
Try
Xrsj.Open()
Catch ex As Exception
MsgBox(ex.Message)
End Try
Dim Xr As New Data.SQLite.SQLiteCommand
Xr.Connection = Xrsj
Xr.CommandType = CommandType.Text
Xr.CommandText = "select max(id) from 表格模版"
Dim MaxId As Int32 = Xr.ExecuteScalar
Xr.CommandText = "update 表格模版 set 表格=@表格 where id=@id "
' Xr.CommandText = "insert into 表格模版(fid,名称,序号,目录,表格) values (@fid,@名称,@序号,@目录,@表格)"
Dim Sw As Data.Common.DbTransaction = Xrsj.BeginTransaction‘开启数据库事务
For id As Int32 = 0 To MaxId - 1
Nr.Parameters.Clear()
Dim Tj As String = "C:\******\" & id & ".cll"
If iD_tJ.ContainsValue(Tj) Then

Nr.Parameters.Add("@id", DbType.Int64).Value = iD_tJ.GetKey(iD_tJ.IndexOfValue(Tj))
Xr.Parameters.Clear()
Xr.Parameters.Add("@表格", DbType.Binary).Value = Nr.ExecuteScalar
Xr.Parameters.Add("@id", DbType.Int64).Value = id
Xr.ExecuteNonQuery()
End If
Next

Sw.Commit()’提交事务。
MsgBox("ok")