UPDATE urgente
Publicado por Cristopher (47 intervenciones) el 24/10/2006 16:54:19
me estoy conectando a una base de datos que esta en SQL, la conexion es asi
lcString = Sqlstringconnect("Driver={SQL Server};Server=Cristopher;Database=SisBodega;")
luego de eso necesito buscar un usuario, si el usuario no existe se debera agragarlo a la base de datos, pero si existe me da la opcion modificar y el UPDATE no actualiza en la tabla, este es el codigo
LOCAL lcSQLModUsu
LOCAL lcRut as String
LOCAL lcBodega as String
LOCAL lcGrabaUsu as String
lcRut = ALLTRIM(ThisForm.txtUsuRut.Value)
lcBodega = ALLTRIM(ThisForm.txtNomUsuario.Value)
lcSQLModUsu = 'Select * From Usuario'
If SQLEXEC(lcString,lcSQLModUsu,"CurModUsu") > 0
=SQLSETPROP(lcString, 'Transactions', 2)
lcGrabaUsu = "UPDATE SET Usuario.UsuRut = lcRut Where Usuario.NomUsu = lcBodega"
=SQLEXEC(lcString, lcGrabaUsu) =SQLCOMMIT(lcString) ENDIF
Muchas Gracias
lcString = Sqlstringconnect("Driver={SQL Server};Server=Cristopher;Database=SisBodega;")
luego de eso necesito buscar un usuario, si el usuario no existe se debera agragarlo a la base de datos, pero si existe me da la opcion modificar y el UPDATE no actualiza en la tabla, este es el codigo
LOCAL lcSQLModUsu
LOCAL lcRut as String
LOCAL lcBodega as String
LOCAL lcGrabaUsu as String
lcRut = ALLTRIM(ThisForm.txtUsuRut.Value)
lcBodega = ALLTRIM(ThisForm.txtNomUsuario.Value)
lcSQLModUsu = 'Select * From Usuario'
If SQLEXEC(lcString,lcSQLModUsu,"CurModUsu") > 0
=SQLSETPROP(lcString, 'Transactions', 2)
lcGrabaUsu = "UPDATE SET Usuario.UsuRut = lcRut Where Usuario.NomUsu = lcBodega"
=SQLEXEC(lcString, lcGrabaUsu) =SQLCOMMIT(lcString) ENDIF
Muchas Gracias
Valora esta pregunta
0