problema al insertar en bd access

[manoley23]

Neftali, con que version de delphi? yo uso la 7 ( aun ) y si le asigno a un string tres comillas simples:

str:=''';

el compilador ni compila!

De hecho de toda la vida yo he trabajado que para poner una comilla dentro de un string desde delphi, tienes que poner una comilla delante, osea, cada 2 comillas es una comilla, y siempre me ha funcionado ok.

Es decir,

str:='''';

es una cadena que contiene una comilla simple dentro.

Manolo.

[manoley23]

... a ver, que he hecho un proyecto mu simple y sigue fallando, ahora falla cuando quiere, no depende de la longitud...

Código Delphi [-]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, StdCtrls;

type
  TForm1 = class(TForm)
    Database1: TDatabase;
    Memo1: TMemo;
    Button1: TButton;
    Qinsertclase1: TQuery;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  with Qinsertclase1  do begin
      UnPrepare;
      parambyname('id').asinteger:=1;
      parambyname('c1').asstring:='un texto';
      parambyname('m2').asmemo:=self.memo1.text;
      parambyname('i3').asinteger:=2;
      prepare;
      execsql;
  end;
end;


end.

y los .dfm del database y de la query

Código Delphi [-]
  object Database1: TDatabase
    AliasName = 'bdputomemo'
    DatabaseName = 'bdbd'
    SessionName = 'Default'
    Left = 232
    Top = 24
  end
  object Qinsertclase1: TQuery
    DatabaseName = 'BDBD'
    SQL.Strings = (
      'insert into Tclase1 (id,c1,m2,i3) values (:id,:c1,:m2,:i3)')
    Left = 276
    Top = 22
    ParamData = <
      item
        DataType = ftInteger
        Name = 'id'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'c1'
        ParamType = ptUnknown
      end
      item
        DataType = ftMemo
        Name = 'm2'
        ParamType = ptInput
        Size = 2048
      end
      item
        DataType = ftInteger
        Name = 'i3'
        ParamType = ptUnknown
      end>
  end

He probado con el unprepare, sin el unprepare y con el close, con los dos..
dandole tiempo despues del prepare a que se prepare bien (cosas mas raras he visto ) ... con otros nombres de params (param0, param1 ) que no coincidan con los nombres de la tabla.. y nada!

Manolo.

[Neftali [Germán.Estévez]]

Empezado por manoley23

...con que version de delphi? yo uso la 7 ( aun ) y si le asigno a un string tres comillas simples

Tienes razón, tienes razón, tienes razón,...
Se me ha ido la olla y se me han cruzado los cables; Estaba con otra cosa...
Ni caso, no me hagáis ni caso...

Siento el fallo; lo dicho, ni caso...

[epuigdef]

Buenas!

En l línea del parambyname del marámetro m2, cambia asmemo por value, así te pilla tipo variant y a ver qué tal!

Edu

[manoley23]

... lo mismo ...

Manolo.