Temas

Hola a todos!! tengo un problema con una función javascript, resulta que en mi pagina tengo un text y un botón, al presionar el botón se ejecuta la función javascript la que envía datos de un formulario a un controlador de laravel, esto funciona sin problemas , pero necesito que también se ejecute la función si el usuario presiona la tecla enter cuando esta en el text, no se como hacerlo ya que si ahora lo presiono me da un error indicando que envié valores vacíos a la función.

esta es mi función

Código (javascript) [Seleccionar] Expandir


function temporal(ruta)
{
   const codigobarra=$('#Txt_serie').val();
   const sku_ext=$('#Txt_codigo').val();
   const Idservicio=$('#Txt_servicio').val();
   const Numguia=$('#Txt_numguia').val();
   const Idmaterial=$('#Txt_idmaterial').val();
   const Idproveedor=$('#Txt_prov').val();
   const Numcantidad=$('#Txt_cant').val();
   const identificador=$('#Txt_identificador').val();
   const Numfila=$('#Txt_fila').val();
   const usuario=$('#Txt_user').val();
   const estado=1;
   
    $.ajax(
        {
            url:ruta,
            type:'POST',
            data: {
                _token:$('input[name="_token"]').val(),
                temp_mat_id:Idmaterial,
                tem_mst_id:estado,
                temp_ser_id:Idservicio,
                temp_serie:codigobarra,
                temp_guia:Numguia,
                temp_pro_id:Idproveedor,
                temp_identificador:identificador,
                temp_nwa_id:1,
                temp_use_id:usuario
            },
            success:function () {
                           document.getElementById("respuesta").innerHTML=`<div class="alert alert-danger" role="alert">OK</div>`
                  document.getElementById('Txt_serie').value= "";
                  $('#Txt_serie').focus();
                }
               
         });
       
         return false;
         
   
}


Código (html4strict) [Seleccionar] Expandir


{{-- este el text que no logro que me funcione al presionar enter --}}

<input type="text" name="Txt_serie" id='Txt_serie' placeholder="0"  class="form-control">

{{-- este el tbotón que llama a la función--}}

<button name="Btn_agregar" id="Btn_agregar" type="button" onclick="temporal('{{ route('guiaingresos.insert') }}')"   class="btn btn-info">Agregar</button>


espero me puedan ayudar.

Hola  a todos!!! estoy intentando hacer un CRUD con laravel 8 y Ajax, pero cuando quiero insertar un registro me muestra que tengo problemas con la ruta y arroja el el error 404, con la otra ruta mostrar no tengo problemas, pero con esta para insertar no me funciona.
estas son mis rutas en mi archivo web.php:

Código (php) [Seleccionar] Expandir


Route::get('/',PageController::class);
Route::get('/home', [App\Http\Controllers\HomeController::class, 'index'])->name('home');

Route::get('system.logistica', [BodegaController::class, 'index'])->name('logistica');

Route::post('system.logistica/one/{id}', [BodegaController::class, 'mostrar'])->name('logistica.mostrar');

// Esta es la ruta que no funciona
Route::post('system.guiaingresos',[BodegaController::class,'insert'])->name('guiaingresos.insert');

este es mi función en mi archivo js

Código (javascript) [Seleccionar] Expandir


function temporal()
{
  const codigobarra=$('#Txt_serie').val();
  const sku_ext=$('#Txt_codigo').val();
  const Idservicio=$('#Txt_servicio').val();
  const Numguia=$('#Txt_numguia').val();
  const Idmaterial=$('#Txt_idmaterial').val();
  const Idproveedor=$('#Txt_prov').val();
  const Numcantidad=$('#Txt_cant').val();
  const identificador=$('#Txt_identificador').val();
  const Numfila=$('#Txt_fila').val();
  const usuario=$('#Txt_user').val();
   
  $.ajax(
       {
           url:"{{ route('guiaingresos.insert') }}", // aqui llamo a la ruta insert
           type:'POST',
           data: {
               _token:$('input[name="_token"]').val(),
               temp_mat_id:Idmaterial,
               tem_mst_id:1,
               temp_ser_id:Idservicio,
               temp_serie:codigobarra,
               temp_guia:Numguia,
               temp_pro_id:Idproveedor,
               temp_identificador:identificador,
               temp_nwa_id:1,
               temp_use_id:usuario

           },
           success:function (response) {
               if(response){
               alert('OK');
               }
           }
           
               
           });
       
   
}

