Web Development

18-Jun-12 18:16

Hi, I have a problem, I don't know how to convert .dbf in FoxPro to MySql using PHP. Who can help me? Smile | :)

enhzflep18-Jun-12 18:58

18-Jun-12 18:58

Gday, I dunno how to do it either.

But Google does! Entering your thread title (only) yielded 84,000 results. Presumably one of the first 10 will suffice?

Here you go: from+.dbf+FoxPro+to+MySql[^]

Susy Nainggolan18-Jun-12 21:00

18-Jun-12 21:00

hehehe..Thanx for your attention before Sir.
I know Sir, I have done it before..
but my code is not give solution..
It can't open the .dbf file..
it's error said that lenght parameter must be greater than 0.
what happen with it?

Thanx before.. Smile | Smile | :)

enhzflep18-Jun-12 21:18

18-Jun-12 21:18

A sense of humour and polite. Nice! Thumbs Up | :thumbsup:

That's enough to get continued effort form me right now.

I don't know "what happen with it?"

Can you show the line of code that fails?

Susy Nainggolan18-Jun-12 22:42

18-Jun-12 22:42

heheheh..thanx Sir..
this is the code Sir..
I don't know where is the wrong code,
because I think it's already right n it have used by another person n when I just try I can't..

sorry if u feel bothered.. Smile | :)

PHP

<?php

class dbf_class {

var $dbf_num_rec; //Number of records in the file
var $dbf_num_field; //Number of columns in each row
var $dbf_names = array(); //Information on each column ['name'],['len'],['type']
//These are private....
var $_raw; //The raw input file
var $_rowsize; //Length of each row
var $_hdrsize; //Length of the header information (offset to 1st record)
var $_memos; //The raw memo file (if there is one).

function dbf_class($filename) {
if (!file_exists($filename)) {
echo "<script>alert('Masukkan data DBF')</script>";
} else {
$handle = fopen($filename, "r");
}
if (!$handle) {
echo "Cannot read DBF file";
}
$filesize = filesize($filename);
$this->_raw = fread($handle, $filesize);
fclose($handle);
//Make sure that we indeed have a dbf file...
// if(!(ord($this->_raw[0]) == 3 || ord($this->_raw[0]) == 131) && ord($this->_raw[$filesize]) != 26) {
// echo 'ukurun tidak tepat !!!'; exit;
// }
// 3= file without DBT memo file; 131 ($83)= file with a DBT.
$arrHeaderHex = array();
for ($i = 0; $i < 32; $i++) {
$arrHeaderHex[$i] = str_pad(dechex(ord($this->_raw[$i])), 2, "0", STR_PAD_LEFT);
}
//Initial information
$line = 32; //Header Size
//Number of records
$this->dbf_num_rec = hexdec($arrHeaderHex[7] . $arrHeaderHex[6] . $arrHeaderHex[5] . $arrHeaderHex[4]);
$this->_hdrsize = hexdec($arrHeaderHex[9] . $arrHeaderHex[8]); //Header Size+Field Descriptor
//Number of fields
$this->_rowsize = hexdec($arrHeaderHex[11] . $arrHeaderHex[10]);
$this->dbf_num_field = floor(($this->_hdrsize - $line ) / $line); //Number of Fields
//Field properties retrieval looping
for ($j = 0; $j < $this->dbf_num_field; $j++) {
$name = '';
$beg = $j * $line + $line;
for ($k = $beg; $k < $beg + 11; $k++) {
if (ord($this->_raw[$k]) != 0) {
$name .= $this->_raw[$k];
}
}
$this->dbf_names[$j]['name'] = $name; //Name of the Field
$this->dbf_names[$j]['len'] = ord($this->_raw[$beg + 16]); //Length of the field
$this->dbf_names[$j]['type'] = $this->_raw[$beg + 11];
}
if (ord($this->_raw[0]) == 131) { //See if this has a memo file with it...
//Read the File
$tail = substr($tail, -1, 1); //Get the last character...
if ($tail == 'F') { //See if upper or lower case
$tail = 'T'; //Keep the case the same
} else {
$tail = 't';
}
$memoname = substr($filename, 0, strlen($filename) - 1) . $tail;
$handle = fopen($memoname, "r");
if (!$handle) {
echo "Cannot read DBT file";
exit;
}
$filesize = filesize($memoname);
$this->_memos = fread($handle, $filesize);
fclose($handle);
}
}

function getRow($recnum) {
$memoeot = chr(26) . chr(26);
$rawrow = substr($this->_raw, $recnum * $this->_rowsize + $this->_hdrsize, $this->_rowsize);
$rowrecs = array();
$beg = 1;
if (ord($rawrow[0]) == 42) {
return false; //Record is deleted
}
for ($i = 0; $i < $this->dbf_num_field; $i++) {
$col = trim(substr($rawrow, $beg, $this->dbf_names[$i]['len']));
if ($this->dbf_names[$i]['type'] != 'M') {
$rowrecs[] = $col;
} else {
$memobeg = $col * 512; //Find start of the memo block (0=header so it works)
$memoend = strpos($this->_memos, $memoeot, $memobeg); //Find the end of the memo
$rowrecs[] = substr($this->_memos, $memobeg, $memoend - $memobeg);
}$beg+=$this->dbf_names[$i]['len'];
}
return $rowrecs;
}

function getRowAssoc($recnum) {
$rawrow = substr($this->_raw, $recnum * $this->_rowsize + $this->_hdrsize, $this->_rowsize);
$rowrecs = array();
$beg = 1;
if (ord($rawrow[0]) == 42) {
return false; //Record is deleted...
}
for ($i = 0; $i < $this->dbf_num_field; $i++) {
$col = trim(substr($rawrow, $beg, $this->dbf_names[$i]['len']));
if ($this->dbf_names[$i]['type'] != 'M') {
$rowrecs[$this->dbf_names[$i]['name']] = $col;
} else {
$memobeg = $col * 512; //Find start of the memo block (0=header so it works)
$memoend = strpos($this->_memos, $memoeot, $memobeg); //Find the end of the memo
$rowrecs[$this->dbf_names[$i]['name']] = substr($this->_memos, $memobeg, $memoend - $memobeg);
}
$beg+=$this->dbf_names[$i]['len'];
}
return $rowrecs;
}

}

