Make(delphi)
ver(4.04 build 185)
Add(MainForm,2953706,56,175)
{
link(onCreate,4595292:doEvent1,[])
}
Add(OLEdb,2142462,242,245)
{
Driver="Driver={Microsoft Paradox Driver (*.db )};\r\nDriverId=538;FIL=Paradox 5.X;\r\nDefaultDir=C:\Hosp;\r\nParadoxNetPath=C:\Hosp;\r\nParadoxNetStyle=4.x;\r\nParadoxUserName=admin;\r\nPageTimeout=600;"
Point(onError)
link(onConnect,14252000:doCreate,[])
link(Driver,5435641:Var,[])
}
Add(OLEdb_Query,11136757,476,273)
{
Text="\r\n\r\n"
link(onQuery,10290878:doAddRow,[])
link(onColumns,10290878:doAddCols,[])
link(Text,1506974:Text,[])
}
Add(OLEdb_Session,14252000,288,245)
{
Point(onError)
link(onCreate,14897651:doEvent1,[])
link(dbHandle,2142462:dbHandle,[(294,233)(271,233)(271,289)(248,289)])
}
Add(DoData,6765452,151,196)
{
link(onEventData,4773895:doReplace,[])
link(Data,13291680:Text,[])
}
Add(Replace,4773895,193,196)
{
SubStr="***"
link(onReplace,5435641:doValue,[])
link(Dest,6602387:Var,[])
}
Add(GlobalVar,6602387,207,168)
{
Name="path"
Data=String()
}
Add(GlobalVar,5435641,242,196)
{
Name="CSDBase"
}
Add(StrList,13291680,151,140)
{
Strings=#33:Provider=Microsoft.Jet.OLEDB.4.0;|16:Data Source=***;|29:Extended Properties=dBASE IV;|24:User ID=Admin;Password=;|0:|
}
Add(Application,12333461,151,49)
{
}
Add(FilePartElm,7879668,151,98)
{
Mode=0
link(onPart,11280931:doValue,[])
link(FileName,12333461:AppFileName,[])
}
Add(GlobalVar,11280931,200,98)
{
Name="path"
Data=String()
}
Add(Hub,4595292,105,189)
{
OutCount=3
link(onEvent1,7879668:doPart,[(135,195)(135,104)])
link(onEvent2,6765452:doData,[])
link(onEvent3,2142462:doOpen,[(135,209)(135,251)])
}
Add(StrList,1506974,483,196)
{
Strings=#63:SELECT * FROM D:\\alter\\111111.DBF where mfo_k not like 851011|0:|
}
Add(MTStrTbl,2217219,575,273)
{
Left=7
Top=47
Width=427
Height=285
Align=5
TabOrder=1
Name="MST"
Layout="lll"
DoubleBuffered=0
Point(doVisible)
Point(doBringToFront)
Point(doFont)
}
Add(MST_DB,10290878,526,273)
{
MSTControl="MST"
Point(doClearAll)
}
Add(Hub,14897651,357,245)
{
link(onEvent1,7069330:doExec,[])
link(onEvent2,11136757:doQuery,[(389,258)(389,279)])
}
Add(OLEdb_Query,7069330,392,238)
{
Text="\r\n\r\n"
link(onError,2230939:doMessage,[(432,258)(432,244)])
link(dbSession,14252000:dbSession,[(398,226)(346,226)(346,289)(294,289)])
link(Text,1509744:Text,[])
}
Add(StrList,1509744,399,161)
{
Strings=#51:ALTER TABLE "D:\\alter\\111111.DBF" ADD Email date;|0:|
}
Add(Message,2230939,441,238)
{
}
Этот топик читают: Гость
Ответов: 8
Рейтинг: 0
|
|||
Не работает doExec.
|
|||
карма: 0 |
|
Ответов: 770
Рейтинг: 167
|
|||
zol, Из твоей схемы убрал всё лишнее и добавил тестовую базу. Всё прекрасно работает.
https://forum.hiasm.com/getfile/39599 Проверено на - Windows 10 (x64) - Hiasm v4.05 build 186 (delphi) Редактировалось 3 раз(а), последний 2023-04-22 19:44:40 |
|||
карма: 15 |
|
Ответов: 770
Рейтинг: 167
|
|||
|
|||
карма: 15 |
| ||
файлы: 1 | Test dBASE IV.zip [2.4KB] [234] |
Ответов: 8
Рейтинг: 0
|
|||
Спасибо за INSERT INTO [PHONE] (кстати не знал про использование [] вместо кавычек). SELECT работал всегда. А, вот ALTER TABLE [PHONE] ADD Email date; или ALTER TABLE "PHONE" ADD Email date; к великому сожалению не работает (возникает ошибка -2147467259 ) даже в этой схеме. возможно, я не знаю всех нюансов данной SQL-версии.
|
|||
карма: 0 |
|
Ответов: 770
Рейтинг: 167
|
|||
zol писал(а): к великому сожалению не работает (возникает ошибка -2147467259 ) даже в этой схеме. возможно, я не знаю всех нюансов данной SQL-версии.Note The Microsoft Jet database engine does not support the use of ALTER TABLE, or any of the data definition language (DDL) statements, with non-Microsoft Jet databases. Use the DAO Create methods instead. Так что, только так. (Удалять таблицу, создавать заново, заполнять данными)
Проверено на - Windows 10 (x64) - Hiasm v4.05 build 186 (delphi) |
|||
карма: 15 |
| ||
Голосовали: | zol |
Ответов: 8
Рейтинг: 0
|
|||
Большое спасибо за информацию. Подскажи, пожалуйста, где можно прочитать обобщенную информацию по работе с The Microsoft Jet database engine. Есть ли в этом engine возможность прочитать список полей с их размерами?
|
|||
карма: 0 |
|
Ответов: 770
Рейтинг: 167
|
|||
zol писал(а): Подскажи, пожалуйста, где можно прочитать обобщенную информацию по работе с The Microsoft Jet database engine.Частично здесь - https://learn.microsoft.com/ru-ru/sql/ado/guide/appendixes/microsoft-ole-db-provider-for-microsoft-jet?view=sql-server-ver16 И здесь - https://www.dbase.com/support/knowledgebase2019/ zol писал(а): Есть ли в этом engine возможность прочитать список полей с их размерами?Сделал пример подключения к базе dBASE с помощью компонента ODBC. Также вывел список названий полей и их тип. https://forum.hiasm.com/getfile/39601 |
|||
карма: 15 |
| ||
файлы: 1 | Test dBASE IV 3.zip [2.5KB] [274] |
Ответов: 8
Рейтинг: 0
|
|||
[/img] --- Добавлено в 2023-04-23 20:30:15 Версия Hiasm v4.04 build 185 (delphi) Редактировалось 1 раз(а), последний 2023-04-23 20:30:15 |
|||
карма: 0 |
|
Ответов: 770
Рейтинг: 167
|
|||
zol писал(а): Один элемент в схеме у меня отсутствует.Это стандартный элемент - MultiBlockFind: Множественный цепочный поиск. Обнови все элементы. Последняя ревизия – 2404 |
|||
карма: 15 |
|
Ответов: 8
Рейтинг: 0
|
|||
Обновил, получил результат. С типом и размером не совсем понял.
> |
|||
карма: 0 |
|
Ответов: 770
Рейтинг: 167
|
|||
zol писал(а): С типом и размером не совсем понял.Это потому, что таблица создана с такими типами полей
типы полей БД.PNG Посмотрел формат файла dBase https://en.wikipedia.org/wiki/.dbf http://www.independent-software.com/dbase-dbf-dbt-file-format.html https://www.dbase.com/Knowledgebase/INT/db7_file_fmt.htm Во всех файлах DBF что есть у меня везде Field length = 0 Если ты пришлёшь свою таблицу буду экспериментировать с ней. |
|||
карма: 15 |
|
Ответов: 8
Рейтинг: 0
|
|||
Спасибо большое. Посмотрю ссылки.Пока решил вопрос в Delphi.
Beg - смещение для размера. |
|||
карма: 0 |
|
Ответов: 770
Рейтинг: 167
|
|||
Пример как можно прочитать название полей, их тип и размер напрямую из файла DBF.
Редактировалось 1 раз(а), последний 2023-04-24 16:00:50 |
|||
карма: 15 |
|
Ответов: 8
Рейтинг: 0
|
|||
Добрый вечерю Снова проблемы, теперь с DataToFileEx. HIASM v4.05 build 186 (delphi) обновляться не хочет
> подскажи, пожалуйста, что делать? --- Добавлено в 2023-04-24 21:16:02 По этой ссылке не качает. http://svn.hiasm.com/packs/delphi/icon/ Редактировалось 1 раз(а), последний 2023-04-24 21:16:02 |
|||
карма: 0 |
|
Ответов: 300
Рейтинг: 26
|
|||
карма: 2 |
| ||
Голосовали: | zol |