[D4N93R], IT,
Muchachos mil gracias por sus respuestas, el ejemplo que sale en uno de los link que me dajaron eta en C# asi que intente modificar el codigo para Vb pero me da el siguiente error:
"
SQLite error
no such table: CMB_USUARIO"
, mi codigo es este:
Imports 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
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 cnn As New SQLiteConnection("Data Source=CLAS_MOBILE.db;Version=3;")
Dim Ada As New SQLiteDataAdapter()
Dim Sqlstr As New SQLiteCommand("SELECT USU_USUARIO,USU_ZONA FROM CMB_USUARIO WHERE USU_USUARIO=" & "'" & USUARIO.Text & "'", cnn)
cnn.Open()
Dim dr As SQLiteDataReader = Sqlstr.ExecuteReader(CommandBehavior.CloseConnection)
While dr.Read
Dim value As Object = dr.Item("USU_ZONA")
If value IsNot DBNull.Value Then TextBox1.Text = CStr(value)
End While
dr.Close()
End If
End Sub
End Class
Vale decir que el codigo lo ejecuto directo en el Captor, la base la tengo en mi pc en la carpeta de donde vb.net deja los proyectos, dentro de ella hay una carpeta con el nobre de mi proyecto y dentro de esta una que se llama debug en esta ultima es donde tengo mi base de datos.