以前用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)。谢啦!
'-----------------------------------
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)。谢啦!
数据库里没有表,请问一下SQL語句如何完成,有例子吗?
很快有 aiirii(ari-爱的眼睛) 回答.感谢!
// 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;
代码编译通过,应该没问题,
只不过执行的时候有一点其它问题,自己找一下原因。
感谢你帮助!刚学DELPHI,感觉用DELPHI的哥们还不错。