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

Life is soft - evento anual de software empresarial
 
Vista:

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 119
Ha disminuido 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Altas, bajas y modificaciones de MySQL desde VB 6

Publicado por Christian (713 intervenciones) el 31/10/2011 14:17:02
Mira este link

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

saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Altas, bajas y modificaciones de MySQL desde VB 6

Publicado por Edwin (34 intervenciones) el 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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar