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