再来一个: ADO连接Excel或ACCESS使用ADOQuery控件, BDE连接的Paradox数据库使用Table或QUERY控件。 插入数据方法: 使用程序 1.Open ADOQuery; Open Table; ADOQuery.First; 2.while not ADOQuery.eof do begin Table.Append; Table.Field1.value:=ADOQuery.Field1.Value; 字段赋值 Table.Field1.value:=ADOQuery.Field1.Value; ... Table.Post; ADOQuery.Next end; 3.ADOQuery.Close; Table.Close;或者使用SQL语句 Insert into Paradox.name (Field1,Field2...) Value (Select Field1,Field2... from ADO.Name)
先用ODBC建立一个数据源,数据源指向*.的表,然后用TTABLE控件联上数据库,
再建立一个OleObject,然后用Append,Post把数据导入到EXCEL表。
实例:
var
MSExcel:Variant;//定义一个全程变量 MSExcel := CreateOleObject('Excel.Application');
MSExcel.WorkBooks.Open(Edit1.Text);//创建一个OleObject
Table.Active:=true;
Table.Append;
Table.FieldByName('字段名').Value:=MSExcel.Cells[rows_i,1].Value;
//上面一句可以根据字段的多少多次引用。
Table.Post;//实现导入
ADO连接Excel或ACCESS使用ADOQuery控件,
BDE连接的Paradox数据库使用Table或QUERY控件。
插入数据方法:
使用程序
1.Open ADOQuery;
Open Table;
ADOQuery.First;
2.while not ADOQuery.eof do
begin
Table.Append;
Table.Field1.value:=ADOQuery.Field1.Value; 字段赋值
Table.Field1.value:=ADOQuery.Field1.Value;
...
Table.Post;
ADOQuery.Next
end;
3.ADOQuery.Close;
Table.Close;或者使用SQL语句
Insert into Paradox.name (Field1,Field2...)
Value (Select Field1,Field2... from ADO.Name)
工作表中有多少行数据怎么判断呢?