请问怎样把数据库中的数据显示到cell中

[woodheadhn]

我用BCB6
// Cell1->OpenDatabase(WideString("Provider=SQLOLEDB.1;Password=xysqlserver;Persist Security Info=True;User ID=sa;Initial Catalog=xyin;Data Source=WIN2K"));
// Cell1->OpenRowset(WideString("select * from subs"),2,0);
Cell1->RSDefDBSet(WideString("DB"),WideString("Provider=SQLOLEDB.1;Password=xysqlserver;Persist Security Info=True;User ID=sa;Initial Catalog=xyin;Data Source=WIN2K"),WideString("select * from subs"));
Cell1->RSLinkSet(1,1,0,Cell1->RSGetSetIndex(WideString("DB")),1,10,10,3);
这样无法把数据显示在cell中,我该怎样做?
另外，试用版能用多少天？

[woodheadhn]

谢谢msha() ,
你的代码倒是通过了，只是CELL调数据库有这么麻烦吗？比DBGRID还麻烦！
OpenDatabase
OpenRowset
RSDefDBSet
RSLinkSet
帮助上说这些函数可以，就不知怎么用

[lihuihit]

哈哈
不要用CELL提供的数据库连接方法

使用ADO来连接巴

[woodheadhn]

连这个问题都没人知道？

[msha]

下面是delphi的例子
col1:=1;
row1:=1;
//ÔÚµÚÒ»ÐРд×Ö¶ÎÃû
for i:=0 to adodataset1.FieldCount-1 do
begin
cell1.SetCellString(col1+i,row1,0,adoDataSet1.Fields[i].FieldName) ;
end;

for j:=0 to adodataset1.RecordCount-1 do
begin
for i:=0 to adodataset1.FieldCount-1 do
begin
cell1.SetCellString(col1+i,row1+j+1,0,adodataset1.Fields[i].Value) ;
end;
adodataset1.Next ;
end;

[lihuihit]

帮助文档里面是说可以

[Cell]

CELL中不提供数据库连接的方法，也不提供绑定。

[woodheadhn]

cell的帮助说可以的，这是它VBdemo代码片断，但我在BCB中就是不通，谁能用delphi做成也好！
'定义数据库记录集，后两个参数为字符串表达式要加引号。
FrmMain.Cell1.RSDefDBSet Text4.text, Chr(34) & Text5.text & Chr(34), Chr(34) & Text6.text & Chr(34)
MsgBox "数据库记录集连接成功！"

'获得记录集的索引号
If FrmMain.Cell1.RSGetSetIndex(Combo1.text) = -1 Then
MsgBox "记录集名称错误" '连接记录集
Else: FrmMain.Cell1.RSLinkSet CLng(Text1.text), CLng(Text2.text), CLng(Text6.text), FrmMain.Cell1.RSGetSetIndex(Combo1.text), 2, CLng(Text3.text), CLng(Text4.text), optiontype
FrmMain.Cell1.ReDraw