如何用datagrid控件操作SQL数据库

Question

我在windows窗体里添加了一个datagrid控件并且连接了SQL数据库，请问，我怎么能在datagrid控件里实现对该数据库的增加，删除，修改操作呢？请附上具体的代码，谢谢。 附上连接SQL数据库的代码： 
Dim myconn As SqlConnection = New SqlConnection("server=T01;uid=sa;pwd=;database=grandstar") '连接SQL数据库 
        Dim mydata As SqlDataAdapter '定义各个控件的类型 
        Dim myset As New DataSet 
        Dim mytable As New DataTable 
        Dim sql As String 
        sql = "select * from ontime_month order by 來紗日期" 
        mydata = New SqlDataAdapter(sql, myconn) 
        mydata.Fill(myset, "ontime_month") 
        ontimedatagrid.DataSource = myset.Tables("ontime_month")

Answer 1

把DataGrid的AllowUpdate，AllowDelete等属性全部设为真，就能直接在里面编辑了。

Answer 2

好象没有看到这两个选项我用的软件是Microsoft Visual Studio .NET 2003

Answer 3

下面是部分代码,请参考
Private Sub Form_Load()
    '连接字符串
    Adodc1.ConnectionString = "driver={sql server};server=" + Trim(server) + ";uid=" + Trim(user) + ";pwd=" + Trim(password) + ";database=erp1"
    '查询users表中全部信息
    Adodc1.RecordSource = "select * from businessman"
    '用datagrid显示查询信息
    Set DataGrid1.DataSource = Adodc1
    '刷新窗口信息
    refresh_businessman
End SubPrivate Sub lbladd_Click()
    '标明操作为添加而非修改
    Frmbusinessmanedit.modify = False
    Frmbusinessmanedit.Show 1
    '刷新供应商管理界面
    refresh_businessman
End SubPrivate Sub lblmodify_Click()
    Frmbusinessmanedit.modify = True
    Frmbusinessmanedit.oribusinessmanid = Adodc1.Recordset.Fields(0)
    '把待修改信息添加到编辑窗口
    Frmbusinessmanedit.txtbusinessmanid = Trim(Adodc1.Recordset.Fields(0))
    Frmbusinessmanedit.Txtbusinessmanname = Trim(Adodc1.Recordset.Fields(1))
    Frmbusinessmanedit.Txtcountry = Trim(Adodc1.Recordset.Fields(2))
    Frmbusinessmanedit.Txtprovince = Trim(Adodc1.Recordset.Fields(3))
    Frmbusinessmanedit.Txtcity = Trim(Adodc1.Recordset.Fields(4))
    Frmbusinessmanedit.Txtaddress = Trim(Adodc1.Recordset.Fields(5))
    Frmbusinessmanedit.Txtlinkman = Trim(Adodc1.Recordset.Fields(6))
    Frmbusinessmanedit.Txttelephone = Trim(Adodc1.Recordset.Fields(7))
    Frmbusinessmanedit.Txtfax = Trim(Adodc1.Recordset.Fields(8))
    Frmbusinessmanedit.txtbusinessmanid.Enabled = False
    Frmbusinessmanedit.Caption = "修改供应商信息"
    Frmbusinessmanedit.Show 1
    refresh_businessman
End Sub
Private Sub lbldelete_Click()
    Dim tempbusinessmanid As String
    '保存待删除记录的ID
    tempbusinessmanid = Adodc1.Recordset.Fields(0)
    '弹出删除确认对话框
    If MsgBox("是否删除“" + Adodc1.Recordset.Fields(1) + "”?", vbYesNo, "确认") = vbYes Then
    mybusinessman.delete (tempbusinessmanid)
    MsgBox "删除成功"
    End If
    refresh_businessman
End Sub
Private Sub lblback_Click()
Unload Me
End Sub
Public Sub refresh_businessman()
    Adodc1.Refresh
    If Adodc1.Recordset.RecordCount = 0 Then
        lblmodify.Enabled = False
        lbldelete.Enabled = False
    Else
        lblmodify.Enabled = True
        lbldelete.Enabled = True
    End If
End Sub