..HiAsmElementsDelphiExampleDataBaseODBC_Access.sha
------------ Дoбавленo в 21.39:
Почитайте на русском чтобы понятней стало: http://www.askit.ru/custom/progr_admin/m13/13_02_ado_connection.htm
------------ Дoбавленo в 21.44:
Вот так у меня подключается:
Add(MainForm,2953706,21,105)
{
Width=577
Height=343
}
Add(OLEdb,7011127,210,119)
{
Point(onError)
link(onConnect,15010175:doCreate,[(371,125)(371,167)(317,167)(317,181)])
link(Driver,2009463:Text,[])
link(onError,6783685:doWork2,[])
}
Add(Button,2401723,161,119)
{
Left=395
Top=70
Width=165
link(onClick,7011127:doOpen,[])
}
Add(Edit,2009463,210,70)
{
Left=5
Top=15
Width=555
Text="Provider=SQLOLEDB;SERVER=127.0.0.1;UID=user;PWD=*****;DATABASE=DBName;"
}
Add(Message,6753516,441,105)
{
}
Add(OLEdb_Query,13534015,329,224)
{
link(onQuery,16321824:doStr,[])
link(onColumns,5673081:doEnum,[(369,237)(369,272)])
link(dbSession,15010175:dbSession,[])
link(Text,10579844:Text,[(342,218)(395,218)])
}
Add(OLEdb_Session,15010175,329,175)
{
Point(onError)
link(onCreate,13534015:doQuery,[(371,181)(371,213)(321,213)(321,230)])
link(dbHandle,7011127:dbHandle,[(335,163)(216,163)])
link(onError,6783685:doWork3,[(382,188)])
}
Add(HubEx,6783685,378,126)
{
link(onEvent,6753516:doMessage,[(412,132)(412,111)])
}
Add(StringTable,6078793,441,231)
{
Left=10
Top=70
Width=375
Height=225
Point(doAddColumn)
}
Add(MT_Enum,5673081,378,266)
{
link(onItem,6078793:doAddColumn,[])
}
Add(MT_String,16321824,378,224)
{
link(onResult,6078793:doAdd,[(426,230)(426,237)])
}
Add(Edit,10579844,389,179)
{
Left=5
Top=40
Width=555
Text="SELECT * FROM TableName"
}