Dim con As New SqlConnection
con.ConnectionString = "server=.;uid=sa;pwd=;database=finance"
Dim ds As New DataSet
con.Open()
Dim sqlstr
sqlstr = "select * from note "
Dim da As SqlDataAdapter = New SqlDataAdapter(sqlstr, con)
da.Fill(ds, "table1")
Dim dt As New DataTable
dt = ds.Tables("table1")
Dim sw As New System.IO.StringWriter
sw.WriteLine("卡号,余额")
Dim dr As DataRow = dt.NewRow
sw.WriteLine(dr("cardid") + "," + dr("money"))
sw.Close()
Response.AddHeader("Content-Disposition", "attachment; filename=test.csv")
Response.ContentType = "application/ms-excel"
Response.ContentEncoding = System.Text.Encoding.GetEncoding("GB2312")
Response.Write(sw)
Response.End()
怎么只有表头，而数据没有显示出来啊，请帮帮我，谢谢了
con.ConnectionString = "server=.;uid=sa;pwd=;database=finance"
Dim ds As New DataSet
con.Open()
Dim sqlstr
sqlstr = "select * from note "
Dim da As SqlDataAdapter = New SqlDataAdapter(sqlstr, con)
da.Fill(ds, "table1")
Dim dt As New DataTable
dt = ds.Tables("table1")
Dim sw As New System.IO.StringWriter
sw.WriteLine("卡号,余额")
Dim dr As DataRow = dt.NewRow
sw.WriteLine(dr("cardid") + "," + dr("money"))
sw.Close()
Response.AddHeader("Content-Disposition", "attachment; filename=test.csv")
Response.ContentType = "application/ms-excel"
Response.ContentEncoding = System.Text.Encoding.GetEncoding("GB2312")
Response.Write(sw)
Response.End()
怎么只有表头，而数据没有显示出来啊，请帮帮我，谢谢了