Имя: Пароль:
IT
 
Delphi and Access
0 vilija
 
06.01.13
00:32
Здравствуйте. у меня вопрос по dilphi. Задание написать программу для работы с базой данных. я взяла access. Связать базу с программой получилось. теперь нужно вытащить значение одного поля, например "процент штрафа за просроченную доставку" из базы...подскажите, как...
1 HeroShima
 
06.01.13
00:44
(0) неинтересная база - давайте следующую!
2 hohol
 
06.01.13
01:28
3 IOL
 
06.01.13
02:40
(2) Ну ты блин прям все по русски-амерекосовским объяснил, рука гуру на над тобою :-)
(0) Юзай адо, как тебе написали, изучай структуру бд, смотри, что да как, и ставь пожалуйста корректную задачу, бо не один участник форума, вашу бд в глаза не фидел :-)
4 vilija
 
06.01.13
12:07
(3) да какая разница какая бд? мне нужно вытащить цифру чтобы потом его взять за значение и дальше считать
5 ДенисЧ
 
06.01.13
12:09
(4) ну так и пиши запросец SELECT Cifra FROM Table...
6 mikecool
 
06.01.13
12:10
(4) может ну его, а то задачу так долго будешь делать?
7 mikecool
 
06.01.13
12:11
+6 и фотки нету
8 vilija
 
06.01.13
12:12
(5) не то. это таблица а не значение.
(6) это курсач. послать не получится
(7) какая разница?
9 vilija
 
06.01.13
12:13
мне нужно значение запихать в переменную. конкретное значение, конкретная переменная. одна!
10 mikecool
 
06.01.13
12:16
". это таблица а не значение" - это будет выборка, из которой получи значение
а с фото уже бы расписали что да как делать )))
11 Amra
 
06.01.13
12:22
(10) Смотря какое фото))
12 vilija
 
06.01.13
12:31
вот вам фото
подскажите функцию
13 ДенисЧ
 
06.01.13
12:34
(12) см (5)
И запомни, что в базе данных не бывает "просто значений". Они хранятся в таблицах. И из таблиц и надо их выбирать.
14 ПесняПроЗайцев
 
06.01.13
12:34
Фото конечно, не воодущевило.)


hint: если есть начальные познания в акцессе, сделай там нужный тебе запрос в конструкторе и скопируй его в дельфи.
15 vilija
 
06.01.13
12:35
(13) мне надо из таблицы, из определенной строки достать значение столбца
16 vilija
 
06.01.13
12:36
не столбца, ячейки
17 ПесняПроЗайцев
 
06.01.13
12:37
(15) в (5) приведен пример для столбца Cifra, а строка ищется условием where
18 ПесняПроЗайцев
 
06.01.13
12:38
19 ДенисЧ
 
06.01.13
12:39
(15) SELECT Yacheika FROM Tablica WHERE KluchStrokiTablicy = ZnachenieKlucha
20 ПесняПроЗайцев
 
06.01.13
12:42
(19) так ее. ключами )
21 vilija
 
06.01.13
12:50
(19) нет ключа
есть база. в базе договора с поставщиками. в договоре есть столбец со значениями штрафа за просроченную поставку в день. мне надо взять это значение и расчитать сколько он мне должен за просроченную поставку. это нужный договор и из него брать этот штраф. он в каждом договоре разный.
22 ДенисЧ
 
06.01.13
12:52
(21) как же нет ключа? Если на каждый договор своя строка?  И  у каждого договора есть свой ИД? Вот это и есть ключ.
23 ПесняПроЗайцев
 
06.01.13
12:54
(22) пральна. Сначала надо вычислить УИД ссылки договора..
24 mikecool
 
06.01.13
13:09
(11) ты прав )))
25 vilija
 
06.01.13
13:14
ок. вычислили. дальше...
26 ДенисЧ
 
06.01.13
13:15
(25) а дальше см (19)
А для начала почитай самые азы SQL...
Например http://firststeps.ru/sql/r.php?4
27 kotletka
 
06.01.13
13:55
новая Мисти что ле?
28 vilija
 
06.01.13
13:57
хм...
а пойдет ли?

i : integer;
i := ADOQuery1.SQL.Add('SELECT cena FROM tovar');
29 mikecool
 
06.01.13
14:12
(28) а что возвращает сия конструкция проверяла?
30 IVIuXa
 
06.01.13
14:32
(0)
odbc + purebasic тебе в руки
http://www.purebasic.ru/

это г - Delphi просьба не вспоминать....
понаделали в свое время горе программисты г из этого дельфина
31 vilija
 
