D5, Paradox, DbiOpenTable
1 отговора
31 прегледа
D5, Paradox, DbiOpenTable
В кода по-долу DbiOpenTable (синьо) трябва да отвори таблица, но не го прави, а връща грешка "invalid file name" (проверката е с червено).
Моля, дайте съвет как да го оправя!
.. LoadDb.Connected := True;
.. { load tablenames }
.. Session.GetTableNames(FReadDatabase, '*.db*', True, False, StrList);
.. { clear descriptor }
.. FDesc.Clear;
.. { Load descriptor }
.. for I := 0 to StrList.Count - 1 do
.. begin
....if( CanReadFile(StrList)) then
....begin
.... { open table }
.... while( True )do
.... begin
......hRes := DbiOpenTable(LoadDb.Handle, PChar(StrList), nil,
.......................... nil, nil, 0, dbiREADONLY, dbiOPENSHARED, xltFIELD,
.......................... False, nil, hCur);
......if CheckOpen( hRes ) then
......begin
...... try
........SetTableDesc( hCur );
...... finally
........Check(DbiCloseCursor( hCur ));
........hCur := nil;
...... end;{ fin }
...... Break;
......end;{ if }
.... end;{ while }
....end;{ if }
.. end;{ for }
Моля, дайте съвет как да го оправя!
.. LoadDb.Connected := True;
.. { load tablenames }
.. Session.GetTableNames(FReadDatabase, '*.db*', True, False, StrList);
.. { clear descriptor }
.. FDesc.Clear;
.. { Load descriptor }
.. for I := 0 to StrList.Count - 1 do
.. begin
....if( CanReadFile(StrList)) then
....begin
.... { open table }
.... while( True )do
.... begin
......hRes := DbiOpenTable(LoadDb.Handle, PChar(StrList), nil,
.......................... nil, nil, 0, dbiREADONLY, dbiOPENSHARED, xltFIELD,
.......................... False, nil, hCur);
......if CheckOpen( hRes ) then
......begin
...... try
........SetTableDesc( hCur );
...... finally
........Check(DbiCloseCursor( hCur ));
........hCur := nil;
...... end;{ fin }
...... Break;
......end;{ if }
.... end;{ while }
....end;{ if }
.. end;{ for }