Hola, con respecto a mi pregunta investigando por aquí y por allá y juntando distintos ejemplos he realizado un código, pero me da un error en una DLL a ver si me puedes ayudar con esto.
Este es mi código:
Código vb:
Ver originalImports System
Imports System.Data
Imports System.Data.SQLite
Imports System.Data.SQLite.SQLiteConnection
Imports System.Data.SQLite.SQLiteCommand
Imports System.Data.SQLite.SQLiteTransaction
Imports System.Data.SQLite.SQLiteDataReader
Public Class Form1
Public ruta As String
Public consulta As String
Dim cnn As New SQLiteConnection("Data Source=/BD/BASE_MOBILE.bd")
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If USUARIO.Text = "" Or PASSWORD.Text = "" Then
MessageBox.Show("Debe Ingresar Usuario y Contraseña")
Else
Dim SQLconnect As New SQLite.SQLiteConnection()
Dim SQLcommand As SQLite.SQLiteCommand
SQLconnect.ConnectionString = "Data Source= /BD/CLAS_MOBILEdb3;"
SQLconnect.Open() `EN ESTA LINEA ME DA EL ERROR
SQLcommand = SQLconnect.CreateCommand
SQLcommand.CommandText = "SELECT * FROM CMB_USUARIO WHERE USU_USUARIO='" & USUARIO.Text & "'" ' ORDER BY Texto"
Dim SQLreader As SQLite.SQLiteDataReader = SQLcommand.ExecuteReader()
End If
End Sub
End Class
el error que me da es el siguiente:
No se puede encontrar el archivo DLL PInvoke 'SQLite.Interop.DLL'.