Altas, bajas y modificaciones de MySQL desde VB 6
Publicado por Nicolas (1 intervención) el 28/10/2011 13:21:23
Buenas amigos programadores, les hago una consulta, estoy trabajando en un proyecto en visual basic 6 y nesesito recorrer, agregar modificar y eliminar datos de una tabla de MySQL hasta ahora solo pude lograr que se vean los datos pero quisiera saber como hacer esas condiciones. el codigo fuente es el sig:
Option Explicit
Dim mc As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub Form_Load()
Set mc = New ADODB.Connection
mc.ConnectionString = "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=empresa;User=jpferreteria; Password=***;Option=3;"
mc.Open
Dim sql As String
Set rs = New ADODB.Recordset
sql = "select * from empleados ORDER by Nombre"
rs.Open sql, mc, adOpenKeyset, adLockBatchOptimistic
Set MSHFlexGrid1.DataSource = rs
Me.Caption = rs.RecordCount & "empleados."
rs.Close
mc.Close
Set rs = Nothing
Set mc = Nothing
End Sub
desde ya muchas gracias
Option Explicit
Dim mc As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub Form_Load()
Set mc = New ADODB.Connection
mc.ConnectionString = "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=empresa;User=jpferreteria; Password=***;Option=3;"
mc.Open
Dim sql As String
Set rs = New ADODB.Recordset
sql = "select * from empleados ORDER by Nombre"
rs.Open sql, mc, adOpenKeyset, adLockBatchOptimistic
Set MSHFlexGrid1.DataSource = rs
Me.Caption = rs.RecordCount & "empleados."
rs.Close
mc.Close
Set rs = Nothing
Set mc = Nothing
End Sub
desde ya muchas gracias
Valora esta pregunta


0