ado中怎么导出excel表格

1.请教一下 delphi7.0 中 用 ado 如何 操作 excel 并导出 excel表呢

1、读EXCEL:

const

Const_Conn='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Persist Security Info=False;Extended Properties=Excel 8.0;';

adoConnProduct.Close;

adoConnProduct.ConnectionString:=Format(Const_Conn,[FProductFile]);//FProductFile: EXCEL 全路径

adoConnProduct.Open();

有了ADO连接，至于取表的数据就简单了

2、至于导出，就有很多GRID控件都可以导出成EXCEL，如：EHLIB,DEV。。。。,

2.请教一下 delphi7.0 中 用 ado 如何 操作 excel 并导出 excel表呢

1、读EXCEL:const Const_Conn='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Persist Security Info=False;Extended Properties=Excel 8.0;'; adoConnProduct.Close; adoConnProduct.ConnectionString:=Format(Const_Conn,[FProductFile]);//FProductFile: EXCEL 全路径 adoConnProduct.Open（)；有了ADO连接，至于取表的数据就简单了2、至于导出，就有很多GRID控件都可以导出成EXCEL，如：EHLIB,DEV。

3.vb中怎样把ado控件的查询记录输出到excel表格中?

Public Function ExporToExcel(strOpen As String)'*********************************************************'* 名称：ExporToExcel'* 功能：导出数据到EXCEL'* 用法：ExporToExcel(sql查询字符串)'********************************************************* Dim cn As New ADODB.Connection Dim Rs_Data As New ADODB.Recordset Dim Irowcount As Integer Dim Icolcount As Integer Dim xlApp As New Excel.Application 'Application对象处于Excel对象层次结构的顶层，表示Excel自身的运行环境. Dim xlBook As Excel.Workbook 'Workbook对象直接地处于Application对象的下层，表示一个Excel工作薄文件. Dim xlSheet As Excel.Worksheet 'Worksheet对象包含于Workbook对象，表示一个Excel工作表 Dim xlQuery As Excel.QueryTable 'QueryTable 对象代表了一个表，该表是用从外部数据源返回的数据生成的。

'当您自动运行 Excel 时，可以通过提供指向 OLE DB 或 ODBC 数据源的连接字符串和 SQL 字符串来创建 QueryTable。 'Excel 将生成记录集并将该记录集插入到工作表中您所指定的位置 '您可以利用 QueryTable 对象保存查询，并在以后刷新它以获取更新的记录集。

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\sysdata.mdb;Persist Security Info=False"'此语句定义了与ACCESS数据库的连接，现改为与SQL数据的连接为cn.ConnectionString = "driver={SQL SERVER};server=sql服务器名或者服务器的IP地址；uid=用户名；pwd=密码；database=数据库名" cn.Open With Rs_Data If .State = adStateOpen Then .Close End If .ActiveConnection = cn .CursorLocation = adUseClient .CursorType = adOpenStatic .LockType = adLockReadOnly .Source = strOpen .Open End With With Rs_Data If .RecordCount < 1 Then MsgBox （"没有记录！"） Exit Function End If '记录总数 Irowcount = .RecordCount '字段总数 Icolcount = .Fields.Count End With Set xlApp = CreateObject("Excel.Application") Set xlBook = Nothing Set xlSheet = Nothing Set xlBook = xlApp.Workbooks.Open("d:\1.xls") Set xlSheet = xlBook.Worksheets("sheet1") xlApp.Visible = True '添加查询语句，导入EXCEL数据 Set xlQuery = xlSheet.QueryTables.Add(Rs_Data, xlSheet.Range("a1")) With xlQuery .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = True .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .PreserveColumnInfo = True End With xlQuery.FieldNames = True '显示字段名 xlQuery.Refresh With xlSheet .Range(.Cells(1, 1), .Cells(1, Icolcount)).Font.Name = "黑体" '设标题为黑体字 'Range对象包含于Worksheet对象，表示Excel工作表中的一个或多个单元格. .Range(.Cells(1, 1), .Cells(1, Icolcount)).Font.Bold = True '标题字体加粗 .Range(.Cells(1, 1), .Cells(Irowcount + 1, Icolcount)).Borders.LineStyle = xlContinuous '设表格边框样式 End With xlApp.Application.Visible = True Set xlApp = Nothing '"交还控制给Excel Set xlBook = Nothing Set xlSheet = Nothing End Function 注意要在工程中点应用然后选择Microsoft Excel X.0。

