FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
problema con campo MEMO
Bueno, el título creo que lo dice todo.
Entorno : Delphi 7 conexión ODBC a MySQL 5 Tengo hecha la conexión ytodo funciona OK hasta que le inserto un campo memo, entonces el código que veis me da un error y lo único que hay nuevo (con respecto a la rutina operativa) es la inserción de la linea que esta en rojo, (en la tabla de MySql el campo es del tipo TEXT). He estado buscando información pero no he encontrado nada, lo curioso es que el resto de campos se actualizan con los datos, excepto el que os comento. En el formulario el componente que aloja los datos es del tipo Tmemo. Un detalle curioso es que si en vez de poner; Código:
Aquery1.Parameters.ParamByName('dato6').Value:=links.Text; pongo Aquery1.Parameters.ParamByName('dato6').Value:=links.Lines; el compilador me da error por incompatibilidad de tipos de variable Variant y String Código:
procedure TForm1.anadirClick(Sender: TObject); begin try screen.Cursor:=crSQLWait; AQuery1.SQL.Clear; Aquery1.SQL.Add('INSERT INTO tabla (eh_des,eh_cat,eh_tip,eh_sim,eh_desc,eh_link,eh_post,eh_ubic)'+ ' VALUES (:dato2,:dato3,:dato4,:dato5,:dato6,:dato7,:dato8,:dato9)'); Aquery1.Parameters.ParamByName('dato2').Value:=fecha.Date; Aquery1.Parameters.ParamByName('dato3').Value:=descripcion.Text; Aquery1.Parameters.ParamByName('dato4').Value:=categoria.Items[categoria.ItemIndex]; Aquery1.Parameters.ParamByName('dato5').Value:=simulador.Items[simulador.ItemIndex]; Aquery1.Parameters.ParamByName('dato6').Value:=links.Text; Aquery1.Parameters.ParamByName('dato7').Value:=Descargado.Checked; Aquery1.Parameters.ParamByName('dato8').Value:=Post.Text; Aquery1.Parameters.ParamByName('dato9').Value:=ubicacion.Text; AQuery1.ConnectionString:=server(1); Aquery1.Open; except on E: Exception do begin Application.MessageBox( 'No hay comunicación con el servidor o no se grabaron los datos correctamente', 'ERROR GRAVE', MB_ICONSTOP ); desconectar(); end; end; botones(0,0,1,1,1); screen.Cursor:=crDefault; end; Saludos Juanjo |
#2
|
|||
|
|||
ya encontré el problema.
La instrucción Aquery1.ConnectionString:=.... debe ir inmediatamente después de Aquery1.SQL.Clear (?) No me pregunten porqué, pero así funciona. Saludos Juanjo |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Problema con campo memo-->blob | kia | Firebird e Interbase | 1 | 22-10-2006 11:35:14 |
Igualar campo STRING con campo MEMO en una SQL | ciscu | SQL | 2 | 19-01-2006 10:05:23 |
problema con campo memo en un dbgrid | dcamp | Conexión con bases de datos | 3 | 24-10-2005 14:51:49 |
Campo memo tabla escribirlo en componente Memo | Sayuri | Conexión con bases de datos | 2 | 18-08-2005 13:58:01 |
Campo Memo | jrcosta75 | Tablas planas | 5 | 20-02-2004 21:24:24 |
|