MySQL - MySql (insertar, modificar)

   
Vista:

MySql (insertar, modificar)

Publicado por M@ri3!!! (9 intervenciones) el 05/06/2009 15:54:52
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