如何使用ado向tdbgrid中添加数据？

Question

万变不离其中，10条ADO语句走遍天下

Answer 1

谁能帮忙写出一个实例？我找不到在tdbgrid中可添加数据的事件或方法。

Answer 2

如果是绊定，则设置tdb的datasource=Adors
否则用Tdb的DataMode=Storage,用Xarray数组与tdb挂接
dim xarr as new xarrayadors.movelast
xarr.redim 0,Adors.recordcount-1,0,tdb.columns.count-1Adors.movefirst
i=0,j=0
while not Adors.eof
  for j=0 to tdb.columns.count-1
    xarr(i,j)=Adors(j)
  next j
  i=i+1
  Adors.moveNext
wendset tdb.array=xarr
tdb.rebind

Answer 3

我添加了xarray控件，但它不能添加到窗体中，dim xarr as xarray可以，但
dim xarr as new xarray出错。我使用的tdb 7.0 pro 有注册号。怎么能解决？？？？？