Ver Mensaje Individual
  #9 (permalink)  
Antiguo 06/05/2009, 22:57
Avatar de Adolfiten
Adolfiten
 
Fecha de Ingreso: enero-2008
Ubicación: Frente a mi monitor...
Mensajes: 572
Antigüedad: 17 años, 2 meses
Puntos: 7
Respuesta: Ayuda con vb2008 y mysql

¿Lo que precisás no será un DATASET?

Yo utilizo esta función para hacer consultas de manera más fácil:
Código Función de consultas SQL VB por Adolf:
Ver original
  1. Public Function EjecutarSQL(ByVal CadenaConsulta As String) As DataSet
  2.             If Not CadenaConsulta = String.Empty Then
  3.                 Dim unaC As MySqlConnection = Me.Conectar
  4.                 Dim unDs As New DataSet, unDA As MySqlDataAdapter
  5.                 Try
  6.                     unaC.Open()
  7.                     unDA = New MySqlDataAdapter(CadenaConsulta, unaC)
  8.                     Dim unCB As MySqlCommandBuilder = New MySqlCommandBuilder(unDA)
  9.  
  10.                     unDA.Fill(unDs)
  11.                     unaC.Close()
  12.                     Return unDs
  13.                 Catch
  14.                     MessageBox.Show(Err.Description & " - " & Err.Source & " Línea: " & Err.Erl)
  15.                 End Try
  16.             End If
  17.             Return Nothing
  18. End Function

Funciona con la DLL provista por MySQL, espero te sirva de algo.

Saludos gente.