vb.net作匯出，從SQL Server轉成txt檔

ping9 2013-07-09 19:52:00 ‧ 10527 瀏覽

分享至

請問市面上有沒有哪本書有這個範例
vb.net作匯出，從SQL Server轉成txt檔
或者能否提供程式給我作參考
謝謝

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

3 個回答

賽門

iT邦超人 1 級 ‧ 2013-07-09 21:45:04

最佳解答

我組合的程式碼, 沒測試過, 應該稍加修改與Debug即可...

&lt;pre class="c" name="code">//宣告SQL Server連線字串
Dim con As New SqlConnection
Dim cmd As New SqlCommand
//宣告輸出TXT檔名
Dim FILE_NAME As String = "C:\Users\Owner\Documents\EmployeeList.txt"
//開啟檔案I/O
Dim objWriter As New System.IO.StreamWriter( FILE_NAME )
//連線SQL Server開始抓資料
Try
  con.ConnectionString = "Server=(local)\SQLEXPRESS;Initial Catalog=Northwind;Integrated Security=SSPI"
  con.Open()
  cmd.Connection = con
  cmd.CommandText = "SELECT EmployeeID, FirstName, LastName FROM Employee ORDER BY EmployeeID"
  Dim lrd As SqlDataReader = cmd.ExecuteReader()

  While lrd.Read()
    //把資料寫入TXT檔, 寫入格式如何, 就自行修改一下囉...
    objWriter.WriteLine( ldr.Item(0) & ", " & ldr.Item(1) & ", " & ldr.Item(2))
    Next
  End While

  objWriter.Close()

Catch ex As Exception
 MessageBox.Show("Error while retrieving records on Employee table..." & ex.Message, "Load Records")
Finally
 con.Close()
End Try

回應 3
分享
檢舉

ping9 iT邦新手 4 級 ‧ 2013-07-10 20:42:12 檢舉

Dim lrd As SqlDataReader = cmd.ExecuteReader()
請問這句是什麼意思呢？
謝謝

賽門 iT邦超人 1 級 ‧ 2013-07-10 20:58:05 檢舉

宣告一個sqldatareader, 也就是一個擷取SQL Server資料的暫存區.
該暫存區的內容就是CommandText的SELECT命令抓出來的資料錄集合.

建議你先Google VB.NET的sqldatareader元件用法, 不要只會發問又主動不學習、不主動思考.
古人有言: 學而不思則殆.

obiwanking iT邦新手 3 級 ‧ 2013-07-11 14:14:09 檢舉

推~賽門大太熱心了

其實這個問題的答案, google就可以找到
發問者在發問前,自己要先做功課研究

慎思, 慎問
尊重他人, 也是尊重自己

登入發表回應

player

iT邦大師 1 級 ‧ 2013-07-09 20:30:45

1.你要先從SQL Server抓資料, 用ADO.NET或LINQ
2.你的VB.NET是寫成ASP.NET還是Windows From, 前者要輸出HTTP檔頭通知瀏覽器另存新檔, 後者要開對話框給User選存檔位置與檔名

用C#寫過, 但是之前硬碟毀了
不然就可以轉成 VB.NET 給你
所以死心吧

回應
分享
檢舉

登入發表回應

外獅佬

iT邦大師 1 級 ‧ 2013-07-09 23:58:41

&lt;pre class="c" name="code">
Dim TextFileConn As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\;Extended Properties=Text;HDR=NO;")  
TextFileConn.Open()  
Dim TextFileCmd As New System.Data.OleDb.OleDbCommand("SELECT * INTO [Employee#txt] FROM [Employee] IN '' [ODBC;Driver={SQL Server};Server=(local);Database=Northwind;Trusted_Connection=yes];", TextFileConn)  
TextFileCmd.ExecuteNonQuery()  
TextFileConn.Close()