Visual Basic

<br />
 For Each ct As Control In Me.Controls<br />
         MessageBox.Show(ct.GetType.ToString)         <br />
      Next

For Each ct As Control In Me.Controls<br />
         MessageBox.Show(ct.GetType.ToString)<br />
         ct.BackColor = Color.AntiqueWhite<br />
         If ct.GetType.Name.Equals("TextBox") Then<br />
            Dim tb As TextBox 'here you can use SSTab or whatever <br />
            tb = ct<br />
            tb.BackColor = Color.Blue<br />
         End If<br />
      Next

Public Class Form2 : Inherits Form
   Private selectedItems() As Object
   '
   Private Sub okButton_Click(ByVal sender As System.Object, _
                              ByVal e As System.EventArgs) _
                              Handles okButton.Click
      ' Copy selected items to array member variable.
      ' This array is returned on GetSelectedItems().
      ReDim selectedItems(myListBox.Items.Count - 1)
      myListBox.Items.CopyTo(selectedItems, 0)
   End Sub
   '
   Public Function GetSelectedItems() As Object()
      Return selectedItems
   End Function
End Class

Dim myForm As New Form2
Dim selectedItems() As Object

myForm.ShowDialog()
selectedItems = myForm.GetSelectedItems()

Mohammed Amine wrote:

no sql query
you have to use the dataset & the table in the dataset you have that record in

Mohammed Amine wrote:

yeah right , but how can he show filled fields without using dataset ??

Mohammed Amine wrote:

i think if he want to update on database he is obliged to use it

SwatiPathania wrote:

Can anyone tell me the code (in vb.net) to delete one record from the database.

Dim conn As SqlConnection = New SqlConnection(connectionString)
Dim cmd As SqlCommand = New SqlCommand
cmd.Connection = conn
cmd.CommandText = "DELETE FROM MyTable WHERE PrimaryKey = @primaryKey"
cmd.Parameters.Add("@primaryKey", primaryKeyValue)
cmd.ExecuteNonQuery()

Joshua Quick wrote:

I thought it was only queries, because everyone always referred to it as "Parameterized Queries".

Guffa wrote:

Everything in SQL are queries