Вверх ↑
Этот топик читают: Гость
Ответов: 38
Рейтинг: 1
#1: 2010-03-02 15:38:04 ЛС | профиль | цитата
Дорогие жители...
Вот возникла проблема и решил обратиться к вам так как сам уже более не могу ..(ну не об этом разговор). Ни как не могу добиться Того что бы читать тока одно значение поле ...

вот вариант обычный:
code_17155.txt


а вот одна попытка из многочисленных вариантов с матрицей:


code_17156.txt
------------ Дoбавленo в 15.44:
естественно ещё есть
такие параметры
Host localhost
login test
pass 0987654
DBname test
Charset CP1251
и ещё таблица тож test а поле которое хочеться вывести id , text

Заранее огромное спасибо
карма: 1

0
файлы: 2code_17155.txt [1.1KB] [149], code_17156.txt [1.3KB] [121]
Ответов: 16884
Рейтинг: 1239
#2: 2010-03-02 16:03:23 ЛС | профиль | цитата
millanoxp писал(а):
Ни как не могу добиться Того что бы читать тока одно значение поле ...
Расскажи что такое "значение поле "
Читать что хочешь из таблицы :
1. Одну строку
2. Один столбец
3. Одну ячейку

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 38
Рейтинг: 1
#3: 2010-03-02 16:10:53 ЛС | профиль | цитата
Вообще одну ячейку но конечно хорошо тож и одну строку..
карма: 1

0
Ответов: 16884
Рейтинг: 1239
#4: 2010-03-02 17:49:05 ЛС | профиль | цитата
Чтение одной ячейки:

SELECT имя_колонки FROM имя_таблицы LIMIT номер_строки , 1
Чтение одной строки:

SELECT * FROM имя_таблицы LIMIT номер_строки , 1
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 38
Рейтинг: 1
#5: 2010-03-02 21:36:07 ЛС | профиль | цитата
эт хорошо но я немного не то имею ввиду ...(((
нужно выводить хоть в сообщение.... и всё ... )))
карма: 1

0
Ответов: 16884
Рейтинг: 1239
#6: 2010-03-02 21:53:03 ЛС | профиль | цитата
millanoxp, я не понимаю твоего русского языка.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 38
Рейтинг: 1
#7: 2010-03-02 22:11:48 ЛС | профиль | цитата
блин все мысли в кучу...
вот по пунктам ..

