VB點(diǎn)虐 從oracle數(shù)據(jù)庫導(dǎo)出CSV文件

和導(dǎo)出txt文件的操作是一樣的。

創(chuàng)新互聯(lián)是一家專注于網(wǎng)站建設(shè)、網(wǎng)站設(shè)計與策劃設(shè)計,定安網(wǎng)站建設(shè)哪家好?創(chuàng)新互聯(lián)做網(wǎng)站,專注于網(wǎng)站建設(shè)10多年,網(wǎng)設(shè)計領(lǐng)域的專業(yè)建站公司;建站業(yè)務(wù)涵蓋:定安等地區(qū)。定安做網(wǎng)站價格咨詢:028-86922220

sql語句從數(shù)據(jù)庫獲得數(shù)據(jù)集，然后逐條插入到csv

下面代碼可以做參考，

Sub?CSVdropmark()

Dim?mFileName?As?String?=?Application.StartupPath?+?"\EmployeeMaster\ExcelData\BaanID.CSV"

Dim?fs?As?FileStream

Dim?st?As?StreamWriter

Dim?reader?As?System.IO.StreamReader

Dim?i?As?Integer

Dim?str?As?String

reader?=?New?System.IO.StreamReader(mFileName)

Try

fs?=?New?FileStream(Application.StartupPath?+?"\EmployeeMaster\ExcelData\BaanIDAD.CSV",?FileMode.Create,?FileAccess.Write)

str?=?reader.ReadToEnd

str?=?str.Replace("""",?"")

st?=?New?StreamWriter(fs)

st.WriteLine(str)

st.Flush()

Catch?ex?As?Exception

Finally

If?Not?reader?Is?Nothing?Then?reader.Close()

If?st?IsNot?Nothing?Then?st.Close()

If?fs?IsNot?Nothing?Then?fs.Close()

End?Try

End?Sub

vb點(diǎn)虐 導(dǎo)出csv后數(shù)字格式問題

這應(yīng)該是exel自己的問題，和控件以及寫csv文件沒有關(guān)系吧。新建一個exel，敲入001，它也顯示的是1。

關(guān)于VB.NET的CSV文件的讀取

你是怎么讀寫的呢？下面是簡單的讀寫

Dim str As String = (My.Computer.FileSystem.ReadAllText("C:\QD51-R24_A.csv")) '讀

My.Computer.FileSystem.WriteAllText("C:\1.csv", str, True) '寫

vb點(diǎn)虐 怎么生成csv文件啊 求具體代碼

CSV只不過是用CRLF分行，逗號分列的一個簡單文本

先做好行模板，如

Private RowTemp as string ="{0},{1},{2},....{n}"

寫入文件時候分行寫入

System.IO.StreamWriter.WriteLine(String.format(RowTemp,"數(shù)據(jù)1”,“數(shù)據(jù)2"...."數(shù)據(jù)n"))