y este es mi controlador con la función insert

Código (php) [Seleccionar] Expandir


public function insert(Request $request)
{
  $id_usuario=$request->temp_use_id;
 
  return ($id_usuario);

  //por ahora solo quiero comprobar que llego a la ruta y a la función de mi
    controlador
   }

Espero me puedan ayudar, saludos!!!

Hola a todos necesito de su ayuda nuevamente, lo que pasa es que tengo un proyecto que estoy subiendo a mi VPS pero al ejecutarlo me da error en mis rutas que están mis funciones ajax.

esta es mi funcion.

Código (javascript) [Seleccionar] Expandir


function agregar(){

    var incorrecto = document.getElementById('respuesta');

    material= document.getElementById("Sel_materiales").value;
    cantidad=document.getElementById("Txt_cantidad").value;
    guia=document.getElementById("Txt_guia").value;
    proveedor=document.getElementById("Sel_proveedor").value;
    servicio=document.getElementById("Sel_servicio").value;
    id_usuario=document.getElementById("Txt_usuario").value;

    var datalist = 'Sel_materiales='+material+'& Txt_cantidad='+cantidad+'& Txt_guia='+guia+'& Sel_proveedor='+proveedor+'& Sel_servicio='+servicio+'& Txt_usuario='+id_usuario;
    $.ajax({
        type:'post',
        url:'../resources/views/system/post1.php', // esta es la ruta que no me funciona


        data: datalist,
        success:function(resp){

        if(resp==='error')
        {
            incorrecto.innerHTML='<div class="alert alert-danger" role="alert">Debe Llenar todos los campos de forma correcta</div>'
        }else{
            incorrecto.innerHTML='';
          $("#milistbody").append(resp);
        }
        }
      });
};


de forma local, no tengo ningún problema, es al subirla, si me pudiesen orientar a como declarar esas rutas, para no tener problemas al subir mi proyecto. desde ya muchas gracias!!!

hola a todos, espero me puedan ayudar tengo un procedimiento almacenado en una base de datos SYBASE, este procedimiento lo ejecuto a través de un código en C# para una aplicación de consola y el resultado lo exporto a una archivo.CSV esto sin problemas, lo que necesito ahora es poder ejecutar mas de una vez ese procedimiento y el resultado poder ponerlo es un solo archivo.CSV, no se si me explico bien, bueno tratare de poner un ejemplo: tengo un listado como el siguientes con nombres de equipos:

ID|nombre_equipo
1 |BBL52E_02
2 |OSO52E_04

por cada uno de esos equipos necesito ejecutar el procedimiento almacenado 3 veces, para poder traer 2 datos correspondientes a cada equipo y el resultado exportarlo a un archivo.CSV. estos serian los procedimientos que debería ejecutar por ejemplo para el equipo numero uno (BBL52E_02).

exec sp_trendView @tablename='collect', @tagname='analog.BBL52E_02_____P.curval', @columnname='value' , @starttime='01/09/2013 00:00:00', @endtime= '01/09/2013 23:59:00'

exec sp_trendView @tablename='collect', @tagname='analog.BBL52E_02_____Q.curval', @columnname='value' , @starttime='01/09/2013 00:00:00', @endtime= '01/09/2013 23:59:00'

exec sp_trendView @tablename='collect', @tagname='analog.BBL52E_02_____S.curval', @columnname='value' , @starttime='01/09/2013 00:00:00', @endtime= '01/09/2013 23:59:00'

si se fijan lo único que cambia en cada ejecución del procedimiento es el campo llamado "tagname".

