fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

FoxPro support

Browse Source
This commit is contained in:
Antonio Linares
2007-05-10 06:10:17 +00:00
parent e3e5468907
commit 3e8ab6fc66
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
harbour/contrib/adordd/adordd.prg
View File

@@ -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';" )