VB.NET Syntax (Toggle Plain Text)
Private Sub upload_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim sqlcn As New SqlConnection("server=shailu;uid=sa;pwd=;database=master;") Dim sadapt As New SqlDataAdapter("select * from abcd", sqlcn) Dim ds As DataSet = New DataSet sadapt.Fill(ds, "abcd") DataGridView1.DataSource = ds.Tables("abcd") End Sub Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick Dim i, j As Integer i = DataGridView1.CurrentRow.Index TextBox1.Text = DataGridView1.Item(0, i).Value TextBox2.Text = DataGridView1.Item(1, i).Value TextBox3.Text = DataGridView1.Item(2, i).Value TextBox4.Text = DataGridView1.Item(3, i).Value End Subvb Syntax (Toggle Plain Text)
txtTest.text = Me.DataGridView.SelectedCells(8).ValueVB.NET Syntax (Toggle Plain Text)
Dim i as Integer For i=0 to DataGridView1.Rows.Count INSERT INTO tableName(Field1,Field2) VALUES('" & DataGridView1.Item(0,i).value & "','" & DataGridView1.Item(1,i) & "')" Next
No comments:
Post a Comment