Private Sub btnFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFirst.Click Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNext.ClickĬmCurrency.Position = cmCurrency.Position + 1 Private Sub btnPrevious_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrevious.ClickĬmCurrency.Position = cmCurrency.Position - 1
Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.ClickĭsDataset.Tables("mstCompanies").Rows(cmCurrency.Position).Item("Name") = txtName.TextĭsDataset.Tables("mstCompanies").Rows(cmCurrency.Position).Item("Address") = txtAddress.TextĭsDataset.Tables("mstCompanies").Rows(cmCurrency.Position).Item("City") = txtCity.Text Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.ClickĭsDataset.Tables("mstcompanies").Rows.Add(newrow) LastUID = dsDataset.Tables("mstcompanies").Rows(dsDataset.Tables("mstcompanies").Rows.Count - 1).Item("UID") Newrow = dsDataset.Tables("mstCompanies").NewRow Private Sub btnNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNew.Click Public Function bindFields(ByVal dtSrc As DataTable) (New ("Table", "mstCompanies"))ĬmCurrency = BindingContext(DataGridView1.DataSource, DataGridView1.DataMember) SqlDataAdapter.SelectCommand = sqlCommandĬmdBuilder = New (sqlDataAdapter)ĭsDataset.Tables(0).TableName = "mstcompanies" SqlCommand.CommandText = "select * from mstcompanies" Sqlconnection.ConnectionString = "Data Source=Manoj Initial Catalog=imported_data User ID=sa Password=sa" Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim sqlconnection As New ĭim sqlCommand As New ĭim sqlDataAdapter As New ĭim cmdBuilder As
0 kommentar(er)
