ADODataSet4.fieldvalues salta error
Buenas, yo tengo este codigo
procedure TADMIMENU.DELClick(Sender: TObject); var sql4 :string; begin if tabsheet3.Visible = true then begin sql4 := 'Select * from libros where cod_libro = ' + '''' + edit17.text + ''''; admimenu.adodataset4.CommandText := sql4; admimenu.adodataset4.Open; (aqui salta y pega el error) admimenu.ADODataSet4.FindFirst; admimenu.ADODataSet4.Edit; admimenu.ADODataSet4.fieldvalues['disponible'] := 'SI'; admimenu.ADODataSet4.Append; admimenu.adodataset4.Refresh; admimenu.ADODataSet3.Delete; admimenu.ADODataSet3.Refresh; admimenu.ADODataSet3.FindFirst; moverdatos43; end end; y me da este error-> Project project1.exe raised exception class EOleException with message 'No coiciden los tipos de datos en la expression de criterios'. Process stopped. Use Step or Run to continue. La cosa es q no se porque me salta, pone q no coinciden los datos pero nose, he probado a meterle strtoint al edit pero na, nose me salta, si le quito lo del adodataset4 va bien, pero esq tiene q ponerse en disponible SI. uffff nose, igual es alguna tonteria q he pasao por alto pero no se me tiene loco esto. Gracias. |
|
La franja horaria es GMT +2. Ahora son las 00:34:30. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi