Ver Mensaje Individual
  #1 (permalink)  
Antiguo 14/04/2012, 12:19
marcoteatro2
 
Fecha de Ingreso: abril-2012
Ubicación: zacatecas
Mensajes: 2
Antigüedad: 12 años, 1 mes
Puntos: 0
Conexion a mysql en visual basic varios servidores

Hola que tal, soy nuevo en el foro, espero contar con su ayuda.
Soy estudiante de sistemas y me han dejado un proyecto en cual un usuario llevará un control de activos fijos, el detalle aqui es que la aplicación debe tener la capacidad de conectarse 2 distintos servidores y cada uno con sus parametros distintos, es decir usuario y contraseña, las bases de datos tendrian las mismas estructuras pero distintos contenidos (p.ej. activos fijos 2010,2011,etc.), vaya aqui el "reto" es conectarlo a distintas fuentes de datos, para lo cual al principio de la aplicacion aparece un form dialog pidiendo el servidor, usuario y contraseña, con estos tres datos se arma una cadena de conexion que es declarada como variable pública y al momento de hacer la prueba de conexión es exitosa pero, el problema es que al llamar esa variable en otro form no llama la cadena de conexión completa, para ser mas especifico sin password, me arroja un error que me dice que el password no esta indicado, añexo el codigo de la aplicacion:

del dialog
Código:
Imports System.Windows.Forms
Imports MySql.Data
Imports MySql.Data.MySqlClient


Public Class Dialog1
    ''variable pública 
    Friend cnn As MySqlConnection

    Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
        ''armo la cadena de conexión con las variables ingresadas en los textbox
        Try
            cnn = New MySqlConnection
            cnn.ConnectionString = "server=" & servertxt.Text & ";" & "user id=" & usertxt.Text & ";" & "password=" & passtxt.Text & ";"
            cnn.Open()
            If ConnectionState.Open Then
                MsgBox("Conexion exitosa.")
                Me.Close()
                Form1.Show()
            End If
        Catch ex As Exception
            MsgBox("Error. Verificar datos de conexión y volver a intentarlo o contactar al Administrador.")
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
        Form1.Close()
    End Sub

    Private Sub Dialog1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class
del form donde llamo la variable:
Código:
Imports Proceso_Adjudicaciones.Dialog1
Imports MySql.Data
Imports MySql.Data.MySqlClient


Public Class Form2
    Dim cnn As MySqlConnection

    Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Try
            cnn = New MySqlConnection
            cnn.ConnectionString = Dialog1.cnn.ConnectionString
            cnn.Open()
            If ConnectionState.Open Then
                MsgBox("conexion exitosa")
            End If

        Catch ex As Exception
            MsgBox(ex.Message)


        End Try


    End Sub

    
End Class
Ahora, como hago para poder usar esa variable de conexión completa, ya que para probar hice que me mostrara un msgbox con la cadena y solo muestra el user id y el server. Espero me puedan ayudar gracias de antemano.

Última edición por marcoteatro2; 14/04/2012 a las 12:41 Razón: actualizacion