my vb.net code

[JAYRAJ GIRI]

Public Class Form12 Dim ds As New DataSet Dim da As New SqlClient.SqlDataAdapter Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim CN As New SqlClient.SqlConnection CN.ConnectionString = "Data Source=homepc\sqlexpress;Initial Catalog=Northwind;Integrated Security=True" Dim cmd As New SqlClient.SqlCommand cmd.Connection = CN cmd.CommandText = "Select * From Customers" da.SelectCommand = cmd da.Fill(ds, "Customers") da.Fill(ds, "CustomersDummy") Dim PK(0) As DataColumn PK(0) = ds.Tables("Customers").Columns("CustomerId") ds.Tables("Customers").PrimaryKey = PK MsgBox("ok") Me.DataGridView1.DataSource = ds Me.DataGridView1.DataMember = "Customers" End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click MsgBox(Me.ds.Tables.Count) Me.ComboBox1.Items.Clear() For Each tbl As DataTable In ds.Tables Me.ComboBox1.Items.Add(tbl.TableName) Next End Sub Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged Dim tbl As DataTable = ds.Tables(Me.ComboBox1.SelectedItem) Me.ComboBox2.Items.Clear() For Each col As DataColumn In tbl.Columns Me.ComboBox2.Items.Add(col.ColumnName) Next End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim tbl As DataTable = ds.Tables(Me.ComboBox1.SelectedItem) Dim Ans As String = "" For Each dr As DataRow In tbl.Rows Ans &= dr.Item(Me.ComboBox2.SelectedItem) & ", " Next MsgBox(Ans) End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim dr As DataRow Dim Str As String = InputBox("Enter Customerid") dr = ds.Tables("Customers").Rows.Find(Str) If dr Is Nothing Then MsgBox("Not found...") Exit Sub End If MsgBox(dr.Item("ContactName") & "-" & dr.Item("Country")) dr.BeginEdit() dr.Item("ContactName") = "Mr. " & dr.Item("ContactName") dr.Item("Country") = dr.Item("Country").ToString.ToUpper dr.End

[Luc Pattyn]

Since you didn't ask a question I will: do you already have any idea why you are getting more 1-votes than you have posted messages around here? :)

Luc Pattyn [Forum Guidelines] [My Articles]

---

- before you ask a question here, search CodeProject, then Google - the quality and detail of your question reflects on the effectiveness of the help you are likely to get - use the code block button (PRE tags) to preserve formatting when showing multi-line code snippets

---

[Dave Kreskowiak]

Well, it's obvious you don't have a clue how to use a forum. You have 20 posts, and have yet to ask a question anyone can answer.

A guide to posting questions on CodeProject[^]
Dave Kreskowiak Microsoft MVP Visual Developer - Visual Basic
     2006, 2007, 2008

[dan sh]

Are you using this site as a tool for source control?

Time is the best teacher; unfortunately it kills all of its students. जय हिंद

[Christian Graus]

This guy is a retard. Seriously, he posts like this every day.

Christian Graus Driven to the arms of OSX by Vista.