MySQL y VB 6.0

[LEBS]

Hola!
No sé sí ya han puesto información sobre lo que estoy pidiendo. Si así fuera, pido mil disculpas pero anduve dando vueltas y mucho no encontré.

Quiero hacer una conexion con VB 6 a una base de datos MySQL y ver como hacer para ir ingresando datos en la misma. Porque el tema es que necesito hacer un sistema donde se ingresan datos, y esos datos (que por lo general son tipo formularios clasicos de registro donde hay que poner datos personales, etc etc.) van a una base de datos. ¿Me explico?. Yo sé que el comando para agregar los datos es INSERT INTO, de hecho hace ya muchisimo tiempo hice un trabajo así pero ya no recuerdo nada.

Necesitaría una pequeña ayuda, y sí puede ser así... muchas gracias por tomarse el tiempo.



Nos vemos.

[gogupe]

Hay miles de manuales por internet explicando este tema, pero bueno te pongo esto para que puedas empezar.

Insertas un command button en el form y copia este código

Código:

Dim Conexion As ADODB.Connection
Dim Rst As ADODB.Recordset
Option Explicit

Private Sub Command1_Click()
'Realizar consultas
Rst.Open "SELECT * FROM clientes"
MsgBox "Existen " & Rst.RecordCount & " clientes"

'Insertar en la tabla clientes
Conexion.Execute "INSERT INTO clientes SET nombre='pepe', apellidos='Perez', edad='31'"

'Modificar un registro
Conexion.Execute "UPDATE FROM clientes SET nombre='jose' WHERE id = ?" '<-- El id que corresponda, cuidado que si no lo pones, modificar toda la tabla

'Eliminar un registro
Conexion.Execute "DELETE FROM clientes WHERE id=?" '<-- El id que corresponda, cuidado que si no lo pones, elimina la tabla al completo
End Sub

Private Sub Form_Load()
Set Conexion = New ADODB.Connection
Set Rst = New ADODB.Recordset

'Sustituye servidor,user,password,bd con lo que tu tienes
Conexion.ConnectionString = "driver={MySQL ODBC 3.51 Driver};server=SERVIDOR;uid=USER;pwd=PASSWORD;database=BD;"
Conexion.Open

Rst.ActiveConnection = Conexion
Rst.CursorLocation = adUseClient
Rst.CursorType = adOpenDynamic
Rst.LockType = adLockBatchOptimistic

End Sub

Lo mas aconsejable es insertar las declaraciones en un modulo para que se pueda ejecutar desde cualquier parte de tu aplicación, cambiando el Dim por Public

Espero que te sirva.
Saludos.

[seba123neo]

Hola, es todo igual, lo unico que cambia es la cadena de conexion , pero despues para agregar, borrar y actualizar es lo mismo que como si lo harias con Access..por ejemplo...

saludos.

[LEBS]

Muchas gracias muchachada por los datos y los aportes. Como siempre, unos fenomenos.

Visca el Barça!

[Avellaneda]

Iniciado por gogupe

'Insertar en la tabla clientes
Conexion.Execute "INSERT INTO clientes SET nombre='pepe', apellidos='Perez', edad='31'"

Saludos.

Bueno, en la consulta de datos añadidos daría error de sintaxis. Debería ser así:

Conexion.Execute "INSERT INTO clientes(nombre, apellidos, edad) VALUES('pepe', 'Perez', '31')"

[gogupe]

Iniciado por Avellaneda

Bueno, en la consulta de datos añadidos daría error de sintaxis. Debería ser así:

Conexion.Execute "INSERT INTO clientes(nombre, apellidos, edad) VALUES('pepe', 'Perez', '31')"

Te equivocas esa es otra sintaxis que funciona bien, ademas yo siempre la hago asi y me funciona siempre, incluso cuando hago algo en PHP, en Mysql administrator, etc

Solo es una anotación.

Saludos

[Avellaneda]

Iniciado por gogupe

Te equivocas esa es otra sintaxis que funciona bien, ademas yo siempre la hago asi y me funciona siempre, incluso cuando hago algo en PHP, en Mysql administrator, etc

Solo es una anotación.

Saludos

Bueno, me refería a la respuesta de seba123neo (aunque hice referencia a tu ejemplo). Esa sintaxis en Access no funciona.
En MySQL se pueden utilizar ambas. Precisamente esa es la sintaxis alternativa, digamos que la oficial o por defecto es la nativa de SQL, aunque se pueden utilizar cualquiera de las dos sentencias.

INSERT INTO Tabla (Campos) VALUES (....

[gogupe]

Ah mira, eso no lo sabía, como siempre uso MySql... otra cosa nueva.

Saludos.