🚀 go-pugleaf

Hi,

I am trying to connect to Excel97 with CBuilder4 pro. I read a tutorial
online that explains how to do it with Access, I got this working with
Access but not excel. I need to extract some data from an excel spread sheet
and then after interaction with the user I want to post their selection to a
new spreadsheet.

heres the code I borrowed and altered,

TCOM_Connection cn = CoConnection::Create();
cn->ConnectionString = WideString("DSN=Test_").Detach();//excell odbc
cn->CursorLocation = Adodb_tlb::adUseClient;
cn->ConnectionTimeout = 100;
cn->Open(0,0,0,0);
WideString sql = "SELECT DISTINCT CITY from [Sheet$1]" ;//excell
ListBox1->Items->Clear();
TCOM_Recordset rs = CoRecordset::Create();
rs->Open(sql.Detach(), (IDispatch *)cn, Adodb_tlb::adOpenDynamic,
Adodb_tlb::adLockOptimistic, 0);
do
{
   Field* p = rs->Fields_->get_Item(TVariant("CITY"));
   String s =  p->get_Value();
   ListBox1->Items->Add(s);
   rs->MoveNext();
}while(rs->EOF == false);
rs->Close();
rs->Release();
cn->Close();
cn->Release();

Cheers Shaun