?>

enhzflep18-Jun-12 23:37

18-Jun-12 23:37

Hmmm. Okay - that was actually the class I was going to recommend you use.

Now then, the text "length" appears in that document 3 times - each of these are in the comments.

I also see that it doesn't include any other php files, so I can only deduce that the error message is coming from MySql itself. Its very difficult to tell, since you didn't copy/paste the exact error message. (I doubt the error message is going to spell 'length' as 'lenght' Poke tongue | ;-P

)

This makes me consider the possibility that there is in fact, nothing wrong with this code, and that the problem lies in the database structure.

Another alternative is that (& I don't know) perhaps the FoxPro database has a field with NULL in it and you're trying to insert that, but since there's no value, an empty parameter is being passed to mysql, rather than a zero or NULL value..

However, since the code has been around for so long, (at least since 2004) it seems unlikely that it still has an error.

I see that you've made this modification:

PHP

if (!file_exists($filename)) {
echo "<script>alert('Masukkan data DBF')</script>";
}

In the original code, there is an exit statement in that block, so that execution wont continue if there's a problem. In your case, it does! (continue if there's a problem)
I'd change that quick-smart!

PHP

if (!file_exists($filename)) 
{
        echo 'Masukkan data DBF'"
        exit;
}

I suggest that you add some more printf/echo statements to the class to let you know when execution passes certain arbitrary points. A good first location would be after the file has been read and then closed.

At least then you can know where processing gets to before failure - this lets you know which data is being processed at this point and dismiss or confirm that it's the data.

But in any case, often a quick way is to add more echo statements so you know where execution fails.

Good luck. Thumbs Up | :thumbsup:

Susy Nainggolan18-Jun-12 23:46

18-Jun-12 23:46

thanx sir..
Sir, finally this is the error when I browse the file .DBF...

A PHP Error was encountered
Severity: Warning
Message: fopen(DRBS.DBF) [function.fopen]: failed to open stream: No such file or directory
Filename: models/dbf_class.php
Line Number: 18

Cannot read DBF file
A PHP Error was encountered
Severity: Warning
Message: filesize() [function.filesize]: stat failed for DRBS.DBF
Filename: models/dbf_class.php
Line Number: 22

A PHP Error was encountered
Severity: Warning
Message: fread() expects parameter 1 to be resource, boolean given
Filename: models/dbf_class.php
Line Number: 23

A PHP Error was encountered
Severity: Warning
Message: fclose() expects parameter 1 to be resource, boolean given
Filename: models/dbf_class.php
Line Number: 24

enhzflep18-Jun-12 23:57