Текущий архив: 2003.05.22;
Скачать: CL | DM;

Вниз

Слишком мало параметров, требуется 1   Найти похожие ветки 

← →
Viktor   (2003-05-02 15:07) [0]

Привет мастерам!
Нужен совет. Не хочет выполняться запрос.

function TFrmBookJob.RecordTrue(Tab, IdField: String): Boolean;
var
QId : TAdoQuery;
sSql : String;
begin
QId := TAdoQuery.Create(self);
QId.Connection := FrmMdi.AdoConnection;
sSql := "Select * from " + Tab + " Where Id = " + IdField;
QId.SQL.Add(sSql);
QId.Open;
if QId.RecordCount <> 0 then
Result := True
else
Result := False;
QId.Free;
end;

---

← →
_Narayan_   (2003-05-02 15:23) [1]

Это как я понимаю проверка наличия значения...
У меня так:

Функция проверяет наличия значения по полю с именем FieldName
в таблице TableName. Если проверяемое значение типа Sting то
при вызове: ZnachenieInt указываем NotNeedInt...
(при отсутствии проверяемого значения возвращяет TRUE)


...
const NotNeedInt=-2000000000;
NotNeedStr="E_m_p_t_y";
....
function TForm1.mNotValueExsists(TableName, FieldName, ZnachenieStr: String; ZnachenieInt: Integer): Boolean;
var S: String;
D: Integer;
begin
S:=NotNeedStr;
D:=NotNeedInt;

If ZnachenieInt<>NotNeedInt Then With IBSQL1 Do
Begin
Close;
SQL.Clear;
SQL.Append("Select "+FieldName+" From "+TableName+" Where "+FieldName+"=:P0");
Params[0].AsInteger:=ZnachenieInt;
ExecQuery;
D:=(IBSQL1.FieldByName(FieldName).AsInteger);
Close;
Result:=not(D=ZnachenieInt);
end

Else With IBSQL1 Do
Begin
Close;
SQL.Clear;
SQL.Append("Select "+FieldName+" From "+TableName+" Where "+FieldName+"=:P0");
Params[0].AsString:=ZnachenieStr;
ExecQuery;
S:=Trim(IBSQL1.FieldByName(FieldName).AsString);
Close;
Result:=not(S=ZnachenieStr);
end;
end;


---

← →
sunrider   (2003-05-03 01:36) [2]

Попробуй записать " Where Id = "" + IdField+"""
если конечно Id поле типа string

---

Страницы: 1 вся ветка

Текущий архив: 2003.05.22;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.014 c