![]() |
#3 |
Участник
|
немного стало получаться
но есть проблема - если я удаляю или добавляю, то при закрытии курсора вылетает ошибка, но записи удаляются и добавляются (т.е. при модификации ошибка во время закрытия), а если прсто просматриваю, то нет ошибки при закрытии.
void clicked() { CCADOConnection cn = new CCADOConnection() ; CCADOCommand command = new CCADOCommand() ; CCADORecordset rs = new CCADORecordset() ; COM RecordSet ; str _str = "" ; str filename ; int pos ; FileNameFilter filter ; int i ; ; super(); filter = ['DBF files','*.dbf']; filename = Winapi::getOpenFileName(element.hWnd(),filter,'','', '',''); pos = StrScan(StrUpr(filename),"OB23",1,255); _str = SubStr(StrUpr(filename),1,pos-1); cn = new CCADOConnection(); cn.open("Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq="+_str+";"); command.activeConnection(cn); _str = "select * from "+SubStr(StrUpr(filename),pos,StrLen(StrUpr(filename))); command.commandText(_str); if (cn) { rs = command.execute(); _str = "delete from "+SubStr(StrUpr(filename),pos,StrLen(StrUpr(filename))); command.commandText(_str); rs = command.execute(); i = 0; while (i < 10) { _str = "insert into "+SubStr(StrUpr(filename),pos,StrLen(StrUpr(filename)))+" (pach) values ("+int2str(i)+")"; command.commandText(_str); rs = command.execute(); i++; } rs.close(); } } |
|
|
![]() |
||||
Тема | Ответов | |||
Экспорт в DBF количество символов. | 1 | |||
почти DBF | 3 | |||
Как создать DBF...? | 11 | |||
Импорт из DBF : кириллица | 8 | |||
Достать данные из DBF в форму | 29 |
|