Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
創(chuàng)新互聯(lián)是一家專業(yè)提供慈利企業(yè)網(wǎng)站建設(shè),專注與網(wǎng)站制作、做網(wǎng)站、H5高端網(wǎng)站建設(shè)、小程序制作等業(yè)務(wù)。10年已為慈利眾多企業(yè)、政府機(jī)構(gòu)等服務(wù)。創(chuàng)新互聯(lián)專業(yè)網(wǎng)站設(shè)計(jì)公司優(yōu)惠進(jìn)行中。
Dim sqlStr As String = "insert into tb values("
Dim i As Integer
For i = 0 To DataGridView1.Columns.Count - 1
sqlStr = "'" DataGridView1.Rows(DataGridView1.Rows.Count - 1).Cells(i) "'"
If i DataGridView1.Columns.Count - 1 Then sqlStr = ","
Next
sqlStr = ")"
Dim con As New SqlConnection(connectionString) '這個(gè)自己寫去
con.Open()
Dim cmd As New SqlCommand(sqlStr, con)
Try
Dim result As Integer = cmd.ExecuteNonQuery()
If result 0 Then
MsgBox "添加數(shù)據(jù)成功"
Else
MsgBox "添加數(shù)據(jù)失敗"
End If
Catch (ex As Exception)
MsgBox "添加數(shù)據(jù)過(guò)程發(fā)生異常,原因:" ex.Message
End Try
End Sub
這是你的For語(yǔ)句
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一直沒有變動(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()
1、首先,你得做一個(gè)oledbconnection對(duì)象,這個(gè)對(duì)象有個(gè)連接字符串的屬性,你需要設(shè)置
2、做一個(gè)oledbcommand對(duì)象,這個(gè)對(duì)象有個(gè)操作字符串(SQL語(yǔ)句)需要設(shè)置
3、打開oledbconnection對(duì)象
4、執(zhí)行oledbcommand對(duì)象
5、關(guān)閉oledbconnection對(duì)象
程序結(jié)束,希望對(duì)你有幫助
用SQL數(shù)據(jù)庫(kù)。VB.NET是微軟公司在2002年推出的一種開發(fā)基于.Net平臺(tái)應(yīng)用程序的開發(fā)語(yǔ)言,vb.net在單擊回車鍵時(shí)將數(shù)據(jù)寫入數(shù)據(jù)庫(kù)需要用SQL數(shù)據(jù)庫(kù)。
你這是向sql后臺(tái)數(shù)據(jù)庫(kù)寫數(shù)據(jù)嗎?
sqldataadapter1.update 改須指定有效的updatecommand,我一直沒有看到
給你個(gè)例子你看吧:
'首先指定有效的UpdateCommand
sqlstr = "insert into Playlist(PlayName,PlayPath)values('" TextBox4.Text.Trim "','" TextBox5.Text.Trim "')"
Module1.Mycommand.CommandText = sqlstr
'增加新一行(此行必須,要不不能與后臺(tái)同步,并且后面調(diào)用update會(huì)出錯(cuò))
Module1.MyDataSet.Tables("Music").Rows.Add()
Module1.MyDataAdaPter.InsertCommand = Module1.Mycommand
Module1.MyDataAdaPter.Update(Module1.MyDataSet, "Music")
MsgBox("增加數(shù)據(jù)成功??!")
使用.net下的system.sql.sqlclint類庫(kù)下的sqlconnent;sqlcommand類進(jìn)行寫入操作
分享文章:vb.net寫入數(shù)據(jù)庫(kù) vb將數(shù)據(jù)寫入數(shù)據(jù)庫(kù)
當(dāng)前網(wǎng)址:http://jinyejixie.com/article18/dosssdp.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站策劃、自適應(yīng)網(wǎng)站、關(guān)鍵詞優(yōu)化、建站公司、外貿(mào)建站、定制開發(fā)
聲明:本網(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)