Вверх ↑
Этот топик читают: Гость
Ответов: 3
Рейтинг: 0
#1: 2013-04-11 23:35:22 ЛС | профиль | цитата
Привет. Только начинаю пользоваться hiasm'ом.
Нужно всего лишь по нажатию на кнопку записать в таблицу базы данных MySQL значение, введенное в текстовое поле.
Если не затруднит, подтолкните пару примитивных примеров на эту тему
карма: 0

0
Главный модератор
Ответов: 2999
Рейтинг: 396
#2: 2013-04-11 23:43:55 ЛС | профиль | цитата
Не затруднит поискать примеры у себя на диске в папке: ..HiAsmElementsDelphiExampleDataBase ?
карма: 6
Дорогу осилит идущий. Install/Update HiAsm.NET
0
Ответов: 3
Рейтинг: 0
#3: 2013-04-12 00:49:14 ЛС | профиль | цитата
Nic писал(а):
Не затруднит поискать примеры у себя на диске в папке: ..HiAsmElementsDelphiExampleDataBase ?

Я смотрел пример dbMySQL.sha, но он для меня слишком сложный. Из него я понял как подключится к базе, но как после этого записать в неё информацию?
------------ Дoбавленo в 00.49:
Вот пытаюсь собрать схему, укажите на ошибки, пожалуйста.

Add(MainForm,2953706,21,28)
{
}
Add(Edit,7904177,168,77)
{
Left=175
Top=75
}
Add(Button,4193474,70,168)
{
Left=140
Top=150
link(onClick,1799571:doEvent1,[])
}
Add(DoData,10269798,168,140)
{
link(onEventData,1896922:doValue,[(218,146)(218,143)])
link(Data,7904177:Text,[])
}
Add(dbMySQL,30101,413,98)
{
Host=""
link(Host,12568762:Var,[(419,77)(376,77)])
link(Login,15008101:Var,[])
link(Password,5084853:Var,[(433,77)(502,77)])
link(DBName,14385597:Var,[(440,87)(579,87)])
link(onError,7765744:doMessage,[])
}
Add(GlobalVar,5084853,496,35)
{
Name="password"
}
Add(GlobalVar,15008101,420,35)
{
Name="username"
Data=String(root)
}
Add(GlobalVar,12568762,370,35)
{
Name="host"
Data=String(localhost)
}
Add(dbMySQL_Query,24029,414,238)
{
link(onError,13162702:doMessage,[(489,251)(489,244)])
link(dbHandle,4520336:Var2,[(420,184)(419,184)])
link(QueryText,5437021:Text,[(427,208)(461,208)])
}
Add(Edit,5437021,455,154)
{
Left=390
Top=95
Text="Insert into table values(W)"
}
Add(GlobalVar,1896922,243,137)
{
Name="W"
}
Add(Hub,1799571,126,168)
{
OutCount=3
link(onEvent1,10269798:doData,[(150,174)(150,158)(152,153)(150,146)])
link(onEvent2,30101:doOpen,[(304,181)(304,104)])
link(onEvent3,24029:doQuery,[(354,188)(354,244)])
}
Add(Message,13162702,525,238)
{
Message="Запрос не выполнен!"
}
Add(Message,7765744,514,98)
{
Message="Подключение не состоялось!"
}
Add(GlobalVar,14385597,573,35)
{
Name="data base"
Data=String(kkz)
}
Add(GetDataEx,4520336,413,133)
{
link(Data,30101:dbHandle,[])
}
карма: 0

0
Главный модератор
Ответов: 2999
Рейтинг: 396
#4: 2013-04-12 00:58:21 ЛС | профиль | цитата
listofproject.png
listofproject2.png
карма: 6
Дорогу осилит идущий. Install/Update HiAsm.NET
0
файлы: 2listofproject.png [268.2KB] [232], listofproject2.png [63.9KB] [233]
Ответов: 3
Рейтинг: 0
#5: 2013-04-12 01:42:51 ЛС | профиль | цитата
Nic писал(а):

Спасибо, стало немного понятней, но почему то подключение не проходит, не могу понять в чем проблема( ...

Add(MainForm,2953706,21,28)
{
}
Add(Button,4193474,7,161)
{
Left=65
Top=95
link(onClick,43116:doEvent1,[])
}
Add(dbMySQL,30101,343,91)
{
Host=""
link(Host,7668799:Text,[(349,86)(286,86)])
link(Login,9986320:Text,[(356,79)(328,79)])
link(Password,5753083:Text,[(363,72)(370,72)])
link(DBName,6773059:Text,[(370,79)(412,79)])
link(onError,7765744:doMessage,[])
}
Add(Edit,5437021,385,147)
{
Left=390
Top=95
Text="Insert into table (text) values (sdf)"
}
Add(Message,13162702,462,238)
{
Message="Запрос не выполнен!"
}
Add(Message,7765744,444,91)
{
Message="Подключение не состоялось!"
}
Add(Hub,43116,77,161)
{
OutCount=3
link(onEvent1,30101:doOpen,[(217,167)(217,97)])
link(onEvent2,30101:doSelectDB,[(272,174)(272,111)])
link(onEvent3,6966168:doQuery,[(199,181)(199,237)])
}
Add(Edit,7668799,280,49)
{
Left=60
Top=30
Width=85
Text="localhost"
}
Add(Edit,9986320,322,21)
{
Left=150
Top=30
Width=55
Text="root"
}
Add(Edit,5753083,364,21)
{
Left=210
Top=30
Width=90
Text=""
}
Add(Edit,6773059,406,35)
{
Left=305
Top=30
Width=105
Text="kkz"
}
Add(Button,642536,98,119)
{
Left=140
Top=100
Caption="-"
link(onClick,30101:doClose,[(236,125)(236,104)])
}
Add(dbMySQL_Query,6966168,315,231)
{
link(onError,13162702:doMessage,[])
link(dbHandle,30101:dbHandle,[(321,202)(349,202)])
link(QueryText,5437021:Text,[(328,212)(391,212)])
}

карма: 0

0
файлы: 1code_30815.txt [1.3KB] [91]
5
Сообщение
...
Прикрепленные файлы
(файлы не залиты)