Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés.
Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Iniciar sesión Cerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Crear cuenta

Visual Basic - Altas, bajas y modificaciones de MySQL desde VB 6

Life is soft - evento anual de software empresarial
Vista:
Me gusta: Está pregunta es útil y esta clara
0
No me gusta: Está pregunta no esta clara o no es útil
 
Asunto:Altas, bajas y modificaciones de MySQL desde VB 6
Autor:Nicolas (1 intervención)
Fecha: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
Responder Subir
información
Otras secciones de LWP con contenido similar...
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:Altas, bajas y modificaciones de MySQL desde VB 6
Autor:Christian (604 intervenciones)
Fecha:31/10/2011 14:17:02
Mira este link

http://www.elguille.info/vb/ejemplos/ADO_sin_datacontrol.htm

saludos
Comentar Subir
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:Altas, bajas y modificaciones de MySQL desde VB 6
Autor:Edwin (29 intervenciones)
Fecha:02/11/2011 05:21:53
bueno amigo te detallare lo que debes hacer para cada cosa.

para guardar haces esto:
dim sql as string
sql="insert into tutabla (campo1,campo2,campo3,etc,etc) values "
sql=sql & "('" & controldetuform & "', '" & controldetuform2 & "', '" & controldetuform3 & "')"
mc.execute sql

para actualizar

dim sql as string
sql="update tutabla set campo1='" & controldel form,campo2='" & controldetuform & "', etc,etc where condicion
mc.execute sql


para eliminar
dim sql as string

sql ="delete from tu tabla where campo='" & condicion & "'"
mc.execute,sql


espero te haya ayudado.
Comentar Subir