Почему выходит это ошибка?

содержит число "1"

Почему выходит это ошибка?

точно Integer, а точнее поле Numeric в dbf

Почему выходит это ошибка?

Подскажи пожалуйста почему у меня ошибка несоответствие типов, при выполнении следующего кода?

Именно когда значение Integer.

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
varCounter : Integer;
varVariablePole : String;

varP_visible : Integer;
varP_date : TDate;
varP_article : String;

const
CRLF = #13#10;

begin
ExcelApp := CreateOleObject('Excel.Application');
ExcelApp.Workbooks.Open(vargPathFileProduct);

dmContanierIcon.quProductAll.Close;

dmContanierIcon.quProductAll.SQL.Clear;
varCounter := 0;
while ExcelApp.ActiveSheet.UsedRange.Rows.Count do
begin
varCounter := varCounter + 1;
varVariablePole := ExcelApp.Range['I'+IntToStr(varCounter)];
if varVariablePole = '' then Break else
begin
varP_article := varVariablePole;

varVariablePole := ExcelApp.Range['A'+IntToStr(varCounter)];
varP_visible := StrToInt(varVariablePole);

varP_date := Date;

dmContanierIcon.quProductAll.SQL.Text := 'INSERT INTO dbt_ProductAll(p_visible, p_date, p_article)' + CRLF +
'VALUES(:_varP_visible, :_varP_date, :_varP_article)';

//Ошибка при добавлении этой строки
dmContanierIcon.quProductAll.ParamByName('_varP_visible').AsInteger := varP_visible;
//-----------------------------------
dmContanierIcon.quProductAll.ParamByName('_varP_date').AsDate := varP_date;
dmContanierIcon.quProductAll.ParamByName('_varP_article').AsString := varP_article ;
end;
dmContanierIcon.quProductAll.ExecSQL;
end;

ExcelApp.ActiveWorkbook.Close;
ExcelApp.Application.Quit;
end;

Можно ли SQL запросом соединить несколько таблиц вертикально?

Подскажите пожалуйста как правильно написать запрос следующего типа:
SELECT * FROM Lum, Lum2, Lum3 WHERE Lum.name, Lum2.name, Lum3.name LIKE "%'+varSearchArticle+'%"

После того как я UNIONом соединил три таблицы как по ним SQL запросом можно сделать поиск.
Есть три таблицы Lum, Lum2, Lum3 , и во всех таблицах есть одинаковое поле Name.
Как написать запрос чтоб при LIKE "%'+varSearchArticle+'%" работало по полям трех таблиц?

Почему выходит это ошибка?

Mercury13: получилось, после ExecSQL просто нужно было вернуть заново таблицу SELECTом, спасибо ...)

Можно ли SQL запросом соединить несколько таблиц вертикально?

Спасибо большое понял все

Можно ли SQL запросом соединить несколько таблиц вертикально?

все понял спасибо огромное

Можно ли SQL запросом соединить несколько таблиц вертикально?

Можете дать небольшой примерчик запроса, я на Delphi c базой DBF

Почему выходит это ошибка?

я не понимаю что она хочет теперь, вот код:

procedure TfAddProduct.sbAddClick(Sender: TObject);
var
varNameSelectProduct : String;
varCount : Integer;
varId : Integer;
varPrice : Real;
varSumPrice : Real;

begin
varNameSelectProduct := edNameSelectProduct.Text;
varCount := StrToInt(edCount.Text);
varPrice := StrToFloat(edPrice.Text);
varSumPrice := varCount * varPrice;

dmContanierIcon.quAdmissionProduct.Active := False;
dmContanierIcon.quAdmissionProduct.Close;
dmContanierIcon.quAdmissionProduct.SQL.Clear;
dmContanierIcon.quAdmissionProduct.SQL.Text := 'INSERT INTO dbt_AdmissionProduct (p_product, p_count, p_price, p_sumPrice) VALUES ("'+varNameSelectProduct+'", "'+IntToStr(varCount)+'", "'+FloatToStr(varPrice)+'", "'+FloatToStr(varSumPrice)+'")';
dmContanierIcon.quAdmissionProduct.ExecSQL;
dmContanierIcon.quAdmissionProduct.Active := True;
end;

при подключении строка dmContanierIcon.quAdmissionProduct.Active := True;
выдает следующую ошибку...

Почему выходит это ошибка?

Есть только такая функция dmContanierIcon.quAdmissionProduct.ExecSQL; просто Execute нету. Напиши пожалуйста как надо

Почему выходит это ошибка?

данные добавляются но выходит ошибка указанная выше.

Почему выходит это ошибка?

Вот код, куда добавить Execute?

procedure TfAddProduct.sbAddClick(Sender: TObject);
var
varNameSelectProduct : String;
varCount : Integer;
varId : Integer;
varPrice : Real;
varSumPrice : Real;

begin
varNameSelectProduct := edNameSelectProduct.Text;
varCount := StrToInt(edCount.Text);
varPrice := StrToFloat(edPrice.Text);
varSumPrice := varCount * varPrice;

dmContanierIcon.quAdmissionProduct.Active := False;
dmContanierIcon.quAdmissionProduct.Close;
dmContanierIcon.quAdmissionProduct.SQL.Clear;
dmContanierIcon.quAdmissionProduct.SQL.Text := 'INSERT INTO dbt_AdmissionProduct (p_product, p_count, p_price, p_sumPrice) VALUES ("'+varNameSelectProduct+'", "'+IntToStr(varCount)+'", "'+FloatToStr(varPrice)+'", "'+FloatToStr(varSumPrice)+'")';
dmContanierIcon.quAdmissionProduct.Open;
dmContanierIcon.quAdmissionProduct.Active := True;
end;

Почему выходит это ошибка?

Подскажи пожалуйста почему это ошибка теперь появляется... с теми вроде разобрался...

Как избавиться от следующей ошибки "произошла ошибка во время выполнения многошаговой операции ole db" в delphi?

какой запрос, если я даже таблицу не могу выбрать, при выборе таблицы выходит это ошибка

Как перевести функцию с mysql_ на mysqli_?

Rsa97: Спасибо, дружище! Все получилось отлично работает. Когда нибудь отблагодарю.

Как перевести функцию с mysql_ на mysqli_?

Выдает следующую ошибку: Call to a member function prepare() on a non-object in /var/www/... .php on line 46

46 линия это:
$query = $mysqli->prepare("SELECT `price` FROM `sdvd_products` WHERE `id` = ?");

Как перевести функцию с mysql_ на mysqli_?

Спасибо, постараюсь разобраться и отпишусь!

Как перевести функцию с mysql_ на mysqli_?

$item_price = mysql_result($result,0,'price'); в этой строке, как его mysqli_ сделать...?

Как перевести функцию с mysql_ на mysqli_?

если не трудно можно и на PDO...

Возможно ли скрыть блок div?

Спасибо! коротко и ясно! а то тут некоторые лишние слова пишут ))) Если бы я это все знал, то сюда не обращался ) огромное спасибо Эльдар еще раз.