Форум на Исходниках.RU

Перемещение строки из базы1 в базу2

pigas — Fri, 05 Dec 2003 08:27:42 +0000

pigas:

Цитата (Bas @ 4.12.03, 06:43)

Цитата (pigas @ 3.12.03, 22:39)

Form7.table1.Edit;

Правильней будет
Form7.table1.Insert;
или
Form7.table1.Append;

да твоя правда ....

Перемещение строки из базы1 в базу2

Demon_ — Thu, 04 Dec 2003 22:47:09 +0000

Demon_: Всем спасибо, вроде разобрался.

Перемещение строки из базы1 в базу2

Bas — Thu, 04 Dec 2003 06:43:01 +0000

Bas:

Цитата (pigas @ 3.12.03, 22:39)

Form7.table1.Edit;

Правильней будет
Form7.table1.Insert;
или
Form7.table1.Append;

Перемещение строки из базы1 в базу2

pigas — Wed, 03 Dec 2003 20:54:24 +0000

pigas: вот и поиск

if not Table1.Locate('name;vendor',table1.FieldByName('name').asstring+';'+table1.FieldByName('vendor').asstring,[loCaseInsensitive,loPartialKey])
then
ShowMessage('Не найдено Мля (дайте *****л*й разработчику)')
else
ShowMessage(' найдено но серавно дайте *** разработчику ');

Перемещение строки из базы1 в базу2

pigas — Wed, 03 Dec 2003 20:39:09 +0000

pigas: [курсовую делать заставляют.]
За такое в войну растреливали.

procedure TForm1.Label11Click(Sender: TObject);
var
i:integer;
begin
Form7.table1.Edit;
for i:=0 to Form1.DataSet.FieldCount do
begin
Form7.table1.FieldByName(Form1.tableXXXXX.Fields[i].FieldName).AsString:=Form1.tableXXXXX.Fields[i].AsString;
end;
Form7.table1.Post;
end;

Осуществляет поиск записи в наборе данных
Класс TDataSet

Определение
type
TLocateOption = (loCaseInsensitive, loPartialKey);
TLocateOptions = set of TLocateOption;

function Locate(const KeyFields: string;
const KeyValues: Variant;
Options: TLocateOptions): Boolean;

Описание
Метод Locate является, наряду с Lookup, SetKey и FindKey, методом поиска записи в наборе данных.

В качестве первого параметра KeyFields передается строка, содержащая список ключевых полей, по которым осуществляется поиск. В качестве второго параметра передается KeyValues - массив ключевых значений. Ищется запись, в которой значения полей KeyFields совпадают с заданными в KeyValues. Третий параметр Options является множеством опций, элементами которого могут быть loCaseInsensitive - нечувствительность поиска к регистру, в котором введены символы, и loPartialKey - допустимость частичного совпадения. Метод возвращает false, если искомая запись не найдена.

Метод Locate отличается от методов SetKey и FindKey прежде всего отсутствием необходимости индексировать определенным образом набор данных. В силу этого Locate более прост и универсален. Кроме того метод Locate, в отличие от SetKey и FindKey, применим к компонентам Microsoft ActiveX Data Objects (ADO) - например, ADOTable и ADOQuery, а также к компонентам InterBase Express (IBX) - например, IBTable и IBQuery.

Метод Locate не требует индексации набора данных. Но если набор данных индексирован по полям KeyFields, то поиск производится быстрее.

При поиске по нескольким полям можно воспользоваться функцией VarArrayOf, которая формирует тип Variant из задаваемого ей массива параметров любого типа. Например (см. примеры):

Table1.Locate('Dep;Fam', VarArrayOf([EDep.Text, EFam.Text]), [loCaseInsensitive,loPartialKey]);

Добавлено в 03.12.03, 20:40
ой ощибся .
так правельнее
for i:=0 to (Form1.DataSet.FieldCount-1) do

Если не выйдет то
for i:=1 to Form1.DataSet.FieldCount do

Перемещение строки из базы1 в базу2

Demon_ — Wed, 03 Dec 2003 20:07:15 +0000

Demon_: Сразу грю - в дельфи я полный чайник! В нашем универе дают базы данных, совершенно не дав при этом дельфи и при этом ещё и курсовую делать заставляют.
Сам вопрос: на form2 table1 открыта база данных: необходим код, который по нажатию кнопки перемещает выделеную строку в другую базу на form7 table1 при этом программа должна проверить есть ли подобная строка во второй базе данных, проверка должна осуществлятться по двум полям `name` & `vendor`. Используеться БД формата dBASE IV+Delphi6.