模块里：
Module Module2
    Public con As New SqlClient.SqlConnection("Data Source=XP-8925;initial Catalog=小型数据库;User ID=sa;password=1234")
  End Module
窗体代码：
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim sql As String
        Dim dt As New DataTable()
        sql = "select * from 库存"  '打开数据库
        Dim rs As New SqlDataAdapter(sql, con)
        rs.Fill(dt)
        DataGridView1.DataSource = dt
    End Sub
  
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
       此代码想要更新SQL数据库该怎么写？谢谢。
    End Sub
以上代码运行正常《我的问题是；怎么把修改过的数据更新到SQL数据库.》
   菜鸟求帮助！！！

请搜索 update 语句及其用法

能不能给个答案啊，我都搜了好几天了。

上课教过..但是我数据库的课没听= =
给你个老师上课的范例看看?

这个例子应该行

我想要批量添加，不用文本框的那种，用表格控件直接添加的。

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_modi.Click
        Dim dsetchanges As DataSet '创建一个新数据集来保存对主数据集所做的更改

        '   bmdata.EndCurrentEdit()   '停止当前的任何编辑
        dsetchanges = CType(Ds.GetChanges, DataSet) '获得对主数据的更改
        If (Not (dsetchanges) Is Nothing) Then    '检查是否做了任何更改
            Try



                'Da.Update(dsetchanges)  '把数据集changedrows对象中的数据更新到数据源
                Dim sqlBulider As SqlCommandBuilder

                sqlBulider = New SqlCommandBuilder(Da)
                openConn()
                Da.Update(dsetchanges, openfrm) '提交更改的数据
                'Ds.Merge(dsetchanges)
                Ds.AcceptChanges()
                'If (Da.Update(Ds) > 0) Then
                '    MessageBox.Show("数据更新成功！")
                'End If

                '  Ds.Merge(dsetchanges)
                Conn.Close()
            Catch updateexception As System.Exception
                Throw updateexception
                Button_modi.Enabled = False
            Finally
                Conn.Close()
            End Try
        End If
    End Sub
vs2008中通过了的。

Da.Update(dsetchanges, openfrm) '提交更改的数据 这句话 openfrm这个提示未申明。

Imports System.Data.SqlClient
Imports System.Data
Public Class Form1
    Dim cn As SqlConnection
    Dim da As SqlDataAdapter
    Dim ds As DataSet
    Dim dt As DataTable
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            cn = New SqlConnection()
            cn.ConnectionString = "Data Source=XP-201311231519;Initial Catalog=小型数据库;Integrated Security=False;User ID=sa;Password=123456;"
            cn.Open()
            da = New SqlDataAdapter("select * from 加工量", cn)
            ds = New DataSet
            da.Fill(ds, "mytb1")
            Dim dr As DataRow
            dr = ds.Tables("mytb1").NewRow
            For i = 0 To DataGridView1.Rows.Count - 1
                dr("产品编码") = DataGridView1.Rows(i).Cells(1).Value
                dr("产品名称") = DataGridView1.Rows(i).Cells(2).Value
                dr("批次") = DataGridView1.Rows(i).Cells(3).Value
                ds.Tables("mytb1").Rows.Add(dr)
                Dim scb As New SqlCommandBuilder(da)
                da.Update(ds, "mytb1")
                DataGridView1.DataSource = ds.Tables("mytb1")
            Next
            cn.Close()
        Catch ex As Exception
        End Try
    End Sub
End Class
要不帮我看一下这个，为什么会有问题？就是dr("产品编码") = DataGridView1.Rows(i).Cells(1).Value
这句话，Rows(i)这个i用数字代替就可以用不出错，用变量就不行。求高人指点迷津。（代码是从书上抄的，源代码DataGridView1.Rows(i).Cells(1).Value这里是文本框）。

[ 本帖最后由 lin7516 于 2014-3-12 10:02 编辑 ]

谢谢，问题自己解决。