From 3e8ab6fc66f41be3b605c76e0c2a01762bdd3675 Mon Sep 17 00:00:00 2001 From: Antonio Linares Date: Thu, 10 May 2007 06:10:17 +0000 Subject: [PATCH] FoxPro support --- harbour/contrib/adordd/adordd.prg | 3 +++ 1 file changed, 3 insertions(+) diff --git a/harbour/contrib/adordd/adordd.prg b/harbour/contrib/adordd/adordd.prg index b165ef183b..30de5e786e 100644 --- a/harbour/contrib/adordd/adordd.prg +++ b/harbour/contrib/adordd/adordd.prg @@ -220,6 +220,9 @@ static function ADO_OPEN( nWA, aOpenInfo ) case Lower( Right( aOpenInfo[ UR_OI_NAME ], 4 ) ) == ".xls" s_aConnections[ nWA ]:Open( "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + aOpenInfo[ UR_OI_NAME ] + ";Extended Properties='Excel 8.0;HDR=YES';Persist Security Info=False" ) + case Lower( Right( aOpenInfo[ UR_OI_NAME ], 4 ) ) == ".dbf" + s_aConnections[ nWA ]:Open( "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + aOpenInfo[ UR_OI_NAME ] + ";Extended Properties=dBASE IV;User ID=Admin;Password=;" ) + case Lower( Right( aOpenInfo[ UR_OI_NAME ], 3 ) ) == ".db" s_aConnections[ nWA ]:Open( "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + aOpenInfo[ UR_OI_NAME ] + ";Extended Properties='Paradox 3.x';" )