学步园

if OpenDialog.Execute then<br /> begin<br /> m_boConnect := False;<br /> ADOConnection.Connected := False;<br /> ADOConnection.ConnectionString := format('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Extended Properties=Excel 8.0;Persist Security Info=False', [OpenDialog.FileName]);<br /> try<br /> ADOConnection.Connected := True;<br /> except<br /> on E: Exception do<br /> begin<br /> MainOutMessage(format('[Exception] ADOConnection.Connected Failed %s', [E.Message]));<br /> exit;<br /> end;<br /> end;<br /> m_boConnect := True;<br /> MainOutMessage('[Hint] ADOConnection.Connected Successful');<br /> end;<br />

function TMainForm.ExportData(sExcelTable: string): Boolean;<br /> var<br /> i, nRecordCount: Integer;<br /> begin<br /> if m_boConnect then<br /> begin<br /> ADOQuery.Close;<br /> ADOQuery.SQL.Clear;<br /> ADOQuery.SQL.Add('Select * from [' + sExcelTable + '$]');<br /> try<br /> ADOQuery.Open;<br /> except<br /> on E: Exception do<br /> begin<br /> MainOutMessage(format('[Exception] TMainForm.ExportData(%s) OpenADOQuery %s', [sExcelTable, E.Message]));<br /> exit;<br /> end;<br /> end;<br /> nRecordCount := 0;<br /> for i := 0 to ADOQuery.RecordCount - 1 do<br /> begin<br /> //ADOQuery.Fields[nIndex].FullName<br /> //按序号获取指定字段名.nIndex是第几个字段即Excel的第几列.老规矩.0开始<br /> //用ADO连接的时候.Excel表的第1行总是会被当作字段<br /> //处理内容<br /> ADOQuery.Next;<br /> end;<br /> MainOutMessage(format('[Hint] TMainForm.ExportData Successful(%s/%d)', [sExcelTable, nRecordCount]));<br /> end<br /> else<br /> MainOutMessage('[Exception] ADOConnection not connected');<br /> end;<br />