Visual Basic - modificar, eliminar, VB y Mysql

Life is soft - evento anual de software empresarial
   
Vista:

modificar, eliminar, VB y Mysql

Publicado por m@ri3 (38 intervenciones) el 05/06/2009 15:58:24
Saludos...
Espero me puedan ayudar.. tengo una tabla en MySql y quiero modificar e ingresar los registros desde visual basic.. he intentado hacerlo mediante unos ejemplos que salen en la web pero arrojan muchos errores!
aqui les mando el codigo de consulta que me funciona perfectamente... espero que me puedan dar un bosquejo de como hacerlo de verdad necesito de su ayuda!!!!!

Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.CursorLocation = adUseClient
conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; DATABASE=pozos; UID=root; PWD=1234; OPTION= & 1 + 2 + 8 + 32 + 2048 + 16384"
conn.Open
rs.Open "SELECT * FROM datos WHERE pozo LIKE '" + Text47.Text + "'", conn

If Text47.Text = "" Then
MsgBox "Campo Vacio Introduzca el codigo"
Text47.SetFocus

Else
Form3.Text1.Text = rs.Fields!pozo
Form3.Text2.Text = rs.Fields!estacion
Form3.Text3.Text = rs.Fields!ub
Form3.Text4.Text = rs.Fields!marca
Form3.Text5.Text = rs.Fields!modelo
Form3.Text6.Text = rs.Fields!fija
Form3.Text7.Text = rs.Fields!portatil
Form3.Text8.Text = rs.Fields!tipocorrea
Form3.Text9.Text = rs.Fields!protcorrea
Form3.Text10.Text = rs.Fields!stroker
Form3.Text11.Text = rs.Fields!celler
Form3.Text12.Text = rs.Fields!palanca
Form3.Text13.Text = rs.Fields!faja
Form3.Text14.Text = rs.Fields!bt
Form3.Text15.Text = rs.Fields!guaya
Form3.Text16.Text = rs.Fields!carrera
Form3.Text17.Text = rs.Fields!pintura
Form3.Text18.Text = rs.Fields!modelos
Form3.Text19.Text = rs.Fields!empaques
Form3.Text20.Text = rs.Fields!silla
Form3.Text21.Text = rs.Fields!cruceta
Form3.Text22.Text = rs.Fields!pines
Form3.Text23.Text = rs.Fields!marcame
Form3.Text24.Text = rs.Fields!serialme
Form3.Text25.Text = rs.Fields!potenciame
Form3.Text26.Text = rs.Fields!diametroeje
Form3.Text27.Text = rs.Fields!fijame
Form3.Text28.Text = rs.Fields!busingme
Form3.Text29.Text = rs.Fields!interno
Form3.Text30.Text = rs.Fields!externo
Form3.Text31.Text = rs.Fields!marcarc
Form3.Text32.Text = rs.Fields!serialrc
Form3.Text33.Text = rs.Fields!observacionrc
Form3.Text34.Text = rs.Fields!marcapc
Form3.Text35.Text = rs.Fields!serialpc
Form3.Text36.Text = rs.Fields!potenciapc
Form3.Text37.Text = rs.Fields!variadorpc
Form3.Text38.Text = rs.Fields!fechapc
Form3.Text39.Text = rs.Fields!observacionpc
Form3.Text47.Text = ""
Form3.Text47.SetFocus

end if
end sub
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

RE:modificar, eliminar, VB y Mysql

Publicado por Abraham Valencia (55 intervenciones) el 05/06/2009 17:51:51
Pues para guarda debes usar INSERTR INTO:

sql$ = "Insert Into Ficha (Nencuesta,Provincia, Distrito,CP,Fecha,Encuestadora,Prenombres,Apellidos,Sexo,Departamentonac,Provnac,Distrinac,Cpnac,Fechanac,Tienedni,Tramitedni,Resultadotramdni,Rechazoporque,Vecezrechazo," _
& "LE,Nle, Dniahora,Tienepartida,Nacimientoasentado,Cpinscripcion,Distritoinscripcion,Provinciainscripcion,Departamentoinscripcion,Problemaspartida,Partidabautismo,Cpbautizo,Distritobautizo,Provinciabautizo,Departamentobautizo,Partidaahora) " _
& "Values (" & Val(Text1) & ",'" & Combo2 & "','" & Combo3 & "','" & Text2 & "','" & Format(DTPicker1, "yyyy-mm-dd") & "','" _
& Combo24 & "','" & Text3 & "','" & Text4 & "','" & Combo4 & "','" & Combo5 & "','" & Combo6 & "','" & Combo7 & "','" & Text5 & "','" _
& Format(DTPicker2, "yyyy-mm-dd") & "','" & Combo8 & "','" & Combo9 & "','" & Combo10 & "','" & Text6 & "'," & Val(Text7) & ",'" & Combo11 & "','" & Text10 & "','" & Combo12 & "','" _
& Combo13 & "','" & Combo14 & "','" & Text8 & "','" & Combo17 & "','" & Combo16 & "','" & Combo15 & "','" & Combo18 & "','" & Combo19 & "','" & Text9 & "','" & Combo22 & "','" & Combo21 & "','" & Combo20 & "','" & Combo23 & "')"

