Imports MySql.Data.MySqlClient
Imports System
Imports System.Data
Imports System.Windows.Forms
Public Class Conexion
Public cnn As New MySqlConnection
Public cmd As MySqlCommand
Public da As MySqlDataAdapter
Public cb As MySqlCommandBuilder
Public ds As New DataSet
Public dt As New DataTable
Public dr As MySqlDataAdapter
Public dat As String
Public fila As DataRow
Function mostrar(ByVal tabla As String) As DataTable
conexion()
dt = New DataTable
Dim mysql As String = "select * from " + tabla
da = New MySqlDataAdapter(mysql, cnn)
da.Fill(dt)
Return dt
End Function
Public Sub conexion()
If Not cnn Is Nothing Then cnn.Close()
dat = String.Format("server=localhost;user=usuariodelservidordemysql;database=Elnombredetubasededatos")
Try
cnn = New MySqlConnection(dat)
cnn.Open()
'MsgBox("Correecto")
Catch ex As Exception
MsgBox("error" & ex.Message, MsgBoxStyle.Information, "Error")
End Try
End Sub
Public Sub procesos(ByVal cadena As String)
Try
Dim sql As String = cadena
cmd = New MySqlCommand(cadena, cnn)
cmd.ExecuteNonQuery()
MsgBox("Instruccion realizado con exito")
Catch ex As Exception
End Try
End Sub
'FUNCION DataSet
Public Function ds_consulta(ByVal cadena As String) As DataSet
Try
da = New MySqlDataAdapter(cadena, cnn) 'Se realiza la instancia y se genera la consulta.
da.Fill(ds) 'llenamos el dataset= una tabla en memoria
Catch ex As Exception
MsgBox("Error en la consulta", MsgBoxStyle.Information, "Error")
End Try
Return ds 'Se retorna el dataset
End Function
'FUNCION DataTable
Public Function dt_consulta(ByVal cadena As String) As DataTable
Try
da = New MySqlDataAdapter(cadena, cnn) 'Se realiza la instancia y se genera la consulta.
dt = New DataTable
cb = New MySqlCommandBuilder(da)
da.Fill(dt) 'llenamos el dataset= una tabla en memoria
Catch ex As Exception
MsgBox("Error en la consulta", MsgBoxStyle.Information, "Error")
End Try
Return dt 'Se retorna el dataset
End Function
End Class