Środowisko BDS 2006 + DbGo (ADO)

Mam pliki XLS, które otwieram i wyświetlan na ekranie w siatce DBGrid.
Do tego zadania używam dbGo (ADO) i komponentów połączonych w kolejkę:
TADOConnection -> TADoDataSet -> TADODataSource -> TDBGrid.
Większośc plików optwiera się i wyświetla bez problemów, jednak w jednym pliku
napotkałem na problem. Plik ma kolumnę NR, w której ktoś wpisał część
danych jako cyfry a część jako tekst (tak podejrzewam).

lp nr
1 310913
2 310920
3 '210113
4 '210127

W efekcie cele (komórki) ktore są tekstem wyświetlają mi się puste.
Czy istnieje jakiś sposób na to aby nadać programowo każdej komórce np. typ
tekstowy?

Próbowałem np:
nr := Trim(DM.ADODataSet.FieldByName('nr').AsString);
oraz
nr := '''' + Trim(DM.ADODataSet.FieldByName('nr').AsString);
oraz
pole := DM.ADODataSet.FieldByName('nr').AsVariant;
ale nie daje to oczekiwanego efektu.

W formie testu dodałem kolumne i wprowadziłem wszystkie wartości jako tekst,
taka kolumna wyświetla się prawidłowo (generalnie to jest wartość typu tekst,
tylko wygląda na cyfrę).


Proszę o pomoc.

Pozdrawiam


--

mwgomez napisał:

> Środowisko BDS 2006 + DbGo (ADO)
>
> Mam pliki XLS, które otwieram i wyświetlan na ekranie w siatce DBGrid.
> Do tego zadania używam dbGo (ADO) i komponentów połączonych w kolejkę:
> TADOConnection -> TADoDataSet -> TADODataSource -> TDBGrid.
> Większośc plików optwiera się i wyświetla bez problemów, jednak w jednym pliku
> napotkałem na problem. Plik ma kolumnę NR, w której ktoś wpisał część
> danych jako cyfry a część jako tekst (tak podejrzewam).
>
> lp nr
> 1 310913
> 2 310920
> 3 '210113
> 4 '210127
>
> W efekcie cele (komórki) ktore są tekstem wyświetlają mi się puste.
> Czy istnieje jakiś sposób na to aby nadać programowo każdej komórce np. typ
> tekstowy?

How To Use ADO with Excel Data from Visual Basic or VBA
http://support.microsoft.com/default.aspx?scid=kb;en-us;257819


To nie Twoje środowisko ale powinieneś tam znaleźć odpowiedź. Słowo
klucz to 'IMEX'.


Pozdrawiam,
--
Hubert Arkadiusz Dołęga

Zanim napiszesz na priva zdejmij majtki-.