agregar registros mysql

[spiderman78]

que tal, estoy empezando a programar con base de datos mysql, la cuestion es q ya logre conectarme a mi base de datos, pero por mas q he tratado de encontrar algun ejemplo completo sobre como agregar modificar o eliminar registros de alguan tabla, ojala alguien me pueda ayudar, gracias aticipadas

[spiderman78]

Gracias por la explicacion

[srsombrero]

Iniciado por spiderman78

Gracias por la explicacion

Simple si te pudiste conectar tendrias quetener algo parecido a

Código:

Dim Conex As New ADODB.Connection

Conex.Open "DRIVER={MySQL ODBC 3.51 Driver};UID=root;PWD=Password;DATABASE=BaseDeDatos"

Ahora bien deberias haber declarado un RecordSet sea o no con soporte para eventos

Código:

Dim WithEvents RecordSet As ADODB.RecordSet
Set RecordSt = New ADODB.Recordset

RecordSet.CursorLocation = adUseServer
RecordSet.CursorType = adOpenKeyset

RecordSet.LockType = adLockOptimistic

RecordSet.Source = "latabla"

RecordSet.Open "INSERT INTO latabla (Id,Nombre,Apellido) VALUES (1,"JUAN","PEREZ")

Ya estarias insertando valores en tu recordset.

Saludos y suerte

Agur!

[spiderman78]

si efectivamente srsombrero tengo esa conexion y ahora ya agregue la instruccion INSERT TO que mencionas

Código:

rt.Open "insert into tblclientes (id) values('" & Me.Text1.Text & "')"

la puse de esta manera ya q fue la que encontre para enlzar mis textbox a los campos de mi tabla pero me marca un error Ru.Time 424, que es lo q seguire haciendo mal, gracias por la ayuda

[Adolfiten]

Chequeá bien la sentencia SQL, cuando depures, usá el inmediato o con el mouse encima fijate qué valor tiene la sentencia, tiene que cumplir con todo. Eso además de que la caja de texto tenga algo, que supongo será texto por las comillas. Si el id es numérico fijate que no sea autonumérico, y quitá las comillas.

Otra cosita, si tenés campos con restricción de "NOT NULL", estos valores debés pasarlos sí o sí, MySQL no acepta inserciones donde los campos con dicha restricción no son llenados.

Saludos y espero haber sido de ayuda.

[spiderman78]

que tal adolfiten, ya cheque los q me comentas sobre las comillas y lo autonumero y la restriccion del NULL, pero ahora me manda error de 3709 q dice "no se puede utilizar la conexionpara realizar esta operacion. Esta cerrada o no es valida este contextos agrego el codigo para ver si todavia ando haciendo algo mal, gracias por la ayuda

Private Sub Form_Load()

Dim CON As ADODB.Connection
Dim rt As ADODB.Recordset

Set CON = New ADODB.Connection
Set rt = New ADODB.Recordset
CON.CommandTimeout = 40
CON.CursorLocation = 1
'CON.ConnectionString = "server=localhost;driver=mysql;db=proyecto"
CON.Open "DRIVER={MySQL ODBC 3.51 Driver};DATABASE=EDMAC;SERVER=localhost;UID=root; PASSWORD=;PORT=3306;"

End Sub

Private Sub Agregar()

Set rt = New ADODB.Recordset
rt.Source = "tblclientes"

rt.Open "INSERT INTO tblclientes (id) values('" & Me.Text1.Text & "')"

End Sub

[Adolfiten]

El OPEN del Recordset me parece que no es para eso. En un ejemplo de VB6 con recorset los tengo así mirá:

Dim rs As Recordset

rs.AddNew ' Agrego registro

rs!nombre1 = TxtNombre1.Text
rs!nombre2 = TxtNombre2.Text

rs.Update
MsgBox "Persona agregada", vbInformation, "Éxito"

Espero sea de ayuda...

[Insomnia]

Hola

Los recordset se utilizan para guardar el resultado de una select, para realizar una Insert, Delete o Update tienes que utilizar directamente la conexión, no el recordset, es decir,

Código:

CON.Execute "INSERT into ..."

--Saludos--

[Nano-rosario]

rt.Open "insert into tblclientes (id) values('" & Me.Text1.Text & "')"
esta mal esa linea como te dice insomia....


con.execute "Insert into tabla (campos) values(valores)"

[spiderman78]

Gracias por la ayuda, ya modifique la instruccion y efectivamente ya no me da ningun error, el problema q sigo teniendo es q cuando agrego la informacion de mis textbox, no hace absolutamente nada, ni los guarda ni me marca error, perdon por la insistencia, ojala me puedan seguir ayudando, gracias

[Kitty_05]

Hola!!
Mira la verdad yo lei tanto en este foro y por un instante pense que no lo comprenderia jamas pero este link que te pongo a continuacion me ayudo muchisimo... .
Miralo...

http://www.foro.lospillaos.es/viewtopic.php?t=2660

[spiderman78]

Ok ya logre agregar, muchas gracias a todos por su atuda la verdad me dieron buenos consejos y me hicieron comprender mas las instrucciones, ahora voy a intentar, consultar, modificar y eliminar mis registros, espero no tener dificultades, sino me veran solicitando de su ayuda, gracias por todo