06.01.13
14:51
(29) блин, просто скажи так можно или нет
32 IVIuXa
 
06.01.13
14:58
(31)
если в odbc настроено наимя UM
пример твоей программы на пурике

UseODBCDatabase()
If  OpenDatabase(0,"UM","test","test") ;логин пароль
 DatabaseQuery(0, "SELECT cena FROM tovar") ; Получим записи  
   While NextDatabaseRow(0) ; Цикл по всем записям
     Debug GetDatabaseString(0, 1) ; Покажем содержимое поля      
   Wend  
   FinishDatabaseQuery(0)
Else
   Debug "Connection failed: "+DatabaseError()
 EndIf
33 IVIuXa
 
06.01.13
15:12
(8)
хммм подскажи в каком это учебном заведении
delphi заставляют учить ?
34 Torquader
 
06.01.13
15:13
Интересно - просроченная поставка в день ?
Так где-то ещё и информация должна быть о том, когда должны были поставить и когда реально поставили.
То есть таблица явно не одна, а несколько.
35 IVIuXa
 
06.01.13
15:17
(34)
экстрасенс ?
36 Torquader
 
06.01.13
15:26
(35) Нет, просто баранов не люблю, которые даже не знают как название среды программирования пишется (0), а пытаются что-то рабочее родить.
37 IVIuXa
 
06.01.13
16:38
(36)
да мне вот интересно
кто нибудь хоть что то на дельфине писал вообще ?
любой цикл на этом чуде - вывешивает ос напрочь
костыли типа антифриза работают коряво - тьфу короче
(если я не прав поправьте)
38 ДенисЧ
 
06.01.13
16:47
(37) Какой цикл? Куда вывешивает? Если ты не умеешь вызвать ::PeekMessage(), то это не проблема дельфина
39 IVIuXa
 
06.01.13
16:53
(38)
например бесконечный цикл
при чем здесь PeekMessage вообще
40 IVIuXa
 
06.01.13
16:55
(38)
вывешивает ос - это означает что у тебя на экране компьютера все застывает, даже мышка - ну иногда еле еле работает :)
41 mikecool
 
06.01.13
16:58
(29) откуда я помню? я дельфи последний раз в 2003 году видел
но - я тебе подсказываю путь, откуда найдешь истину
42 IVIuXa
 
06.01.13
17:06
(38)
да и вообще эти уе....щные библиотеки для работы с картинками например или с камерой ?
а переносимость на 64 разрядные ос ?
и т.д. и т.п.
вот зачем этот мертвяк в (0) изучают ?
43 Сияющий Асинхраль
 
06.01.13
17:12
(42) Не обижай Дельфи. Если не умеешь готовить кошек, это не значит, что все такие же. Кстати, моя любимая прога под винду, а именно Тотал Коммандер, на дельфях написана. Так что вопрос о том, что на Дельфях изобразить можно - это вопрос квалификации прогера, а не крутизны системы разработки.
44 IVIuXa
 
06.01.13
17:23
(43)
обижать не буду - светлая ему память
45 ДенисЧ
 
06.01.13
17:34
(39) Если ты не знаешь, что такое PeekMessage(0, так и скажи...
46 IVIuXa
 
06.01.13
18:19
(45)
The WM_QUIT (or PostQuitMessage as it generated a WM_QUIT) message causes PeekMessage and GetMessage to return 0. So you will never get the message.

да ну вас
47 HeroShima
 
06.01.13
18:44
(46) логично...
48 IVIuXa
 
07.01.13
04:01
вы сначала в (0)
напишите хоть что нибудь на своем дельфи чтоб работало

пока воспринимаю всех как гуглевских пустозвонов
ни одного полезного комента
49 HeroShima
 
07.01.13
09:34
(48) у меня всё работало) в рабочих потоках)
50 Chai Nic
 
07.01.13
09:56
На дельфи писать программу работы с базой аксесс? Зачем такие извращения? Здесь лучше подойдет interbase/firebird. И СУБД сама по себе серьезнее, да и поинтереснее в плане развития... версионная СУБД это в тыщу раз круче блокировочной :)
51 Torquader
 
07.01.13
18:54
Вывешивал систему 16-битный дельфи, так как подсистема исполнения 16-битного кода была чувствительна к запрету прерываний.
Современный 32-битный не должен ничего вывешивать, конечно, если вы не драйвер пишете.
52 sda553
 
07.01.13
21:12
А вот у меня курсовик был с резанием мышек и облучением их органов лазером.
53 vde69
 
07.01.13
21:42
в дельфях точно есть конструктор на подключение и вроде как был конструктор на запросы....