以前用VB,JAVA现转到DELPHI 7
'-----------------------------------
VB里动态创建一个记录集是:
    Dim rs As New ADODB.Recordset
    
    '增加的栏位
    rs.Fields.Append "column1", adVarChar, 20, adFldUpdatable
    rs.Fields.Append "column2", adInteger, 20, adFldUpdatable
    
    '打开记录集
    rs.Open
'-----------------------------------Delphi里的ADODateSet 对应的是ADODB.Recordset
请问在Delphi实现上面的功能(无数据源动态创建ADODataSet)。谢啦!

解决方案 »

  1.   

    一般直接用SQL語句來完成比較簡單
      

  2.   

    To  aiirii(ari-爱的眼睛):
    数据库里没有表,请问一下SQL語句如何完成,有例子吗?
      

  3.   

    第一次在DELPHI版发问。
    很快有 aiirii(ari-爱的眼睛) 回答.感谢!
      

  4.   

    You can do it like this:
    // uses ADOInt;
    procedure TForm1.Button1Click(Sender: TObject);
    var
      ADODataSet1: TADODataSet;
    begin
      ADODataSet1 := TADODataSet.Create(nil);
      try
        with ADODataSet1.Recordset do
        begin
          Fields.Append('column1', adVarChar, 20, adFldUpdatable);
          Fields.Append('column2', adInteger, 20, adFldUpdatable);
        end;
      finally
        ADODataSet1.Free; 
      end;
    end;
      

  5.   

    To qiume(杜克[在Coder和Designer之间徘徊]) :
    代码编译通过,应该没问题,
    只不过执行的时候有一点其它问题,自己找一下原因。
    感谢你帮助!刚学DELPHI,感觉用DELPHI的哥们还不错。