Gracias, ya lo tenía instaldo.
He encontrado el siguiente código:
Código:
Imports System.Data.SQLite
Public Class sqlite
Public cnn As SQLiteConnection
Public Sub connect(ByRef filename As String)
Try
cnn = New SQLiteConnection("Data Source=" & "BBDDContactos.sqlite")
cnn.Open()
Catch e As Exception
MsgBox("Error connect: " & e.Message)
End Try
End Sub
Public Function ExecuteQuery(ByRef sql As String) As DataSet
Dim ds As New DataSet
Dim mycommand As SQLiteCommand = New SQLiteCommand(cnn)
mycommand.CommandText = sql
Dim reader As SQLiteDataReader = mycommand.ExecuteReader()
ds.Load(reader, LoadOption.OverwriteChanges, "table")
Return ds
End Function
Public Function ExecuteScalar(ByRef sql As String) As String
Try
Dim mycommand As SQLiteCommand = New SQLiteCommand(cnn)
mycommand.CommandText = sql
Dim value As Object = mycommand.ExecuteScalar()
If Not (value = Nothing) Then
Return value.ToString()
Else
Return ""
End If
Catch ex As Exception
MsgBox("Error: " & ex.Message)
Return ""
End Try
End Function
End Class
Me da siempre error en "SQLiteConnection", me dice que: "Es necesaria una referencia al ensamblado System.data version 2.0.0.0 culture neutral, publickeytoken=... agregue una al proyecto"
Lo cierto es que en mi proyecto tengo la referencia System.Data.SQL.
¿alguien me ayuda?