Форум: "Базы";
Текущий архив: 2003.05.22;
Скачать: [xml.tar.bz2];
Вниз
Слишком мало параметров, требуется 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c
