ADO读取Excel Sheet

sheet的第一行被ADO读为表名.其他操作和其他数据库类似.

1     ADOConnection.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;' +
2                'Data Source=' + TargetXlsFileName + ';Mode=Share Deny None;Extended Properties="Excel 8.0;IMEX=1";' +
3                'Persist Security Info=False;Jet OLEDB:System database="";Jet OLEDB:Registry Path="";';
4     ADOConnection.Open;
5     ADOQuery.SQL.Text := 'SELECT * FROM [' + TabSheetName + '$]';
6     ADOQuery.Open;

　　

posted on 2011-07-21 22:37  solokey  阅读(503)  评论(0)  编辑  收藏  举报