este es mi código donde solo ejecuto una ves el procedimiento:
Código c#:

Código (csharp) [Seleccionar] Expandir


using System;
using System.Data;
using System.Data.Odbc;
using MySql.Data.MySqlClient;
using System.IO;


           

namespace TestODBC
{
    class Program
    {
        static void Main(string[] args)
        {
            MostrarDatos();
            Console.ReadLine();
            DateTime Hoy = DateTime.Today;

        }

        private static void MostrarDatos()
        {

            string strFilePath = @"C:\ datas.csv";       
            using (OdbcConnection oCn = new OdbcConnection("Driver={Sybase System 10};SRVR=CMX;DB=timeline;DSN=Default;UID=xisapp;PWD=apphistory;"))
            {
                try
                {
                    string proc = String.Format("exec sp_trendView @tablename='{0}', @tagname='{1}', @columnname='{2}', @starttime='{3}', @endtime= '{4}'",
                                               "collect", "analog.BBL52B_02_____P.curval", "value", "01/09/2013 00:00:00", "01/09/2013 23:59:00");
                                   
                    OdbcCommand oCmd = new OdbcCommand(proc,oCn);
                    DataTable rows = new DataTable("datos");
                    OdbcDataAdapter oDt = new OdbcDataAdapter(oCmd);
                   oCn.Open();

                    try
                    {
                        oDt.Fill(rows);
                        StreamWriter sw = new StreamWriter(strFilePath, false);
                        int iColCount = rows.Columns.Count;
                        sw.Write("Alimentador");
                        sw.Write(",");
                        sw.Write("Fecha");
                        sw.Write(",");
                        sw.Write("P");
                        sw.Write(",");
                        sw.Write("Q");
                        sw.Write(",");
                        sw.Write("S");
                        sw.Write(sw.NewLine);
                       foreach (DataRow row in rows.Rows)
                            { 
                           
                                        sw.Write("BBL52B_02".ToString());
                                        sw.Write(",");           
                                        sw.Write(row[0].ToString());
                                        sw.Write(",");
                                        sw.Write(row[2].ToString());
                                        sw.Write(sw.NewLine);
                                   
                           }
                       
                           sw.Close();
                            Console.WriteLine("Proceso Finalizado");
                      }
                       
                    catch (Exception ex)
                    {
                        Console.WriteLine(String.Format("Error al consultar procedimiento : {0}", ex.Message));
                    }
                }
                catch (Exception ex)
                {
                    Console.WriteLine(ex.Message);
                }
            }
        }
    }
}

espero me puedan ayudar!!! 

Hola a todos, espero me puedan ayudar tengo una pagina padre en php que dependiendo de lo que seleccione el usuario en un popup esta me genera unos campos textbox en forma automática, es decir que si el usuario selecciono 3 item en el popup en la pagina madre me aparecen 3 textbox, hasta aquí todo bien, en donde tengo problemas es que en la pagina madre tengo un botón que dice grabar y no se como hacer que me capture el valor de los textbox creados automáticamente para grabarlos en una base de datos ya que como los crea dependiendo de lo que seleccione el usuario no se cuantos son o como llamarlos para obtener su valor.
mi codigo para crear los textbox es el sigueinte:

Código (php) [Seleccionar] Expandir


