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
cn.Exec("update Medicamentos set cantidad = textbox4.text where Nombre_medicamento = textbox1.text")
y e aqui mi codigo completo
' 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
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
