Dim conn As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\db.mdb") Dim cmd As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("select * from 1", conn) Dim dst As DataSet = New DataSet cmd.Fill(dst) Response.Charset = "UTF-8" Response.AppendHeader("Content-Disposition", "attachment;filename=text.txt") Response.ContentEncoding = System.Text.Encoding.Default Dim tw As System.IO.StringWriter = New System.IO.StringWriter Dim hw As Web.UI.HtmlTextWriter = New Web.UI.HtmlTextWriter(tw) Dim i As Integer Dim j As Integer For i = 0 To dst.Tables(0).Rows.Count - 1 For j = 0 To dst.Tables(0).Columns.Count - 1 Response.Write(dst.Tables(0).Rows(i)(dst.Tables(0).Columns(j).ColumnName).ToString) Response.Write(vbTab) If j = dst.Tables(0).Columns.Count - 1 Then Response.Write(vbCrLf) End If Next Next Response.End() End Sub
之后在ExecuteNonQuery();
OleDbCommand只接受SQL语句
Dim sendtofilecomm As New OleDbCommand(selectstring, conn)
无法执行这语句
无法执行这组成的SQL语句
查了半天,也没没查出ACCESS能支持这个命令,ACCESS本来功能就不多
如果换成SQL SERVER做DB,应该可以支持
但是如何在程序中用而不出错呢?
如果大家不知道,那如何要你把Access库中的表在程序中转换成.txt文本件,你是如何做的?
Dim cmd As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("select * from 1", conn)
Dim dst As DataSet = New DataSet
cmd.Fill(dst)
Response.Charset = "UTF-8"
Response.AppendHeader("Content-Disposition", "attachment;filename=text.txt")
Response.ContentEncoding = System.Text.Encoding.Default
Dim tw As System.IO.StringWriter = New System.IO.StringWriter
Dim hw As Web.UI.HtmlTextWriter = New Web.UI.HtmlTextWriter(tw)
Dim i As Integer
Dim j As Integer
For i = 0 To dst.Tables(0).Rows.Count - 1
For j = 0 To dst.Tables(0).Columns.Count - 1
Response.Write(dst.Tables(0).Rows(i)(dst.Tables(0).Columns(j).ColumnName).ToString)
Response.Write(vbTab)
If j = dst.Tables(0).Columns.Count - 1 Then
Response.Write(vbCrLf)
End If
Next
Next
Response.End()
End Sub
我这是在windows窗体中。: )