FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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. |
#2
|
||||
|
||||
Saludos
Creo haberte dicho en este hilo y tambien jachguate en este otro hilo sobre el uso de las etiquetas y la lectura de de la guia de estilo. No creo que nadie te conteste sin cumplir lo anterior dicho
__________________
Van Troi De León (Not) Guía, Code vB:=Delphi-SQL, ¿Cómo? Viajar en el tiempo no es teóricamente posible, pues si lo fuera, ya estarían aqui contándonos al respecto! |
|
|
|