conexion mysql form1 y form 2 visual studio

[jotomas01]

Hola, tengo una duda y no encuentro una solucion, estoy desarrollando una aplicacion con dos form 1 y 2, en el form1 tengo toda la la aplicacion en si, y en el form2 tengo textboxs para realizar una conexion con un servidor mysql, me resulta todo bien si pongo todo en un solo mismo form, pero al separarlo en los dos form, no lo logro que cuando abro la conexion mysql en el form2, ocuparla en el form1 para realizar consultas.

alguna ayuda?

tengo esto en el form2 y quiero utilizar la conexion en el form1:

Dim con As MySqlConnection
con = New MySqlConnection()
con.ConnectionString = "server=" & txtServer.Text & ";" _
& "user id=" & txtUsername.Text & ";" _
& "password=" & TextBox3.Text & ";" _
& "database=" & TextBox4.Text & ";" & "pooling=false"
con.Open()

Saludos

[ramirezmario7]

Podrias crear una clase statica para crear el objeto MySqlConnection y trabajas con ese desde el formulario 2 y asi podrias utilizarlo en cualquier formulario.

[drako_darpan]

Hola que tal, por lo que te entiendo seria mejor que tengas un funcion externa donde abras la conexion y los forms hagan referencia a dicha funcion, asi la puedes mandar llamar donde la necesites.

[jotomas01]

Gracias por las respuestas, tienes algun ejemplo de crear un clase statica? estoy buscando informacion en google, pero no encuentro nada referido a visual basic, y como seria eso de crear una funcion externa?

Saludos

[jotomas01]

logre hacer una funcion de conexion, pero si la pongo el otro form, me da un error, como que no agarra la variable "con", dejo el codigo de lo que tengo, para ver si me pueden ayudar:

Form1:

Código:

Imports MySql.Data
Imports MySql.Data.MySqlClient

Public Class Form1
    Dim con As MySqlConnection

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        'variable dataset 
        Dim Ds As New DataSet
        'variable tabla 
        Dim Tabla As New DataTable
        'adaptador que sirve de enlace intermedio entre la aplicación y la 
        'base de datos 
        Dim Da As New MySqlDataAdapter("select id, name, name2 from datos", con)

        'capturamos errores 
        Try
            'ejecutamos la query que tiene el DataAdapter 
            Dim Cmd As New MySqlCommandBuilder(Da)
            'llenamos la tabla 
            Da.Fill(Tabla)
            'mostramos datos 
            DataGridView1.DataSource = Tabla

        Catch ex As MySqlException
            'en caso de error 
            MsgBox(ex.Message)

        Finally

            'finalmente eliminamos objetos de memoria 
            con = Nothing
            Ds = Nothing
            Tabla = Nothing
            Da = Nothing

        End Try


    End Sub

    Private Sub MysqlToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MysqlToolStripMenuItem.Click
        Form2.Show()

    End Sub
End Class

Form 2:

Código:

Imports MySql.Data
Imports MySql.Data.MySqlClient
Public Class Form2

    Shared con As MySqlConnection
    Public Function conectar()
        con = New MySqlConnection()
        con.ConnectionString = ("server=127.0.0.1;port=3306;user id=root3;password=123456;database=test;pooling=false")
        Try
            con.Open()
            MessageBox.Show("Conexión Abierta Con Éxito")

        Catch mierror As MySqlException
            MessageBox.Show("Error de Conexión a la Base de Datos: " & mierror.Message)

        End Try
    End Function

    Private Sub INicioToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INicioToolStripMenuItem.Click
        Form1.Show()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        conectar()

    End Sub
End Class

[drako_darpan]

Hola que tal, bueno te dejo un ejemplo del modo de conexion que yo utilizo para C# y PostrgreSQL:

Código C#:

public static bool abreConexionPostgres(ref OdbcConnection odbc, ConexionComprasMuebles dg)
        {
            bool bRegresa = true;
 
            string sCadenaConexion = "Driver={PostgreSQL};database=" + BD_Servidor + ";server=" + Ip_Servidor + ";uid=" + Usuario_Para_Conexion + ";pwd=" + Password_De_Conexion;
            try
            {
                odbc.ConnectionString = sCadenaConexion;
                odbc.Open();
            }
            catch (OdbcException oex)
            {
                MessageBox.Show("Error de Conexion..\n" + oex.Message.ToString(), "Error ODBC", MessageBoxButtons.OK, MessageBoxIcon.Error);
                bRegresa = false;
            }
            catch (Exception ex)
            {
                MessageBox.Show("Error de Conexion.." + "\n" + ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error);
                bRegresa = false;
            }
            return bRegresa;
        }
 

Si no mal recuerdo en MySQL se cambia {PostgreSQL} por {MySQL}, hace tiempo que no hago conexion a MySQL

Ojala y te sirva