En donde la primera parte de la cadena son los campos d etu tabla MySql, y la segunda, los objetos correspondientes a guardar en cada campo. Se que es algo laro, pero, es el unico ejemplo que tenia a la mano.

Para elimnar, por ejemplo un registro donde un campo "Actividad" es igual al Text1:

sql$ = "Delete From Tbltmpfin Where Actividad='" & Text1 & "'"

Para modificar, pues, un Update:

Sql$ = "update TblProductos set TblProductos.stockproducto=" & lngnuevostock& & " where TblProductos.Codigoproducto='" & strcampocodigo$ & "'"

Abraham
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

RE:modificar, eliminar, VB y Mysql

Publicado por m@ri3 (38 intervenciones) el 08/06/2009 14:51:45
Hola,
Intente hacer lo que me mandastes pero me sale el siguiente error.
Error de Compilación variable no definida, este error me lo arroja en la sentecia
SQL $

no se si es que me falta algo.. alguna referencia o libreria!!
Espero me puedan ayudar!
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

RE:modificar, eliminar, VB y Mysql

Publicado por m@ri3 (38 intervenciones) el 08/06/2009 15:06:11
Hola, ya arrgle wel error simplemente me faltaba colocar
Dim SQL as String
ahora tengo otro problema... que no me quiere guardar en la base de datos,, es decir el programa corre pero no guarda en la BD..

ESTE ES EL CODIGO QUE TENGO

Dim conn As New ADODB.Connection
Dim SQL As String
Set rs = New ADODB.Recordset
conn.CursorLocation = adUseServer
conn.CursorLocation = adUseClient
conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; DATABASE= pozos; UID=root; PWD=1234; OPTION= & 1 + 2 + 8 + 32 + 2048 + 16384"

'conn.Open

'rs.Open
SQL$ = "Insert Into datos (pozo,estacion,ub,marca,modelo,fija,portatil,tipocorrea,protcorrea,stroker,celler,palanca,faja,bt,guaya,carrera,pintura,modelos,empaques,silla,cruceta,pines,marcame,serialme,potenciame,diametroeje,fijame,busingme,interno,externo,marcarc,serialrc,observacionrc,marcapc,serialpc,potenciapc,variadorpc,fechapc,observacionpc" _
& "VALUES (" & Text1.Text & ",'" & Text2.Text & "','" & Text3.Text & "','" & Text4.Text & "','" & Text5.Text & "','" & Text6.Text & "','" & Text7.Text & "','" & Text8.Text & "','" & Text9.Text & "','" & Text10.Text & "','" & Text11.Text & "','" & Text12.Text & "','" & Text13.Text & "','" & Text14.Text & "','" & Text15.Text & "','" & Text16.Text & "','" & Text17.Text & "','" & Text18.Text & "','" & Text19.Text & "','" & Text20.Text & "','" & Text21.Text & "','" & Text22.Text & "','" & Text23.Text & "','" & Text24.Text & "','" & Text25.Text & "','" & Text26.Text & "','" & Text27.Text & "','" & Text28.Text & "','" & Text29.Text & "','" & Text30.Text & "','" & Text31.Text & "','" & Text32.Text & "','" & Text33.Text & "','" & Text34.Text & "','" & Text35.Text & "','" & Text36.Text & "','" & Text37.Text & "','" & Text38.Text & "','" & Text39.Text & "')"
'conn

MsgBox "Registro añadido a la Base de Datos", vbOKOnly + vbInformation, "Informacion"
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

RE:modificar, eliminar, VB y Mysql

Publicado por Abraham Valencia (55 intervenciones) el 08/06/2009 16:50:08
Dim SQL as String

entonces no uses SQL$, sino SQL

Abraham
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

RE:modificar, eliminar, VB y Mysql

Publicado por m@ri3  (38 intervenciones) el 08/06/2009 17:19:29
SI UTILIZO SQL$ O SQL
NO ME DA ERROR EL PROBLEMA ES QUE NO ME QUIERE GUARDAR EN LA BASE DE DATOS!!!
YA PROBÉ con sql e igual no me guarda!
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

RE:modificar, eliminar, VB y Mysql

Publicado por Abraham Valencia (55 intervenciones) el 08/06/2009 18:20:54
Ahora que veo bien, en ningun momento has guardado los datos!!!!!!!!!!!!!!!!!!!!

Despues de darle valor a tu cadena sql, pues, obivamente debias incluirla en la base de datos:

With rst
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open sql$, cnn, , , adCmdText
End With

en serio que debes leer un poco mas, no lo tomes a mal. La cuestion no solo es copiar/pegar, sino., lo mas importante es entender cada paso e instruccion

Abraham
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

RE:modificar, eliminar, VB y Mysql

Publicado por m@ri3 (38 intervenciones) el 08/06/2009 19:28:32
OK.,
Mi problema no es que no leo... simplemente que cuando comienzo a hacer algo por una parte que supuestamente estoy tratando de entender busco ayuda y ¡me dan otra manera de hacerlo!, ¡eso me enreda un poco! tengo que reconocer que no soy nada buena con la programación además de que en la Web te explican muy poco lo que en realidad estoy buscando.
En serio no lo tomé mal... me gusta que me corrijan, eso es bueno, ¡te lo agradezco!
De verdad muchas gracias, Disculpa la molestia.
Y ¡que tengas un excelente Día!
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