Автор | Сообщение |
|
| постоянный участник
|
Пост N: 985
Зарегистрирован: 12.09.06
|
|
Отправлено: 03.12.09 17:42. Заголовок: Как в MiniGui писать в БД ?
Всем привет ! Что-то я совсем заработался.... Не получается даже простая запись в БД.... База получается из 200 заданных ПУСТЫХ записей... Вот текст Скрытый текст LOCAL ........ bErrHandler := ErrorBlock( { | VAR | BREAK( VAR ) } ) BEGIN SEQUENCE USE ( cFileDbf ) Alias DBFBASE NEW EXCLUSIVE lOpenDbf := .T. RECOVER MsgStop( "Ошибка ! БАЗА " + HB_ANSITOOEM( cFileDbf ) + " уже открыта !", "Ошибка" ) lOpenDbf := .F. END SEQUENCE ErrorBlock( bErrHandler ) //......................... // ......................... // Если База и Ексел открыты без ошибок IF lOpenDbf .AND. lOpenXls FOR nI := 2 TO nLenRecnoXls cTemp := "" xTemp1 := oSheet:Cells(nI, 1):Value cTemp += Str(nI)+",1 - "+ValType(xTemp1)+ " = " + xTemp1 + CLRF xTemp2 := oSheet:Cells(nI, 2):Value cTemp += Str(nI)+",2 - "+ValType(xTemp2)+ " = " + xTemp2 + CLRF xTemp3 := oSheet:Cells(nI, 3):Value xTemp3 := AllTrim( Str(Int(xTemp3))) cTemp += Str(nI)+",3 - "+ValType(xTemp3)+ " = " + xTemp3 + CLRF xTemp4 := oSheet:Cells(nI, 4):Value cTemp += Str(nI)+",4 - "+ValType(xTemp4)+ " = " + Str(xTemp4) + CLRF xTemp5 := oSheet:Cells(nI, 5):Value cTemp += Str(nI)+",5 - "+ValType(xTemp5)+ " = " + Str(xTemp5) + CLRF MsgInfo( cTemp,"Инфо" ) Select DBFBASE APPEND BLANK Field->USLUGA := xTemp1 //"C", 10,0 Field->ADRES := xTemp2 //"C", 40,0 Field->LC := "00"+xTemp3 //"C", 8,0 Field->SUMMA := xTemp4 //"N", 10,2 Field->BALANS := xTemp5 //"N", 10,2 NEXT ENDIF
| Т.е. APPEND BLANK работает нормально, а значения не записываются в поля... Прмогите, кто знает....
|
|
|
Ответов - 8
[только новые]
|
|
|
| |
Пост N: 1332
Зарегистрирован: 17.05.05
|
|
Отправлено: 03.12.09 17:50. Заголовок: Andrey пишет: Field..
Andrey пишет: цитата: | Field->USLUGA := xTemp1 //"C", 10,0 |
| Вероятно так DBFBASE->USLUGA := xTemp1 или так repl DBFBASE->USLUGA with xTemp1 или так Field USLUGA USLUGA := xTemp1
|
|
|
|
| постоянный участник
|
Пост N: 986
Зарегистрирован: 12.09.06
|
|
Отправлено: 03.12.09 18:05. Заголовок: Dima пишет: Вероятн..
Dima пишет: цитата: | Вероятно так DBFBASE->USLUGA := xTemp1 |
| Блин, заработало ! Но непонятно, почему же не работает в МиниГуи FIELD->USLUGA := xTemp1 ??? Облом на пустом месте....
|
|
|
|
| модератор
|
Пост N: 1117
Зарегистрирован: 25.05.05
|
|
Отправлено: 03.12.09 18:42. Заголовок: Andrey пишет: непон..
Andrey пишет: цитата: | непонятно, почему же не работает в МиниГуи FIELD->USLUGA := xTemp1 ??? |
| Хе-хе... МиниГуи здесь ни при чем - так работает сейчас Харбор
|
|
|
|
| Администратор
|
Пост N: 1264
Зарегистрирован: 23.05.05
|
|
Отправлено: 03.12.09 23:49. Заголовок: gfilatov пишет: And..
gfilatov пишет: цитата: | Andrey пишет: цитата: непонятно, почему же не работает в МиниГуи FIELD->USLUGA := xTemp1 ??? Хе-хе... МиниГуи здесь ни при чем - так работает сейчас Харбор |
| А что случилось со стариной харбором с и каких пор возникла такая фича ?
|
|
|
|
| модератор
|
Пост N: 1118
Зарегистрирован: 25.05.05
|
|
Отправлено: 04.12.09 00:37. Заголовок: Pasha пишет: с каки..
Pasha пишет: цитата: | с каких пор возникла такая фича ? |
| Да года два уже будет - с тех пор, как Пржемек основательно почистил ядро Харбора
|
|
|
|
| постоянный участник
|
Пост N: 128
Зарегистрирован: 06.02.07
|
|
Отправлено: 04.12.09 08:09. Заголовок: Да... Тоже как-то ча..
Да... Тоже как-то часа 3 убил на таком же месте ("ведь раньше ж писало?!..") :)
|
|
|
|
| Администратор
|
Пост N: 1266
Зарегистрирован: 23.05.05
|
|
Отправлено: 04.12.09 09:19. Заголовок: А в чем дело ? В как..
А в чем дело ? В каких случаях не работает присваивание ? Это только для Harbour ? Я сейчас проверил для Harbour сборка июнь 2009 dbAppend() Field->T1 := 1 dbAppend() .. и присваивание сработало В xHarbour и проверять нечего, работает
|
|
|
|
| постоянный участник
|
Пост N: 988
Зарегистрирован: 12.09.06
|
|
Отправлено: 04.12.09 11:53. Заголовок: Harbour MiniGUI 1.7 ..
Harbour MiniGUI 1.7 Extended Edition (Build 71) - 2009.07.30 Ваш пример может и сработает, но мой нет. Не знаю из-за чего..... или Ole-Xls виновато или еще-чего нибудь.... не знаю... Просто как дурак бился над записью, ведь я даже предположить не мог такого....
|
|
|
|