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,[])
}