VB.NET DATAGRIDVIEW写入数据库

Private Sub Button2_Click(ByVal sender As SystemObject, ByVal e As SystemEventArgs) Handles Button2Click

Dim sqlStr As String = "insert into tb values("

Dim i As Integer

For i = 0 To DataGridView1ColumnsCount - 1

sqlStr &= "'" & DataGridView1Rows(DataGridView1RowsCount - 1)Cells(i) & "'"

If i < DataGridView1ColumnsCount - 1 Then sqlStr &= ","

Next

sqlStr &= ")"

Dim con As New SqlConnection(connectionString) '这个自己写去

conOpen()

Dim cmd As New SqlCommand(sqlStr, con)

Try

Dim result As Integer = cmdExecuteNonQuery()

If result > 0 Then

MsgBox "添加数据成功"

Else

MsgBox "添加数据失败"

End If

Catch (ex As Exception)

MsgBox "添加数据过程发生异常,原因:" & exMessage

End Try

End Sub

先把adodc控件连接到数据库文件里的一个表。

然后代码如下，

adodc1recordset!字段名1=变量名1

adodc1recordset!字段名2=变量名2

adodc1recordset!字段名3=变量名3

adodc1recordset!字段名4=变量名4

……

……

……

在最后加上一句

adodc1recordsetupdate

'更新数据库

Private Sub Command1_Click()

Dim fileadd As String

CommonDialog1ShowOpen

CommonDialog1Filter = "xls文件(xls)|xls" '选择你要的文件

fileadd = CommonDialog1FileName

If fileadd = "" Then Exit Sub

Set xlApp = CreateObject("ExcelApplication") '创建EXCEL对象

Set xlBook = xlAppWorkbooksOpen(fileadd) '打开已经存在的EXCEL工件簿文件

xlAppVisible = False ' = True '设置EXCEL对象可见（或不可见）

Set xlSheet = xlBookWorksheets(1) '设置活动工作表

For R = 1 To 99999 '行循环

If LTrim(RTrim(xlBookWorksheets(1)Cells(R, 1))) <> "" Then

Call Dosql("INSERT INTO CB_JiXieFeiYong (danwei_name) VALUES (" & LTrim(RTrim(xlBookWorksheets(1)Cells(R, 1))) & ")")

Else

R = 99999 + 1

End If

Next R

xlAppDisplayAlerts = False '不进行安全提示 '

Set xlSheet = Nothing '

Set xlBook = Nothing '

xlAppQuit '

Set xlApp = Nothing

Unload Me

End Sub

Private Sub Dosql(ByVal tn As String) '执行SQL语句

Dim sql As String

Set conn = New ADODBConnection

connConnectionString = condstr

connOpen

connExecute tn

connClose

End Sub

这段代码估计对你有用。

用VB做，将Excel数据导入SQL数据库中：

法一:可以试着用VB书写一段调用SQL Server数据库DTS的代码,然后就可以像直接使用DTS进行数据导入一样就行Excel与SQL Server数据之间的迁移了。

方法二:可以用VB来 作EXCEL,然后一条数据一条数据的 入到数据库中,这种方法不 使用,因为VB 作EXCEL是非常慢的,如果数据量太大,很有可能会造成宕机。

以上就是关于VB.NET DATAGRIDVIEW写入数据库全部的内容，包括:VB.NET DATAGRIDVIEW写入数据库、急求！！怎样将VB中的数据导入数据库中、用vb将Excel中的数据写入数据库等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！