[nanometr]

есть такой вот кусок кода:

Код:

with DataModule1.Query1 do
        begin
        Parameters.ParamByName('param1').Value :=ComboBox1.Text;
        Parameters.ParamByName('param2').Value :=ComboBox2.Text;
        Parameters.ParamByName('param3').Value :=ComboBox3.Text;
        execSql;
        end;

все параметры типа string.
Вылезает ошибка "Приложение использует для текущей операции значение неверного типа."

Объясните пожалуйста, что тут не так. Не могу понять, чем тут типы то не угодили...

sql скрипт просто в базу добавляет записи insert`ом.

[Aristarh Dark]

Кавычки однако нужны...

[nanometr]

где они нужны? Параметры у меня в кавычках.

[Страдалецъ]

Текст запроса покажите. Обычно такая ошибка происходит когда пытаются сцепить текст и число или при сравнении ожидается текст, а передается неизвестная константа.

[movnet]

Сообщение от Aristarh Dark

Кавычки однако нужны...

Код:

Parameters.ParamByName('param1').Value := #39+ComboBox1.Text+#39;

[NumLock]

я вообще не знаю у TQuery (судя по имени Query1) свойства "Parameters" (Delphi 3-Delphi 7) есть Params: TParams! а классический механизм выполнения SQL запроса, не возвращающего набор данных (cursor):

Код:

  with Query1 do
  begin
    Prepare;
    ParamByName('Param1').AsString:=Caption;
    ParamByName('Param2').AsInteger:=Tag;
    ParamByName('Param3').AsBoolean:=Visible;
    ExecSQL;
  end;

но, имхо, можно и всем ParamByName('ParamХ').AsString:=strValue;

[nanometr]

текст запроса проще некуда:
SQL

Код:

INSERT INTO Table1(field1,field2)
VALUES(:param1,:param2) 

ничего из выше перечисленного не заставило ошибку изчезнуть((((
Может есть еще какие нибудь варианты решения?

[nanometr]

Сообщение от NumLock

я вообще не знаю у TQuery (судя по имени Query1) свойства "Parameters" (Delphi 3-Delphi 7) есть Params: TParams! а классический механизм выполнения SQL запроса, не возвращающего набор данных (cursor):

Код:

  with Query1 do
  begin
    Prepare;
    ParamByName('Param1').AsString:=Caption;
    ParamByName('Param2').AsInteger:=Tag;
    ParamByName('Param3').AsBoolean:=Visible;
    ExecSQL;
  end;

но, имхо, можно и всем ParamByName('ParamХ').AsString:=strValue;

А на такое вообще Delphi 7 изругалась. Сказало, что Prepare и ParamByName неопределенные переменные.

[NumLock]

Сообщение от nanometr

А на такое вообще Delphi 7 изругалась. Сказало, что Prepare и ParamByName неопределенные переменные.

уверены, что все-таки Delphi запускаете? попробуйте откомпилить, запускать не надо:
http://data.cod.ru/79774

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Query1: TQuery;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  with Query1 do
  begin
    Prepare;
    ParamByName('Param1').AsString:=Caption;
    ParamByName('Param2').AsInteger:=Tag;
    ParamByName('Param3').AsBoolean:=Visible;
    ExecSQL;
  end;
end;

end.

[nanometr]

возникло недопонимание Я исплользую TADOQuery. А то что скинули Вы, откомпилировалось нормально.

[Black Raider]

А поля в базе в которые пишите все стринговые?

[NumLock]

-удали это компонент TADOQuery из TDataModule и добавь новый TADOQuery
-назови также, чтобы код не переписывать
-задать свойству Connection соотв. компонент TADOConnection
-TADOConnection сделать Connected = True
-в свойство SQL впиши свой запрос "insert into..."
-пробовать запустить

[nanometr]

Поля все стринговые в базе.
Сейчас попробую удалить компонент и занова все сделать.. Хотя я так уже пробывал пару раз, не помогло.

[nanometr]

и снова не помогло. я подумываю весь дата модуль убить с заного сделать может..
В чем может быть проблема? Не понимаю.

[NumLock]

в дизайнере щелкни на свойство Parameters и смотри какие типы у параметров (DataType). можно попробовать всем сделать ftWideString.