4.delphi7.0中用ado如何操作excel并导出excel表?

1、读 'Provider=Microsoft.Jet.OLEDB.4.0;DataSource=%s;PersistSecurityInfo=False;ExtendedProperties=Excel8.0;';adoConnProduct.Close;adoConnProduct.ConnectionString:=Format(Const_Conn,[FProductFile]);//FPr 全路径adoConnProduct.Open（)；有了ADO连接，至于取表的数据就简单了2、至于导出，就有很多GRID控件都可以导出成EXCEL，如：EHLIB,DEV。

希望我的回答能帮助到你。

5.如何用Ado.NET mvc5 实现导出Excel

大概有两种做法： 1.把画面上的Html字串输出到档案供Client端下载（※开发快但缺点为 使用者开启该Excel档案会跳出警告视窗） 2.刻苦刻难，用ADO.net搭配NPOI套件，建立Excel物件…用ADO.net塞资料…Response给Client端下载（※开发慢，但没有上述缺点） 本文介绍的是第1种方法 ※并不是在Controller里一口气把Html字串都组好再输出档案，虽然这做法也行… 实作概念 1.使用者按下汇出按钮 2.用jQuery把Html Table字串存入hidden栏位，表单post到Action 3.Action回传File即可 Sample Code: View的Index.cshtml <meta name="viewport" content="width=device-width" /> <script type="text/javascript" src="@Url.Content("~/Scripts/。

return $('.com/questions/1219860/javascript-jquery-html-encoding function htmlEncode(value) { /, ".net塞资料…Response给Client端下载（※开发慢；body>做html编码 $（"）[0], " < tr>测试3/.用jQuery把Html Table字串存入hidden栏位.net搭配NPOI套件； using System; strHtml = HttpUtility;0"/myForm').cshtml<:1; <;'//title>s inner text(which jQuery automatically encodes) /td>测试1< < /td>/width=device-width"tr> < <scripts// <0"];/th>;})) { @Html;@Url;body>> <.Post;hHtml".使用者按下汇出按钮2.Encoding;script type="tr>, new { name=" < input type="script> /MyTable"create a in-memory div; <.Web; >/.Action回传File即可Sample Code; <.0.把画面上的Html字串输出到档案供Client端下载（※开发快但缺点为 使用者开启该Excel档案会跳出警告视窗）2；/，表单post到Action3;/.0;) } HomeController using System.Linq:_error e) { return -1; } // 4. 获取记录集 _RecordsetPtr pRecordset; char szSQL[] = "Select * From [Sheet1$]"; try { pRecordset.CreateInstance(__uuidof(Recordset)）； //创建Recordset对象 pRecordset->Open(_bstr_t(szSQL), _variant_t((IDispatch*)connection, TRUE), adOpenUnspecified, adLockUnspecified, adCmdUnknown); } catch (_com_error e) { connection->Close(); return -1; } if (pRecordset == NULL) { connection->Close(); return -1; } // 5. 提取数据 int result = 0; if (!pRecordset->BOF) { try { pRecordset->MoveFirst(); while (!pRecordset->adoEOF) { Person person; _variant_t vtPhoneNumber = pRecordset->Fields->GetItem（"***"）->Value; _variant_t vtClient = pRecordset->Fields->GetItem（"姓名"）->Value; if (vtPhoneNumber.vt == VT_R8 && vtClient.vt == VT_BSTR) { sprintf(person.Number, "%011.0lf", vtPhoneNumber.dblVal); WideCharToMultiByte(CP_ACP, 0, vtClient.bstrVal, -1, person.Name, sizeof(person.Name), NULL, NULL); outPersonList.push_back( person ); } pRecordset->MoveNext(); } } catch (_com_error e) { result = 2; } } // 6. 关闭数据库连接对象、记录集对象 pRecordset->Close(); connection->Close(); return 0;}。