Visual Basic

|alzaabi20xx wrote:
ok then i made my Database using MS Access and my tables order as following:


----------------------------------------------------
tblContacts:                  Attendance
----------------------------------------------------
ID (PK)    "Text"           EmpID "Text
FirstName  "Text"           DDate "Date/Time
SurName    "Text"

-----------------------------------------
Customer                Products
============         +++++++++++++
CustomerID(PK)        Product_ID(PK) 
CustomerName          Product_Name
Product_ID(FK)        Product_Descreption

' Open a database connection.
Dim strConnection As String = _
   "Data Source=localhost;Initial Catalog=Northwind;" _
   & "Integrated Security=True"
Dim cn As SqlConnection = New SqlConnection(strConnection)
cn.Open(  )
 
' Set up a data adapter object.
Dim strSql As String = "SELECT * FROM Customers" _
   & " WHERE City = 'Buenos Aires' AND Country = 'Argentina'"
Dim da As SqlDataAdapter = New SqlDataAdapter(strSql, cn)
 
' Load a data set.
Dim ds As DataSet = New DataSet(  )
da.Fill(ds, "Customers")
 
' Set up a new data adapter object.
strSql = "SELECT Orders.*" _
   & " FROM Customers, Orders" _
   & " WHERE (Customers.CustomerID = Orders.CustomerID)" _
   & "    AND (Customers.City = 'Buenos Aires')" _
   & "    AND (Customers.Country = 'Argentina')"
da = New SqlDataAdapter(strSql, cn)
 
' Load the data set.
da.Fill(ds, "Orders")
 
' Close the database connection.
cn.Close(  )
 
' Create a relation.
ds.Relations.Add("CustomerOrders", _
   ds.Tables("Customers").Columns("CustomerID"), _
   ds.Tables("Orders").Columns("CustomerID"))

Private Sub cmdfirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdfirst.Click
       'Move to the First Record
       Try
           Me.BindingContext(DataSet11, "Property").Position = 0


       Catch  ex As OleDb.OleDbException
           MessageBox.Show("Canot Navigate, Because the is no Connection to the Server", "WARNING", MessageBoxButtons.OK, MessageBoxIcon.Information)
       End Try
   End Sub

Private Sub cmdprevious_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdprevious.Click

    ''' This will obviously point to the Previous record of the Dataset
    Try
        Me.BindingContext(DataSet11, "table").Position -= 1

    Catch ex  ex As OleDb.OleDbException
        MessageBox.Show("Canot Navigate, Because the is no Connection to the Server", "WARNING", MessageBoxButtons.OK, MessageBoxIcon.Information)

    End Try

End Sub

'''Display Next Record
''' This will obviously point to the Next record of the Dataset
Try
    Me.BindingContext(DataSet11, "property").Position += 1


Catch ex As OleDb.OleDbExceptionn
    MessageBox.Show(ex.Message)


End Try

'move to the last Record
        Try
            With Me.BindingContext(DataSet11, "property")
                .Position = .Count - 1
            End With
        Catch ex As OleDb.OleDbExceptionn
            MessageBox.Show(ex.message)

        End Try

SqlDataAdapter1.Update(DataSet11, "Property")

Me.BindingContext(DataSet11, "property").Position += 1

First: I want the value of the selected item in a combobox / listbox, how do I that. It is not with me.combobox.valuemember, but what is the correct code of it?

dim str as string<br />
dim id as string<br />
str=combobox1.selectedItem<br />
id=combobox1.selectedValue

Next: If I save all the values of the fields on a form, then I clean all the fields with: me.textbox.text = "", but how does I do that with a combobox / listbox?

Dim a As New System.Windows.Forms.Control<br />
For Each a In me.Controls<br />
      If TypeOf a Is TextBox Then<br />
        a.Text=""<br />
      elseif TypeOf a Is ComboBox then<br />
a.selectedIndex=-1<br />
elseif TypeOf a Is ListBox then<br />
a.selectedIndex=-1<br />
<br />
      End If<br />
            Next

<br />
elseif TypeOf a Is ComboBox then<br />
a.selectedIndex=-1<br />

Also the combobox is still filled with the value I have entered in the field, so the code of
elseif TypeOf a Is ComboBox then
a.selectedIndex=-1

doesn't work.