Друзья, мне бы пару слов про основы :))

← →
Intelligent © (2004-11-17 09:57) [0]

У меня есть таблица базы данных Paradox7, в которой лежит информация о зарегистрированных пользователях. Я понял как брать значение конкретной ячейки и присваивать его переменной, но не пойму, как запихнуть значение другой переменной в заданную ячейку?

← →
ЮЮ © (2004-11-17 10:10) [1]

попробуй поменять местами правую и левые части в твоем "понял как брать значение ..."

← →
malamba (2004-11-17 10:33) [2]

ЮЮ, ну зачем же так образно. Человек с открытым сердцем пришел...

Intelligent, Вас интересует, как ввести значение в таблицу базы данных. Это зависит от того, какими компонентами Вы пользуетесь.
Если Table, то там можно сразу заводить значение ( не пользуюсь им, поэтому подробностей не помню)
Если SQL-подобными компонентами, то можно вводить значение, используя язык запросов SQL.
Тема достоточно объемная, материалы по ней можно найти в Инете.

(-Папа, а отчего солнце светит?
-Не знаю.
-А почему луна ночью?
-Не знаю.
- А почему звезды такие маленькие?
-Не знаю.
-Что ты к отцу с расспросами пристаешь?!
-Нет, ну почему же. Откуда он все узнает, как не от меня?)

← →
ЮЮ © (2004-11-17 10:53) [3]

>ЮЮ, ну зачем же так образно. Человек с открытым сердцем пришел...
но с совершенно закрытыми мыслями. Ну не вижу, я как именно он "берет значение конкретной ячейки", пэтому не могу привести код, адекватный его "Я понял"

← →
Intelligent © (2004-11-17 21:57) [4]

да да... простите за такую неопределенность... да, я использую компонент Table. И пишу следующий код для взятия значений всех полей для заданного пользователя... но... если я правильно понял вас... "поменять местами правую и левую части...", то это у меня не работало... я пробовал.

Table1.First;
while not table1.eof do begin
s[1]:=Table1.FieldByName("Nickname").AsString;
if s[1]=a then begin
table1.FieldByNam("IP").AsString:=Edit2.Text;
s[2]:=Table1.FieldByName("Name").AsString;
s[3]:=Table1.FieldByName("Surname").AsString;
s[4]:=Table1.FieldByName("Sex").AsString;
s[5]:=Table1.FieldByName("Age").AsString;
s[6]:=Table1.FieldByName("Phone").AsString;
s[7]:=Table1.FieldByName("IP").AsString;
for i2:=1 to 7 do Memo1.Lines.Add(s[i2]);
goto 1;
end;
Table1.Next;
end;

где a - ник, введенный в Edit1, а lable 1 находится в конце подпрограммы.

← →
SergP © (2004-11-17 22:12) [5]

... Table1.edit; // это для изменения текущей записи. Для добавления новой // используй Table1.insert Table1.FieldByName("Name").AsString:=s[2]; Table1.FieldByName("Surname").AsString:=s[3]; ... Table1.post; ...

Только поиск нужной записи у тебя нехорошо сделан....

← →
SergP © (2004-11-17 22:19) [6]

> goto 1;

Кстати, такие штуки в паскале без необходимости тоже использовать нехорошо... Не привыкай к ним...

Спасибо большое, уважаемый мастер! Теперь все получилось!..
А вы не могли бы подсказать как упростить поиск нужной записи?
И почему использовать goto - нехорошо? Я использую его для того, чтобы после удачного выбора нужных записей не перебирать дальше всю таблицу до конца, а закончить подпрограмму. Как можно без него это сделать, не подскажете?

ПОИСК:
a:="Иван" Table1.locate("Name",a,[]);

Данная функция переместит указатель на ПЕРВУЮ запись в столбце Name удовлетворяющую некой A (Иван). Также она возвращает булевое значение ,т.е если Table1.locate(...)=false искомой записи не существует.

В скобаках [] можно также указать опции поиска: loCaseInsensitive,loPartialkey

Друзья, мне бы пару слов про основы :)) Найти похожие ветки