en visual basic.net 2022 no me conecta a al base de datos mariadb
Publicado por Gerardo (11 intervenciones) el 09/10/2025 17:47:00
Imports MySql.Data.MySqlClient ' Asegúrese de tener esta línea al principio
Public Class Form1
Dim miConexion As New MySqlConnection() ' Declara a nivel de clase para poder cerrarla
Private Sub BtnConectar_Click(sender As Object, e As EventArgs) Handles BtnConectar.Click
' Define la cadena de conexión
Dim CadenaConexion As String = "Server=localhost; port=3308; Database=empleados; User=root; Password=AAK@_2730$.glgb"
MsgBox(CadenaConexion)
miConexion.ConnectionString = CadenaConexion
Try
miConexion.Open()
MessageBox.Show("Conexión exitosa!")
Catch ex As Exception
MessageBox.Show("Error al conectar a la base de datos: " & ex.Message)
Finally
' Opcional: Cerrar la conexión si no la necesita más
' miConexion.Close()
End Try
End Sub
' Es una buena práctica cerrar la conexión al salir de la aplicación o cuando ya no se usa
Private Sub Form1_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
If miConexion.State = ConnectionState.Open Then
miConexion.Close()
End If
End Sub
End Class
Public Class Form1
Dim miConexion As New MySqlConnection() ' Declara a nivel de clase para poder cerrarla
Private Sub BtnConectar_Click(sender As Object, e As EventArgs) Handles BtnConectar.Click
' Define la cadena de conexión
Dim CadenaConexion As String = "Server=localhost; port=3308; Database=empleados; User=root; Password=AAK@_2730$.glgb"
MsgBox(CadenaConexion)
miConexion.ConnectionString = CadenaConexion
Try
miConexion.Open()
MessageBox.Show("Conexión exitosa!")
Catch ex As Exception
MessageBox.Show("Error al conectar a la base de datos: " & ex.Message)
Finally
' Opcional: Cerrar la conexión si no la necesita más
' miConexion.Close()
End Try
End Sub
' Es una buena práctica cerrar la conexión al salir de la aplicación o cuando ya no se usa
Private Sub Form1_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
If miConexion.State = ConnectionState.Open Then
miConexion.Close()
End If
End Sub
End Class
Valora esta pregunta


0
