1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
|
Imports System.Data.SqlClient
Public Class Form1
Private cs As New SqlConnection("Data Source=HANAFI-PC\SQLEXPRESS2; Initial Catalog=ADO_PRACTICE1;integrated security=true; ")
Private da As New SqlDataAdapter("select *from tblContacts", cs)
Private ds As New DataSet
Private cmb As New SqlCommandBuilder(da)
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Try
da.Fill(ds, "tblContacts")
dg.DataSource = ds.Tables("tblContacts")
Catch ex As Exception
End Try
End Sub
Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click
Dim x As Integer
da.UpdateCommand = cmb.GetUpdateCommand
End Sub
End Class |
Partager