Mensajes

Hola TheKillerWantsYou, como dice 43H4FH44H45H4CH49H56H45H, lo único que varia es la conexión, yo para conectarme a una base MSSQL lo hago a si:

Código (vbnet) [Seleccionar] Expandir


Dim cnn As New SqlConnection("data source = IPServidor; initial catalog = BasedeDatos; user id = Usuario; password = Contraseña")


las demás instrucciones como "SELECT -INSERT - UPDATE - ETC ) se realizan de igual manera que de forma local

Creo que no me explique bien, con las consultas en sql no tengo problema, lo que yo quiero es que los datos de la tabla local me los muestre en un datagrid y eso es lo que no se como recorrer ese datagrid fila por fila e ir insertando esos datos en la base remota..

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...

amigos, ya esta solucionado!!!   

lo que hice fue declarar las variable en un modulo, y desde hay las puedo llamr desde cualquier formulario de mi proyecto.

muchas gracias a todos por la ayuda...

He intentado y luego de colocar los datos, no sale nada.

Error:   Desconectado del servidor: ECONNABORTED - Connection aborted
Error:   Error al recuperar el listado del directorio

perdon pero escribi mal la direccion FTP ahora si que si.
ftp://200.111.163.90
Usuario:invitado
Contraseña:invitado

gracias a todos por sus respuestas, lo cel cierre del proyecto lo deje como dice .mokk. , oculte uno y abri el otro, pero lo que no logro aun es el paso de las variables de un formulario a otro.
subi mi projecto a esta direccion, aver si me pueden ayudar.

ftp://200.111.163.90/
usuario: invitado
contaseña: invitado

perdon perdon señores pero se me olvido comentar que es una aplicacion para un dispostivo movil (Captor de datos skorpio datalogic con windows ce), al parcer en estos proyectos no aprace la opcion de cerrar  "Al cerrar el ultimo formulario"
Muchisimas gracias a todos por ayudarme.

PD:Novlucker  no entindo eso de un contructor, me podrias explicar por favor, soy novato en esto de vb.net, gracias.

.mokk.  muchas gracias por tu respuesta. con respecto al cierre de formulario: cuando coloco este codigo:

Código (vbnet) [Seleccionar] Expandir


Form2.show()
me.close()

me cierra toda la aplicacion, por eso lo hago con el modulo.
Sobre lo que me dices de la variable no entiendo eso de :
"recreas todo el Form1 y vacia la variable ZONA."   :-S . aque te refieres o mejor dicho como deberia arreglarlo.

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