https://foro.gambas-es.org/viewtopic.php?f=3&t=927
-----------------------------------
Fenriz07
Jueves, 02 Septiembre 2010, 20:07

Actualizar Un Campo De Una Tabla MYSQL(Solucionado)
-----------------------------------
Buenas amigos y amigas :D tengo un pequeño problema estoy tratando de actualizar un campo de una tabla q se llama cantidad pero lo quiero actualizar con una condicion; la condicion es que si el campo es igual al nombre del textbox1.text entonces esa es la tabla donde se va actualizar, nose si me explique bien cualquier duda no duden en responder bueno aqui les dejo mi codigo q no funciono :S con esto pensaba actualizar

[code linenumbers=false syntax=gambas]cn.Exec("update Medicamentos set cantidad = textbox4.text where Nombre_medicamento = textbox1.text")[/code]

y e aqui mi codigo completo

[code linenumbers=false syntax=gambas]' Gambas class file
PUBLIC cn AS NEW Connection
PUBLIC rs AS Result
PUBLIC actStatus AS String




PUBLIC SUB Form_Open()
  
  WITH cn
  .Type = "mysql"
  .Host = "localhost"
  .Login = "root"
  .Password = "6419148"
  .name = "hola"
  
  TRY .Open
  IF ERROR THEN 
  Message.Error("Error abriendo la base de datos")
  ME.Close
  ELSE 
  rs = cn.Exec("select * from Medicamentos")
  rs.MoveFirst
  IF rs.Available = TRUE THEN 
  updateFieldValue()
  END IF
  END IF
  END WITH 
END 

PUBLIC SUB updateFieldValue()
textbox1.Text = rs!Nombre_medicamento
textbox2.Text = rs!cantidad
END











PUBLIC SUB Button2_Click()

DIM i AS Integer
DIM found AS Boolean
rs.MoveFirst
found = FALSE
i = 1
WHILE 1 <= rs.Count
IF rs!Nombre_medicamento LIKE "*" & textbox1.Text & "*" THEN
found = TRUE
EXIT
END IF
rs.MoveNext
i = i + 1
WEND
IF found = TRUE THEN
updateFieldValue()
 ELSE 
Message.Warning("Error en la data!!")
END IF



END


PUBLIC SUB Button1_Click()

  rs.MoveFirst
IF rs.Available = TRUE THEN
updateFieldValue()
END IF

END

PUBLIC SUB Button3_Click()

  rs.MovePrevious
IF rs.Available = TRUE THEN
updateFieldValue()
END IF

END

PUBLIC SUB Button4_Click()

  rs.MoveNext
IF rs.Available = TRUE THEN
updateFieldValue()
END IF

END

PUBLIC SUB Button5_Click()

  rs.MoveLast
IF rs.Available = TRUE THEN
updateFieldValue()
END IF

END


PUBLIC SUB Button6_Click()

DIM row AS Integer = FMain.TableView1.Rows.Count

  

  DIM grabar AS Result
 
  
  grabar = cn.Create("Compras") 
  grabar!id = ""
  grabar!CI = hola.Text
  grabar!Nombre_medicamento = textbox1.Text
  grabar!cantidad = textbox2.Text
  grabar.Update
  Message.Info("Datos Guardados")

  IF textbox1.Text <> "" AND Compra.hola.Text <> "" THEN 
FMain.TableView1.Rows.Count += 1
FMain.TableView1[row, 0].Text = hola.Text
FMain.TableView1[row, 1].Text = textbox1.Text
ELSE 
Message.Warning("Debe llenar los datos")
END IF
resta()
cn.Exec("update Medicamentos set cantidad = textbox4.text where Nombre_medicamento = textbox1.text")
END

PUBLIC SUB resta()
DIM a, b, c AS Integer
a = CInt(textbox2.text)
b = CInt(textbox3.Text)
c = a - b
textbox4.Text = c
END[/code]


-----------------------------------
Fenriz07
Viernes, 03 Septiembre 2010, 08:52

Re: Actualizar Un Campo De Una Tabla MYSQL
-----------------------------------
Bueno mi código estaba perfectamente bien solo le faltaban algunos detallitos del lenguaje pero en si la llamada sql esta buena e aquí el código corregido
[code linenumbers=false syntax=gambas]cn.Exec("UPDATE Medicamentos SET cantidad= '" & textbox4.text & "' where Nombre_medicamento='" & textbox1.text & "'; ")[/code] esto fue de investigar un rato Salu2