<?php 
$sql = mysql_query("SELECT cod,id_curso,nombre FROM temp  
LEFT JOIN cursos on temp.ID_CURSO=cursos.id 
where cod='123'"); 
while ($row=mysql_fetch_array($sql)) 
{ 
$NOMBRE_CURSO=$row['nombre']; 
$i=$i+1; 
echo" 
<tr> 
<td  bgcolor='#72B446'>$NOMBRE_CURSO</td> 
<td><input name='ben[$i]' id='$i' type='text'/></td> 
<td><input name='rel[$i]' id='$i' type='text'/></td> 
</tr>"; 
} 
 ?>


Código (html4strict) [Seleccionar] Expandir


<table>
    <tr>
        <td><input name="grabar" id="grabar" type="submit" value="Finalizar"></td>
    </tr>
</table>


lo ultimo es el botón con el que no se como hacer la consulta, porque la cantidad de textbox es indeterminada porque como decia anteriormente la cantidad de textbox va a depender de lo que seleccione el usuario en un popup, me pueden ayudar con esto por favor.

Hola a todos, tengo un problema que no sé cómo resolver, espero ustedes me puedan ayudar, bueno tengo el siguiente código:
<?phph
$sql="SELECT ASA_ID,ASA_NOMBRE,SOC_NOMBRE,SOC_APELLIDOS,SOC_COR DENADA_X,SOC_CORDENADA_Y FROM geo_asambleas
LEFT JOIN geo_socios ON geo_asambleas.ASA_ID=geo_socios.SOC_ASAMBLEA
WHERE ASA_NOMBRE='union";
$result = mysql_query($sql);

//segun esta consulta existen en mi BD 3 registros que cumplen esa condicion

while ($row=mysql_fetch_array($result)) {
//COMO SON MAS DE UN REGISTRO PUSE UN WHILE

$CORDX=$row["SOC_CORDENADA_X"];
$CORDY=$row["SOC_CORDENADA_Y"];
$nom=$row["SOC_NOMBRE"];

// EN ESTA PARTE ES DONDE TENGO EL PROBLEMA, LA IDEA ES QUE POR CADA REGISTRO QUE ENCUENTRE EN LA BASE DE DATOS
// ME CREE LA LINEA QUE ESTAN AQUÍ ABAJO, ES DECIR COMO SON TRES LOS REGISTRSO QUE TENGO DEBERIA TENER 3 LIENEAS DE ESTAS:
$gm->SetAddress("$CORDX $CORDY");


// PERO NO SE COMO HACERLO

}
¿>

Por favor ayuda, no sé cómo hacerlo!!!!
Desde ya muchas gracias!!!!

Hola a todos, espero me puedan ayudar, como puedo saber el uso de memoria que tiene un proceso que esta corriendo en windows con VB.NET, algo a si como lo que muestra el administrador de tareas de windows.

Desde ya muchas gracias!!!

Hola amigos,
Tengo el siguiente dilema y me gustaría que me ayuden a solucionarlo, estoy haciendo el modulo EDITAR en mi programa y estoy pegado en los datos que se cargan con combobox, el caso es el siguiente, los datos que muestran mis combobox los saco de una base de datos y obtengo los datos de la siguiente manera:

Código (vbnet) [Seleccionar] Expandir


Dim adp9 As New SQLiteDataAdapter("select ITM_TIPO from cmb_itm_new ", cnnloc2)
        adp9.Fill(vds9, "cmb_itm_new")
        ComboBox25.DataSource = vds9.Tables("cmb_itm_new")
        ComboBox25.DisplayMember = "ITM_TIPO"

Ahora lo que quiero es: como el modulo que estoy haciendo es el EDITAR necesito que el combobox traiga seleccionado por defecto el dato que ya se guardo en la base de datos y que también me muestre las demás opciones por si el usuario la quisiera cambiar.
Espero haberme explicado bien.

Desde ya muchas gracias.!!!

Hola a todos, estoy haciendo un programa y estoy utilizado .Net Compact Framework,
necesito descargar un archivo desde un servidor pero no se como hacerlo, e intentando con el siguiente código que encontré en Internet, pero no me funciona

Código (vbnet) [Seleccionar] Expandir


My.Computer.Network.DownloadFile _
("http://www.cohowinery.com/downloads/WineList.txt", _
"C:\Documents and Settings\All Users\Documents\WineList.txt")

me dice que "Computer" no es un miembro de My.

alguien me podría ayudar por favor orientándome como lo debo hacer.

desde ya gracias.!!!!

Hola amigos, tengo el siguiente problemilla, tengo un formulario que contiene un Datagarid en el cual muestro datos que obtengo de una BD y un botón que se llama agregar, lo que quiero es que cuando el usuario pinche el botón me pase los datos de la fila seleccionada a otra tabla de la base de datos...
me podrían decir como se hace eso por favor!!!
desde ya muchas gracias!!!

Hola a todos,
      Tengo un formulario al cual contiene un Tabcontrol, las páginas de este tabcontrol las creo en tiempo de ejecución, mediante el siguiente código

Código (vbnet) [Seleccionar] Expandir


Private Sub Btn_Aceptar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Btn_Aceptar.Click
       Dim myTabPage As New TabPage()
       Dim Txt_Buscar As New TextBox()
       If Cmb_Actividad.Text = "Norm.Compl. 1F (Sin CM)" Then
           myTabPage.Text = "Norm.Compl 1F" & (Frm_Almacen.TabControl1.TabPages.Count + 1)
           Frm_Almacen.TabControl1.TabPages.Add(myTabPage)

       End If
       If Cmb_Actividad.Text = "Norm.Compl. 3F Direc. (Sin CM)" Then
           myTabPage.Text = "Norm.Compl 3F" & (Frm_Almacen.TabControl1.TabPages.Count + 1)
           Frm_Almacen.TabControl1.TabPages.Add(myTabPage)
       End If
   End Sub

Me gustaria me puedan ayudar con lo sigueinte: como puedo agregar en cada pagina que cree (con el codigo anterior) un Textbox y un Boton

Desde ya muchas gracias.

Hola a todos, estoy haciendo una aplicación para dispositivo mobil y quisiera saber si se puede hacer un AutoComplete en un Textbox o Combobox, he intentado con la siguiente propiedad TextBox1.AutoCompleteCustomSource pero al parecer esta propiedad no esta soportada para este tipo de aplicaciones, de que otra manera se puede hacer.

Desde ya muchas gracias!!!

Hola a todos, estoy haciendo una aplicación para dispositivo mobil y necesito hacer lo siguiente:
tengo un DataGrid el cual me muestra los datos de una tabla de la base de datos hasta aquí todo anda bien pero lo que no se como hacer es poder agregar 2 columnas mas a este DataGrid y que las celdas de estas 2 columnas nuevas queden habilitadas para escritura.
me pueden ayudar a esto por favor!!!
Desde ya muchas gracias!!!!

Hola amigos, quisiera que me ayudaran en lo siguiente: en mi proyecto tengo 2 tipos de combobox unos que me muestran datos de una base de datos y otros que los llene manualmente en la propiedad ítems,
Los que lleno con la base de datos lo hago de la siguiente manera:

Código (vbnet) [Seleccionar] Expandir

Dim adp2 As New SQLiteDataAdapter("select MED_MARCA from cmb_medidores ", cnnloc2)
adp2.Fill(vds2, "CMB_MEDIDORES")
ComboBox1.DataSource = vds2.Tables("CMB_MEDIDORES")
ComboBox1.DisplayMember = "MED_MARCA"

Lo que quiero hacer es que estos siempre me muestren como primer item en la lista un "Seleccione una Opccion..."
Como Puedo Hacer esto?

Con los que lleno manualmente tengo el siguiente problema siempre el primer item que muestran es vacio, me gutaria hacer lo mismo con estos que como primer item me muestre "Seleccione una Opccion...", en estos agregue ese item pero me sigue mostrando como primero el vacio.

Por favor solicito su ayuda.

Hola Amigos, tengo un DataGrid el cual lleno con información de una tabla de una base de datos que está en SQLite, lo que necesito es que una ves que muestro los datos en el datagrid es recorrer este datagrid e ir insertando la información de sus filas en otra tabla de la base de datos.
como se hace esto? Me pueden ayudar por favor.

Pongo el código de como lleno mi datagrid.

Código (vbnet) [Seleccionar] Expandir


Imports System
Imports System.Data
Imports System.IO
Imports System.Data.SQLite
Imports System.Windows.Forms.SystemInformation
Public Class Form5
   Dim cnnl As New SQLiteConnection
   Public consulta As String
   Dim Ada As New SQLiteDataAdapter()
   Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Dim mySql As String
       cnnl = New SQLiteConnection("Data Source=\BACKUP\BD\CLAS_MOBILE.db;Version=3;")
       cnnl.Open()
       mySql = "SELECT * FROM INS_INSPECCIONES_MOBILE_TMP"
       DataGrid1.DataSource = RecogerConsulta(mySql)

   End Sub
   Public Function RecogerConsulta(ByVal mySql As String) As DataTable
       Dim tmpTable As New DataTable
       Try
           Ada = New SQLiteDataAdapter(mySql, cnnl)
           Ada.Fill(tmpTable)
       Catch ex As Exception
           MessageBox.Show(ex.Message, "Error")
       End Try
       Return tmpTable
   End Function
End Class

Desde ya muchas gracias.

Se me olvidaba decir que es para una aplicación
.NET Compact Framework 2.0 para Windows CE 5.0

["FormatException"]

hola a todos, tengo el siguiente código que se supone debería mostrarme toda la información que existe en una tabla de una base de datos SQlite, pero no se por que no lo hace y me da el siguiente error:

"FormatException"


Mi código es el siguiente:
Código vb:

Código (vbnet) [Seleccionar] Expandir


Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Dim mySql As String
       mySql = "SELECT * FROM INS_INSPECCIONES_MOBILE_TMP"
       tmpTable = RecogerConsulta(mySql)
       DataGrid1.DataSource = tmpTable 'asignar los datos a datagrid
   End Sub
   Public Function RecogerConsulta(ByVal mySql As String) As DataTable
       Dim tmpTable As New DataTable
       Try
           Ada = New SQLiteDataAdapter(mySql, cnnloc2)
           Ada.Fill(tmpTable)
       Catch ex As Exception
           MessageBox.Show(ex.Message, "Error")
       End Try
       Return tmpTable
   End Function
End Class


Hola a todos, me gustaría que me ayuden en el siguiente problema:

Tengo 2 tablas en mi base de datos tabla1 y tabla2
Quiero hacer una consulta que me haga lo siguiente:
Concatenar los campos de la tabla1 y compararlos con la concatenación de los campos de la tabla2
si en esta comparación encuentra un dato igual, entonces debe eliminar ese registro en la tabla1.

Espero se entienda lo que quiero hacer.


Un ejemplo gráfico seria como:

Tabla1
Campo1|Campo2
Juan |Pérez

Tabla2
Campo1|Campo2
Juan |Pérez


Al concatenar quedarían a si

Concatenación tabla1 =juanperez

Concatenación tabla2 =juanperez

En este caso como las 2 concatenaciones son iguales
Debería eliminar el registro de la tabla1

Se puede hacer esto???

Hola a todos,
Necesito de su ayuda nuevamente, el problema es el siguiente, tengo una base de datos en SQLite la que trabaja en forma local en esta base tengo una tabla llamada inspección,  también tengo esta misma tabla en una base de datos que está en otro equipo (servidor)  esta última base de datos esta en SQL Server 2005, las conexiones a las 2 bases las realizo sin problemas, lo que necesito es que me ayuden a realizar es lo siguiente, en un formulario tengo un botón llamado "enviar" lo que quiero es que cuando pinche este botón, toda la información que está en la tabla inspecciones de la base de datos local se transmita a la tabla inspecciones de la base de datos del servidor, la idea es que vaya transmitiendo fila por fila y al terminar cada fila la borre de la base de datos local.
Por favor ayuda!!
Desde ya muchas gracias.

Hola amigos, de nuevo yo aqui preguntando    lo que pasa es que tengo un combox el que cargo con datos obtenidos de una tabla de la base de datos, ahora lo que quiero es capturar el valor seleccionado en el combobox, en otras palabras quiero que cuando el valor del combobox vaya cambiando me vaya guardando este valor una variable o en un texbox. me podrian ayudar con esto por favor!!
el codigo con el que lleno mi combobox con los datos de la base es:

Código (vbnet) [Seleccionar] Expandir


Dim adp As New SQLiteDataAdapter("select * from cmb_zona order by case zon_nombre when " & "'" & Module1.zona & "' then 1 else 99 end", cnnloc)
        adp.Fill(vds, "CMB_ZONA")
        ComboBox2.DataSource = vds.Tables("CMB_ZONA")
        ComboBox2.DisplayMember = "ZON_NOMBRE"

desde ya muchas gracias...

Hola a todos, tengo el siguiente problema, tengo un formulario que es un login de usuario cuando el usuario se autentifica este formulario se cierra y me abre un formulario2 hasta aquí todo bien , el problema es que necesito pasar el valor que tengo en una variable en el formulario 1 al formulario 2 pero no me toma a que se debe esto.
codigo de mi primer formulario

Código (vbnet) [Seleccionar] Expandir


Imports System
Imports System.Data
Imports System.IO
Imports System.Data.SQLite
Public Class Form1
    Dim cnn As New SQLiteConnection
    Public consulta As String
    Dim frm As Form2
    Public ZONA As String
   
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cnn = New SQLiteConnection("Data Source=\BACKUP\BD\CLAS_MOBILE.db;Version=3;")
        Try
            If (Not File.Exists("\BACKUP\BD\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
        cnn.Open()
        If USUARIO.Text = "" Or PASSWORD.Text = "" Then
            MessageBox.Show("Debe Ingresar Usuario y Contraseña")
        Else
            Try
                If (File.Exists("\BACKUP\BD\CLAS_MOBILE.db")) Then
                    consulta = String.Format("SELECT count(USU_USUARIO) as cuenta, 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("cuenta")
                        Dim value2 As Object = dr.Item("USU_ZONA")
                        ZONA = CStr(value2) ' ESTA ES LA VARIABLE QUE QUIERO PASAR
                        If value = 1 Then
' EN ESTA PARTE UTILIZO UN MODULO PARA CERRAR UN FORM Y ABRIR OTRO
                            Me.Close()
                            Me.Dispose()
                            Me.DialogResult = Windows.Forms.DialogResult.OK

                        Else
                            MessageBox.Show("Usuario o Contraseña Incorrectos...!!!", "Error")
                        End If


                    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


este es el codigo del modulo para cerrar un fomulario y pasar al fomulario 2

Código (vbnet) [Seleccionar] Expandir


Module Module1
    Sub Main()
        Dim vResultado As New Form1
        If vResultado.ShowDialog() = DialogResult.OK Then
            Dim frm As New Form2
            frm.ShowDialog()
        End If
    End Sub
End Module


Este es elcodigo de mi segundo formulario donde se supone que rescato la variable del primer formulario:

Código (vbnet) [Seleccionar] Expandir


Public Class Form2
    Dim zona_frm2 = Form1.ZONA ' AQUI SE SUPONE QUE RESCATO LA VARIABLE
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.TextBox1.Text = zona_frm2 ' quiero que lo de la variable lo coloque en este texbox, pero no pasa nada :-S
        Form1.Close()
    End Sub

    Private Sub Label1_ParentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.ParentChanged
        Label1.Text = FormatDateTime(Now(), DateFormat.GeneralDate)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Hide()
        Dim frm2 As New Form3
        frm2.ShowDialog()

    End Sub
End Class

Por favor ayuda...
desde ya muchas gracias.

PD: Gracias a IT que me ayudo hacer el codigo, para la conexion con SQLite

Hola a todos,
Estoy haciendo un proyecto en VB.NET para un Dispostivo Mobil ( Captor de Datos Datalogic Skorpio) que tiene como S.O Windows CE, tengo una base datos  SQLITE que se encuentra en el mismo captor, necesito saber cómo me puedo conectar con esta base de datos, la idea es poder hacer consultas a esta base, e buscado por todos lados pero no encuentro nada por favor me pueden ayudar, es urgente.