|
Dim dsAdoSbs As DataSet Friend WithEvents cmdSelectSuppliers As New SqlCommand() Friend WithEvents cmdInsertSuppliers As New SqlCommand() Friend WithEvents cmdUpdateSuppliers As New SqlCommand() Friend WithEvents cmdDeleteSuppliers As New SqlCommand() Friend WithEvents daSuppliers As New SqlDataAdapter() Public Sub New() ' This call is required by the Windows Form Designer. InitializeComponent() ' Add exercise code here: daSuppliers.SelectCommand = cmdSelectSuppliers daSuppliers.InsertCommand = cmdInsertSuppliers daSuppliers.UpdateCommand = cmdUpdateSuppliers daSuppliers.DeleteCommand = cmdDeleteSuppliers cmdSelectSuppliers.CommandText = "SELECT * FROM Suppliers" cmdSelectSuppliers.Connection = cnAdoSbs |