Mensajes

Quieres abir un archivo .sorpresa?? que formato tienen esos archivos??

Esto te puede servir http://www.elguille.info/NET/ADONET/ejemplo_adonet_bases_tipo_access.htm

Saludos!!!!!!!!!!!

Pues inicializa la variable en el evento SelectedIndexChanged o SelectedValueChanged

Yo pondria el form2 como principal y en el evento load pondria:

Código (csharp) [Seleccionar] Expandir

if(Form1.ShowDialog==DialogResul.OK)
{
      this.variable=Form1.propiedad;
      Form1.Close();
}

Pues clases nativas no encontre!!!!!!! pero si te sirve aqui las fuentes del ping pero en C.

http://www.ping127001.com/pingpage/ping.text

Y no olvidar que en las verciones express debes habilitar tcp/ip para permitir conexiones de red aqui un link:

http://msdn.microsoft.com/es-pe/library/bb909712%28v=vs.90%29.aspx

En File.Exists() debes pasarle la ruta de la base de datos talves es ese tu problema

Crea un Nuevo Proyecto llamado MiClase, agrega una clase llamada Reader y otra Writer, define los metodos y propiedades que quieras dentro de cada clase.

Nota: Leer un buen manual de C#

["SQLite error no such table: CMB_USUARIO"]

"SQLite error no such table: CMB_USUARIO" acabo de probar las fuentes que me mandaste y eh llegado a la conclusión que sencillamente la base de datos no se copia al emulador o en tu caso al dispositivo. Para ello use "File.Exists("CLAS_MOBILE.db")" y siempre me decia que no existe la base de datos

Código (vbnet) [Seleccionar] Expandir

If (File.Exists("CLAS_MOBILE.db")) Then                
       consulta = String.Format("SELECT USU_USUARIO,USU_ZONA FROM CMB_USUARIO WHERE USU_USUARIO='{0}'", USUARIO.Text)

       Dim Ada As New SQLiteDataAdapter()
       Dim Sqlstr As New SQLiteCommand(consulta, cnn)
       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()
Else
       MessageBox.Show("No existe base de datos", "Error")
End If

Solución:

1° Método que no entendí porque me dio flojera :
visita http://social.msdn.microsoft.com/Forums/es/netfxcompactes/thread/265e4adb-ba0c-440a-808a-f63590ada195 y has lo que hay dicen para poder copiar archivos(tu base de datos entre otras cosas) al emulador o copia directamente al dispositivo en el que estás trabajando  y si es posible explícame.

2° Método que yo haría si fuera el caso:
Pues consiste en crear la base de datos con código, para ello has de tomar en cuenta que si al "SQLiteConnection" le enviamos como parámetro "Data Source=CLAS_MOBILE.db"  y ejecutamos el método Open() pues no genera ningún error así "CLAS_MOBILE.db" no exista, y tranquilamente ejecutas un CREATE TABLE:

Código (vbnet) [Seleccionar] Expandir


Private Sub CrearTablas(ByVal Cnn As SQLiteConnection)
       Using _Cmd As SQLiteCommand = Cnn.CreateCommand
            _Cmd.CommandText = "CREATE TABLE CMB_USUARIO (USU_USUARIO VARCHAR (8) NOT NULL,USU_PASS VARCHAR (8) NOT NULL,USU_ZONA VARCHAR (25) NOT NULL)"
            _Cmd.ExecuteNonQuery()

           _Cmd.CommandText = "INSERT INTO CMB_USUARIO VALUES('usu01','123456','peru')"
           _Cmd.ExecuteNonQuery()
       End Using
End Sub

despues podrias colocar en el evento load del form lo siguiente:

Código (vbnet) [Seleccionar] Expandir


cnn = New SQLiteConnection("Data Source=CLAS_MOBILE.db;Version=3;")
cnn.Open()
Try
    If (Not File.Exists("CLAS_MOBILE.db")) Then
        CrearTablas(cnn)
    End If
Catch ex As Exception
    MessageBox.Show(ex.Message, "Error")
End Try

aquí todo el code:

Código (vbnet) [Seleccionar] Expandir

Imports System
Imports System.Data
Imports System.IO
Imports System.Data.SQLite

Public Class Form1
   Public ruta As String
   Dim cnn As New SQLiteConnection
   Public consulta As String
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       cnn = New SQLiteConnection("Data Source=CLAS_MOBILE.db;Version=3;")
       cnn.Open()
       Try
           If (Not File.Exists("CLAS_MOBILE.db")) Then
               CrearTablas(cnn)
           End If
       Catch ex As Exception
           MessageBox.Show(ex.Message, "Error")
       End Try
   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
           Try
               If (File.Exists("CLAS_MOBILE.db")) Then

                 
                   consulta = String.Format("SELECT USU_USUARIO,USU_ZONA FROM CMB_USUARIO WHERE USU_USUARIO='{0}'", USUARIO.Text)

                   Dim Ada As New SQLiteDataAdapter()
                   Dim Sqlstr As New SQLiteCommand(consulta, cnn)
                   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()
               Else
                   MessageBox.Show("No existe base de datos", "Error")
               End If
           Catch ex As Exception
               MessageBox.Show(ex.Message, "Error")
           End Try
       End If
   End Sub

   Private Sub CrearTablas(ByVal Cnn As SQLiteConnection)
       Using _Cmd As SQLiteCommand = Cnn.CreateCommand

           _Cmd.CommandText = "CREATE TABLE CMB_USUARIO (USU_USUARIO VARCHAR (8) NOT NULL,USU_PASS VARCHAR (8) NOT NULL,USU_ZONA VARCHAR (25) NOT NULL)"
           _Cmd.ExecuteNonQuery()

           _Cmd.CommandText = "INSERT INTO CMB_USUARIO VALUES('usu01','123456','peru')"
           _Cmd.ExecuteNonQuery()
       End Using
   End Sub
End Class



Nota: Yo usaria un Select Count para comprobar usuario y un ExecuteScalar para recoger el valor devuelto si es cero el usuario no existe y si es 1 pues si.

Saludos y suerte!!!!!!!!!

Yo Borraria

Código [Seleccionar] Expandir

Imports System.Data.SQLite.SQLiteConnection
Imports System.Data.SQLite.SQLiteCommand
Imports System.Data.SQLite.SQLiteTransaction
Imports System.Data.SQLite.SQLiteDataReader

No es necesario o por lo menos yo no lo pongo.

En cuanto al error o no te conectaste a la base de datos correctame o la tabla simplemente no existe!!!!!!!! si puedes subir tu base de datos pues te podria ayudar!!!!!!!!
y si no es mucho pedir tu proyecto para poder ayudarte mas rapido  

Y Por utlimo en:

Código [Seleccionar] Expandir

Data Source=CLAS_MOBILE.db

Asumes que la base de datos esta en el mismo lugar que el ejecutable a lo mejor no encuentra la base de datos.