窗口上放个Midas页上的ClientDataSet控件,设属性: ClientDataSet1.FileName= E:\Borland\Common Files\Borland Shared\Data\country.xml ClientDataSet1.Active = true ---------- 放个DataSource1,DBGrid1 DataSource1。DataSet= ClientDataSet1; DBGrid1.DataSource1 = DataSource1;DBGrid里看到数据了吧? 那就写段程序类似于 with ClientDataSet1 do begin First; while not eof do begin Table1.FilelByname('??').AsString:= FieldByName('??').AsString; ... Next; end; end; 就OK。:) //Table1要连你要导入的数据库(当然你自己创建拉!)
ClientDataSet1.FileName=
E:\Borland\Common Files\Borland Shared\Data\country.xml
ClientDataSet1.Active = true
----------
放个DataSource1,DBGrid1
DataSource1。DataSet= ClientDataSet1;
DBGrid1.DataSource1 = DataSource1;DBGrid里看到数据了吧?
那就写段程序类似于
with ClientDataSet1 do
begin
First;
while not eof do
begin
Table1.FilelByname('??').AsString:= FieldByName('??').AsString;
...
Next;
end;
end;
就OK。:)
//Table1要连你要导入的数据库(当然你自己创建拉!)
然后逐条添加如库
另存为文本文件,以制表附为标记
用例如access建表,导入上述文本,当然字段间还以制表附为标记
如有失败数据,修改失败字段为备注,清空数据,重导
ok%