vb.net 循環(huán)寫入數(shù)據(jù)庫(kù)問(wèn)題

這是你的For語(yǔ)句

新干網(wǎng)站建設(shè)公司成都創(chuàng)新互聯(lián),新干網(wǎng)站設(shè)計(jì)制作，有大型網(wǎng)站制作公司豐富經(jīng)驗(yàn)。已為新干上千多家提供企業(yè)網(wǎng)站建設(shè)服務(wù)。企業(yè)網(wǎng)站搭建\成都外貿(mào)網(wǎng)站建設(shè)要多少錢，請(qǐng)找那個(gè)售后服務(wù)好的新干做網(wǎng)站的公司定做！

For?i?=?0?To?webtable.Rows.Count?-?1

Label2.Text?=?"正在從遠(yuǎn)程服務(wù)器下載數(shù)據(jù)?"??i??"/"??webtable.Rows.Count

CMD?=?New?OleDbCommand(Dbcstr,?Dbc)

CMD.ExecuteNonQuery()

webrow?=?webtable.Rows.Item(i)

Next

語(yǔ)句中Dbcstr一直沒(méi)有變動(dòng)過(guò)，所以你提交到數(shù)據(jù)庫(kù)中的內(nèi)容總是第一行。

修改如下，未調(diào)試。

Dbc.Open()

For?i?=?0?To?webtable.Rows.Count?-?1

Dim?Dbcstr?As?String?=?"INSERT?INTO?PurchaseOrders?([PurchaseOrderID],……

Dbcstr?=?Dbcstr??"?VALUES('"??webtable.rows(i).Item(0)??"','"?……

'webrow.Item(0)改成webtable.rows(i).Item(0)，其他一樣

CMD?=?New?OleDbCommand(Dbcstr,?Dbc)

CMD.ExecuteNonQuery()

Next

conn.Close()

Dbc.Close()

請(qǐng)教在VB.net中如何將數(shù)據(jù)寫入txt文件、再?gòu)膖xt文件讀出？

軟糖來(lái)告訴你吧。

VB.net中讀寫文件主要使用System.IO命名空間。

① 使用 File.ReadAllText 讀取

Dim s As String = System.IO.File.ReadAllText("C:\a.txt")

② 使用 StreamReader 讀取，注意編碼格式和寫入的編碼保持一致。

Dim sr As StreamReader = New StreamReader("C:\a.txt", System.Text.Encoding.UTF8)

Dim s As String = sr.ReadToEnd()

sr.Close()

③ 使用 File.WriteAllText 寫入，會(huì)覆蓋同名的文件。

Dim 要寫的內(nèi)容 As String = ""

File.WriteAllText(文件路徑, 要寫的內(nèi)容, System.Text.Encoding.UTF8)

④ 使用 StreamWriter 寫入。

Dim sw As System.IO.StreamWriter = New System.IO.StreamWriter("C:\a.txt", False, System.Text.Encoding.UTF8)

sw.WriteLine(TextTB.Text)

sw.Close()

⑤ 使用 StreamWriter 追加寫入。

將上面代碼的第二個(gè)參數(shù)False改為True。

◆ 滿意請(qǐng)采納，謝謝 ◆

vb.net 讀取文本前五行，分別對(duì)應(yīng)五個(gè)Textbox，分別放入 然后點(diǎn)擊按鈕把五個(gè)Textbox的內(nèi)容按順序?qū)懭胛谋?/h2>

'窗體上放5個(gè)textBox控件，控件名依次為?TextBox1,?TextBox2,?TextBox3,?TextBox4,?TextBox5

'Button1按鈕為讀文件，Button2按鈕為寫文件

'程序第一運(yùn)行時(shí)先在5個(gè)文本框中輸入相應(yīng)內(nèi)容，點(diǎn)擊“寫文件”，以創(chuàng)建文件

Public?Class?Form1

Private?textBoxArray()?As?TextBox

Private?fileName?As?String

Private?Sub?Form1_Load(ByVal?sender?As?Object,?ByVal?e?As?System.EventArgs)?Handles?Me.Load

Me.textBoxArray?=?New?TextBox()?{Me.TextBox1,?Me.TextBox2,?Me.TextBox3,?Me.TextBox4,?Me.TextBox5}

fileName?=?"csdx.txt"

End?Sub

Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click

If?System.IO.File.Exists(fileName)??True?Then

MsgBox("文件不存在！，請(qǐng)先在文本框中輸入數(shù)據(jù)，點(diǎn)擊寫文件。")

Exit?Sub

End?If

Dim?line?As?String

Dim?sr?As?IO.StreamReader?=?New?IO.StreamReader(fileName,?System.Text.Encoding.Default)

Dim?I?As?Integer

For?I?=?1?To?5?Step?1

If?sr.EndOfStream?Then?Exit?For

line?=?sr.ReadLine

Me.textBoxArray(I?-?1).Text?=?line

Next?I

sr.Close()

sr?=?Nothing

End?Sub

Private?Sub?Button2_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button2.Click

Dim?sw?As?IO.StreamWriter?=?New?IO.StreamWriter(fileName,?False)

Dim?I?As?Integer

For?I?=?1?To?5

sw.WriteLine(Me.textBoxArray(I?-?1).Text)

sw.Flush()

Next

sw.Close()

sw?=?Nothing

End?Sub

End?Class

vb.net 怎么寫入和多行讀取txt文件，而且多次寫如之前的不被覆蓋？

.net應(yīng)該提供了此類函數(shù)。如C#就有File.AppendAllText(filename,string)用于追加內(nèi)容，F(xiàn)ile.ReadAllLine(filename)用于讀取多行。

vb.net中DataGridView1怎么向指定單元格寫入數(shù)據(jù)如要向第3行第4列寫入123.456該怎么做？高手幫幫忙啦?。?/h2>

要確保有這么多行和這么多列，

dataGridView1(3, 2).Value = 123.456

vb.net中，讀取和寫入文件

寫入：Dim sr As New IO.StreamWriter(Application.StartupPath "/寫入的文本.txt")

sr.WriteLine("寫入的內(nèi)容") sr.Close()讀取：If (File.Exists(Application.StartupPath "/msg.txt")) Then

Dim fm As New IO.FileStream(Application.StartupPath "/讀取的文本.txt", FileMode.Open)

Dim sr As IO.StreamReader = New IO.StreamReader(fm)

Do While sr.Peek() = 0

TextBox1.Text = sr.ReadLine() （讀取文本到文本框）

Loop end if

新聞名稱：包含vb.net逐句寫入的詞條
轉(zhuǎn)載源于：http://www.rwnh.cn/article28/hhgicp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供用戶體驗(yàn)、建站公司、全網(wǎng)營(yíng)銷推廣、網(wǎng)站設(shè)計(jì)、網(wǎng)頁(yè)設(shè)計(jì)公司、移動(dòng)網(wǎng)站建設(shè)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)