Hi,
There are the errors with functions DbCreate()/DbUseArea() at Win98SE:
DbCreate(): DBFNTX/1011 Write error: Test.dbf (DOS Error 87)
DbUseArea(): DBFNTX/1012 Corruption detected: test.dbf (DOS Error 87)
in the following small sample:
#include "Dbstruct.ch"
Function Main()
if !file("test.dbf")
CreateTable()
endif
USE test
Browse()
USE
Return nil
Procedure CreateTable
LOCAL aDbf[6][4]
aDbf[1][ DBS_NAME ] := "Code"
aDbf[1][ DBS_TYPE ] := "Numeric"
aDbf[1][ DBS_LEN ] := 10
aDbf[1][ DBS_DEC ] := 0
//
aDbf[2][ DBS_NAME ] := "First"
aDbf[2][ DBS_TYPE ] := "Character"
aDbf[2][ DBS_LEN ] := 25
aDbf[2][ DBS_DEC ] := 0
//
aDbf[3][ DBS_NAME ] := "Last"
aDbf[3][ DBS_TYPE ] := "Character"
aDbf[3][ DBS_LEN ] := 25
aDbf[3][ DBS_DEC ] := 0
//
aDbf[4][ DBS_NAME ] := "Married"
aDbf[4][ DBS_TYPE ] := "Logical"
aDbf[4][ DBS_LEN ] := 1
aDbf[4][ DBS_DEC ] := 0
//
aDbf[5][ DBS_NAME ] := "Birth"
aDbf[5][ DBS_TYPE ] := "Date"
aDbf[5][ DBS_LEN ] := 8
aDbf[5][ DBS_DEC ] := 0
//
aDbf[6][ DBS_NAME ] := "Bio"
aDbf[6][ DBS_TYPE ] := "Memo"
aDbf[6][ DBS_LEN ] := 10
aDbf[6][ DBS_DEC ] := 0
//
DBCREATE("Test", aDbf)
Use test
For i:= 1 To 100
append blank
Replace code with i
Replace First With 'First Name '+ Str(i)
Replace Last With 'Last Name '+ Str(i)
Replace Married With .t.
replace birth with date()+i-10000
Next i
Use
Return
This sample works properly with Harbour 1.0.1 at Win98/XP and
Harbour 1.1.0 at WinXP Home SP1/WinXP Pro SP2.
Harbour Build Info
---------------------------
Version: Harbour 1.1.0dev (Rev. 9584)
PCode version: 0.2
Compiler: Borland C++ 5.5.1 (32 bit)
Platform: Windows 98 4.10.2222 A
Built on: Oct 9 2008 12:38:51
Last ChangeLog entry: 2008-10-09 10:11 UTC+0200 Viktor Szakats (harbour.01
syenar hu)
ChangeLog SVN version: ChangeLog 9584 2008-10-09 08:12:06Z vszakats
Extra Harbour compiler switches: -l
Extra C compiler switches: -DHB_FM_STATISTICS_OFF -DHB_GUI -DHB_FM_STD_ALLOC
Can someone confirm these issues with Harbour 1.1.0dev at Win98?
--
Regards,
Grigory Filatov
--
View this message in context:
http://www.nabble.com/DbCreate%28%29-DbUseArea%28%29-bug-in-1.1-at-Win98SE-tp19916619p19916619.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