1.сейчас у меня получается тока вытаскивать данные через указатель на таблицу а это меня не устраивает ((( "dbMySQL_ShowQuery ----> StringTable"

2.пробую через "MatrixRW ---> Message" не выходит.(((

3. Так вот задачка такая чтобы ответ приходил строкой (мона даже не одной в случае если запрос без limit 1,1 ))))

4. НАдеюсь доступно...
карма: 1

0
Ответов: 1328
Рейтинг: 69
#8: 2010-03-03 15:07:22 ЛС | профиль | цитата
[b]millanoxp[/b], попробуй так
Add(MainForm,2953706,105,105)
{
Width=654
Height=550
link(onCreate,4084563:doEvent1,[])
}
Add(DS_MySQL,12171372,294,112)
{
Name="db"
Server="127.0.0.1"
link(onError,10522786:doMessage,[])
}
Add(Message,10522786,469,119)
{
}
Add(Hub,4084563,182,119)
{
OutCount=3
link(onEvent1,12171372:doOpen,[(245,125)(245,118)])
link(onEvent2,12171372:doSelectDB,[])
link(onEvent3,9024854:doQuery,[(224,139)(224,258)])
}
Add(DSC_Query,9024854,252,252)
{
DSManager="db"
link(onQuery,15452280:doAddRow,[])
link(onColumns,12478364:doColAction,[(338,265)(338,342)])
}
Add(MTStrTbl,8154046,532,217)
{
Left=35
Top=20
Width=545
Height=475
Name="tbl"
}
Add(MST_DB,15452280,385,252)
{
MSTControl="tbl"
}
Add(MST_ColAction,12478364,392,336)
{
MSTControl="tbl"
}


карма: 2

0
Ответов: 38
Рейтинг: 1
#9: 2010-03-03 23:32:50 ЛС | профиль | цитата
ни чё не понятно..((((
карма: 1

0
Ответов: 1328
Рейтинг: 69
#10: 2010-03-04 14:01:14 ЛС | профиль | цитата
[b]millanoxp[/b], тот же код с пояснениями, заполни свойства и запусти пример
Add(MainForm,13539595,168,189)
{
Width=654
Height=550
link(onCreate,4084563:doEvent1,[])
}
Add(DS_MySQL,12171372,357,196)
{
Name="db"
Server="127.0.0.1"
link(onError,10522786:doMessage,[])
}
Add(Message,10522786,497,203)
{
}
Add(Hub,4084563,245,203)
{
OutCount=3
link(onEvent1,12171372:doOpen,[(308,209)(308,202)])
link(onEvent2,12171372:doSelectDB,[])
link(onEvent3,9024854:doQuery,[(287,223)(287,342)])
}
Add(DSC_Query,9024854,315,336)
{
DSManager="db"
link(onQuery,13020568:doWork,[])
link(onColumns,16160265:doWork,[(377,349)(377,447)])
}
Add(MTStrTbl,8154046,672,182)
{
Left=35
Top=20
Width=545
Height=475
Name="tbl"
}
Add(MST_DB,15452280,763,336)
{
MSTControl="tbl"
}
Add(MST_ColAction,12478364,588,441)
{
MSTControl="tbl"
}
Add(InfoTip,12910518,294,105)
{
Info=#0:|19:Ввести в свойствах:|6:сервер|4:лгин|6:пароль|8:имя базы|
Font=[MS Sans Serif,8,1,0,1]
Frame=3
Width=169
Height=130
}
Add(InfoTip,15392023,252,287)
{
Info=#0:|19:Ввести в свойствах:|19:строку запроса к бд|
Font=[MS Sans Serif,8,1,0,1]
Frame=3
Width=169
Height=109
}
Add(Check,16160265,385,441)
{
Caption=" добавляем столбцы в таблицу"
link(onEvent,12478364:doColAction,[])
}
Add(Check,13020568,476,336)
{
Caption=" добавляем строку (результат) в таблицу"
link(onEvent,15452280:doAddRow,[])
}


карма: 2

1
Голосовали:millanoxp
Ответов: 38
Рейтинг: 1
#11: 2010-03-04 17:00:22 ЛС | профиль | цитата
вот теперь еще одна задачка
вот по пунктам

1. реализую через этот элемент ))):
code_17189.txt

2. есть таблица в которой есть куча номеров "barcod" которые мы сканируем при "select" запросе.. на совпадение с тем что есть в базе и тем что есть при формировании запроса (т.е. barcod).

!!!3. загвоздка в том что елси запрос не верный выдаёт (лож!!!) то ни чё не происходит... а хотелось бы какой-то ответ типо :"NaN"... вот..

возможно ли это реализовать ?есть конечно кустарный способ но не думаю что он подойдёт ...:

code_17190.txt

при правильном условии выходит сообщение пусто (то что нужно добиться.... элементом DSC_Query)...
а при неверном выводит то что есть такие данные.....
карма: 1

0
файлы: 2code_17189.txt [546B] [92], code_17190.txt [1.3KB] [111]
Ответов: 1328
Рейтинг: 69
#12: 2010-03-04 17:52:25 ЛС | профиль | цитата
millanoxp, вот так проще будет
Add(MainForm,2953706,21,105)
{
Width=594
}
Add(Message,10921829,686,280)
{
Caption="ошибка запроса"
}
Add(DSC_Query,6700977,427,266)
{
DSManager="db"
link(onQuery,7474024:doValue,[(471,272)(471,216)])
link(onError,10921829:doMessage,[])
link(SQL,9282466:FString,[(433,258)(174,258)])
}
Add(FormatStr,9282466,168,217)
{
DataCount=1
Mask="select * from user where barcod="%1";"
Point(FString)
link(onFString,7579734:doEvent1,[])
link(Str1,5912561:Text,[])
}
Add(Message,9966644,742,413)
{
Caption="пусто"
}
Add(Edit,5912561,168,168)
{
Left=15
Top=10
Width=180
Text="123456789012"
}
Add(Button,15072984,105,217)
{
Left=385
Top=60
link(onClick,9282466:doString,[])
}
Add(Memory,7474024,490,210)
{
}
Add(Hub,7579734,245,217)
{
OutCount=3
link(onEvent1,7474024:doClear,[])
link(onEvent2,6700977:doQuery,[(347,230)(347,272)])
link(onEvent3,13905046:doData,[(332,237)(332,335)])
}
Add(Message,3980975,728,329)
{
Caption="данные то что надо"
}
Add(DoData,13905046,490,329)
{
link(onEventData,1261904:doCase,[])
link(Data,7474024:Value,[])
}
Add(Case,1261904,553,329)
{
link(onNextCase,3980975:doMessage,[])
link(onTrue,9966644:doMessage,[(663,342)(663,419)])
}


карма: 2

0
Ответов: 38
Рейтинг: 1
#13: 2010-03-05 00:30:43 ЛС | профиль | цитата
Konst, а что будет если инет "долгий" и ответ не сразу придёт ... и пойдёт следущая связь или такого не будет.?
карма: 1

0
Ответов: 1328
Рейтинг: 69
#14: 2010-03-05 15:15:21 ЛС | профиль | цитата
[b]millanoxp[/b], поставь таймер:
Add(MainForm,4339170,133,105)
{
Width=594
}
Add(Message,10921829,532,273)
{
Caption="ошибка запроса"
}
Add(DSC_Query,6700977,427,259)
{
DSManager="db"
link(onQuery,7474024:doValue,[(471,265)(471,209)])
link(onError,10921829:doMessage,[])
link(SQL,9282466:FString,[(433,251)(223,251)])
}
Add(FormatStr,9282466,217,210)
{
DataCount=1
Mask="select * from user where barcod="%1";"
Point(FString)
link(onFString,7579734:doEvent1,[])
link(Str1,5912561:Text,[])
}
Add(Message,9966644,630,420)
{
Caption="пусто"
}
Add(Edit,5912561,217,161)
{
Left=15
Top=10
Width=180
Text="123456789012"
}
Add(Button,15072984,154,210)
{
Left=385
Top=60
link(onClick,9282466:doString,[])
}
Add(Memory,7474024,490,203)
{
link(onData,10335422:doCase,[])
}
Add(Hub,7579734,294,210)
{
OutCount=3
link(onEvent1,7474024:doClear,[])
link(onEvent2,6700977:doQuery,[(347,223)(347,265)])
link(onEvent3,4349115:doTimer,[(332,230)(332,335)])
}
Add(Message,3980975,616,336)
{
Caption="данные то что надо"
}
Add(DoData,13905046,490,336)
{
link(onEventData,1261904:doCase,[])
link(Data,7474024:Value,[])
}
Add(Case,1261904,553,336)
{
link(onNextCase,3980975:doMessage,[])
link(onTrue,9966644:doMessage,[(607,349)(607,426)])
}
Add(Timer,4349115,392,329)
{
Enable=1
AutoStop=1
Point(onStop)
link(onStop,13905046:doData,[])
}
Add(Case,10335422,532,203)
{
link(onNextCase,4349115:doStop,[(588,209)(588,318)(380,318)(380,342)])
}


------------ Дoбавленo в 18.04:
millanoxp, у тебя пример HiAsmelementsdelphiexampleDataBasedbMySQL.sha подключается к базе?
карма: 2

0
14
Сообщение
...
Прикрепленные файлы
(файлы не залиты)