从数据库导入到EXCEL时,无法读出表的列名

liguoyun 2004-04-15 01:35:08

从数据库导入到EXCEL时,无法读出表的列名
--------------------------------------------------------
Sub DataSetToExcel(ByVal ds As DataSet)
'Dim oXL As New Excel.Application
Dim oSheet As New SpreadsheetClass

Dim dt As DataTable
Dim iRowsCount, iColCount As Integer

dt = ds.Tables(0)

’读列名到EXCEL中，请帮忙检查代码有没有问题？？？？？？？？
For iColCount = 0 To iColCount - 1
oSheet.ActiveSheet.Cells(4, iColCount + 1) = dt.Columns(iColCount).ColumnName.ToString + "a"
Next

‘读数据到EXCEL中，这段代码正常
For iRowsCount = 0 To dt.Rows.Count - 1
For iColCount = 0 To dt.Columns.Count - 1
oSheet.ActiveSheet.Cells(5 + iRowsCount, iColCount + 1) = dt.Rows(iRowsCount).Item(iColCount).ToString()
Next
Next

End Sub

...全文

64 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

nnh 2004-04-27

打赏
举报

我是這個是沒有問題的.
<%@ Page Language="VB" AutoEventWireup="True" Debug="true" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<%@ Import Namespace="System.Drawing" %>
<%@ Import Namespace="System.Drawing.Color" %>

<html>
<script runat="server">
dim MyConnection as OleDbConnection
dim cmdSelect as OleDbCommand
dim dtrReader as OleDbDataReader
Sub Page_Load(sender As Object, e As EventArgs)
MyConnection = New OleDbConnection( "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" + Server.MapPath(".")+"/datagrid.mdb")
If Not IsPostBack Then
BindGrid()
End If
End Sub

Sub BindGrid()
Dim MyCommand As OleDbDataAdapter = new OleDbDataAdapter("select * from [news]", MyConnection)
Dim DS As DataSet = new DataSet()
MyCommand.Fill(DS,"min")
MyDataGrid.DataSource =DS.Tables("min").DefaultView
MyDataGrid.DataBind()
End Sub

Sub Mydatagrid_PageIndexChanged(s as object,e as DataGridPageChangedEventargs)
MyDataGrid.CurrentPageIndex=e.newPageIndex
BindGrid()
End Sub

Sub Button1_Click(sender As Object, e As System.EventArgs)
'-------------------
MyDataGrid.AllowPaging = "false"
BindGrid()
'-------------------
MyDataGrid.SelectedItemStyle.BackColor=Color.white
MyDataGrid.AlternatingItemStyle.BackColor=Color.white
MyDataGrid.ItemStyle.BackColor=Color.white
MyDataGrid.HeaderStyle.BackColor=Color.white
MyDataGrid.HeaderStyle.ForeColor=Color.red
'----------
dim resp as HttpResponse = Page.Response
resp.ContentEncoding = System.Text.Encoding.GetEncoding("GB2312")
'---------
Response.ContentType = "application/vnd.ms-excel"
Response.Charset = ""
Me.EnableViewState = False
Dim tw As New System.IO.StringWriter()
Dim hw As New System.Web.UI.HtmlTextWriter(tw)
MyDataGrid.RenderControl(hw)
Response.Write(tw.ToString())
Response.End()
'-------------------
MyDataGrid.AllowPaging = "true"
BindGrid()
End Sub

</script>
<body>
<form runat="server">
<asp:Label id="lblFile" forecolor="red" runat="server"/><BR>
<asp:Button id="button1" onclick="Button1_Click" text="Write To Excle File" runat="server"/>
<BR>
<asp:datagrid id="MyDataGrid"
runat="server"
CellPadding="4"
BackColor="White"
BorderColor="#330033"
BorderWidth="1px"
BorderStyle="None"
Font-Size="9pt"
Font-Names="§ºÊ^"
AllowPaging="true"
pageSize="2"
OnPageIndexChanged="Mydatagrid_PageIndexChanged" >
<PagerStyle Mode="NumericPages"
Font-Bold="true"
BackColor="#F2F2F2"
HorizontalAlign="right">
</PagerStyle>
<SelectedItemStyle BackColor="#FFCC66"></SelectedItemStyle>
<AlternatingItemStyle BackColor="#FFCC99"></AlternatingItemStyle>
<ItemStyle BackColor="White"></ItemStyle>
<HeaderStyle Font-Bold="True" HorizontalAlign="Center" ForeColor="#330033" BorderColor="Black" BackColor="#FF9900"></HeaderStyle>
</asp:datagrid>
</form>
</body>
</html>

michaelowenii 2004-04-27