這是你的For語句
成都創(chuàng)新互聯(lián)長期為1000+客戶提供的網(wǎng)站建設(shè)服務(wù)，團(tuán)隊(duì)從業(yè)經(jīng)驗(yàn)10年，關(guān)注不同地域、不同群體，并針對(duì)不同對(duì)象提供差異化的產(chǎn)品和服務(wù)；打造開放共贏平臺(tái)，與合作伙伴共同營造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為天心企業(yè)提供專業(yè)的成都做網(wǎng)站、成都網(wǎng)站建設(shè)、成都外貿(mào)網(wǎng)站建設(shè)，天心網(wǎng)站改版等技術(shù)服務(wù)。擁有10年豐富建站經(jīng)驗(yàn)和眾多成功案例,為您定制開發(fā)。
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
語句中Dbcstr一直沒有變動(dòng)過，所以你提交到數(shù)據(jù)庫中的內(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()
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim aa As System.IO.StreamWriter = New System.IO.StreamWriter("C:\a.txt", False, System.Text.Encoding.UTF8)
Dim i As Integer = 0
For i = 0 To Val(TextBox4.Text)
aa.WriteLine("[" i "]")
aa.WriteLine("[" i "]")
Next
aa.Close()
aa.Dispose()
End Sub
開發(fā)OPC 客戶端程序時(shí)，首先應(yīng)該生成OPC 服務(wù)器支持的OPC 對(duì)象，然后就 可以使用OPC 對(duì)象支持的屬性和方法，對(duì)其進(jìn)行各種操作。這樣使得客戶程序可 以像使用自己支持的數(shù)據(jù)和功能一樣，去使用服務(wù)器對(duì)象支持的數(shù)據(jù)和功能。在 VisualBasic6.0 里,是以對(duì)象為單位對(duì)OPC 服務(wù)器進(jìn)行訪問的。通過OPC 自動(dòng)化 服務(wù)器的對(duì)象模型，可以得知OPC 自動(dòng)化接口由以下四種對(duì)象所定義。1. OPCServer 服務(wù)器對(duì)象OPCServer 的一個(gè)實(shí)例，OPC 服務(wù)器自動(dòng)含有一個(gè)OPC 組集合 對(duì)象，并可在其基礎(chǔ)上生成一個(gè)OPC 瀏覽器對(duì)象。 OPCServer 服務(wù)器對(duì)象在使用其它OPC 對(duì)象前必須生成，也就是說在引用 其他對(duì)象之前必須先創(chuàng)建OPCServer。OPCServer 對(duì)象提供了對(duì)數(shù)據(jù)源訪問和通 信的方法，其提供了“Connect”方法來連接OPC 自動(dòng)化服務(wù)器。 主要屬性： StartTime(只讀屬性，服務(wù)器啟動(dòng)運(yùn)行的時(shí)間) CurrentTime(只讀屬性，返回服務(wù)器顯示的當(dāng)前時(shí)間) LastUpdateTime(對(duì)于本OPC 應(yīng)用程序的最后數(shù)據(jù)更新時(shí)間) MajorVersion(只讀屬性，OPC 服務(wù)器的主版本號(hào)) MinorVersion(只讀屬性，OPC 服務(wù)器的次版本號(hào)) Bandwith(只讀屬性，返回OPC 服務(wù)器的不敏感區(qū)的百分比) ServerState(只讀屬性，返回服務(wù)器的運(yùn)行狀態(tài)，這個(gè)屬性是比較重要的，方 便客戶端程序查詢服務(wù)器的狀態(tài)，從而達(dá)到排除故障的目的) ServerName(只讀屬性，返回客戶程序所要連接的服務(wù)器名，也就是OPC 服 務(wù)器的ProgID) ServerNode(服務(wù)器所在計(jì)算機(jī)名或者計(jì)算機(jī)的IP，用于連接遠(yuǎn)程的計(jì)算機(jī)) 等。 主要方法： GetOPCservers(獲得己經(jīng)注冊(cè)的OPC 服務(wù)器的程序標(biāo)識(shí)符，即ProgID) Connect(用來建立與OPC 數(shù)據(jù)存取服務(wù)器的連接) Disconnect(斷開與服務(wù)器的連接) CreatBrowser(創(chuàng)建OPC 瀏覽器的對(duì)象)等。 事件： 只有一個(gè)ServerShutDown(關(guān)閉服務(wù)器，這個(gè)事件在服務(wù)器即將關(guān)閉之前發(fā) 生，OPC 服務(wù)器以此通知OPC 客戶程序預(yù)告即將關(guān)閉，OPC 客戶程序應(yīng)該在接 到此事件通知后，立即清除所有的OPC 組并斷開與OPC 服務(wù)器的連接)。
和標(biāo)簽多少?zèng)]啥關(guān)系。編寫OPC客戶端程序讀數(shù)據(jù)，再用SQL語句寫到數(shù)據(jù)庫里。
想省事就用第三方軟件，提要求，給你做。
寫入：Dim sr As New IO.StreamWriter(Application.StartupPath "/寫入的文本.txt")
sr.WriteLine("寫入的內(nèi)容") sr.Close()讀?。篒f (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中讀寫文件主要使用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)采納，謝謝 ◆
重慶分公司
重慶分公司
