[Mido9]

تفضل عزيزي هذا هو الكود كاملاً

PHP كود :

Dim saveintoo As New OleDb.OleDbCommand
        Dim constrr As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & Application.StartupPath & "\db.mdb"
        Dim connn As New OleDb.OleDbConnection(constrr)
        Dim DataSett As New DataSet
        Dim SQLstrr As String
        SQLstrr = "SELECT * From factor_daora Where factor_daoraa_name=('" & TextBox10.Text & "')Order by factor_daora_id"
        connn.Open()
        Dim dataadapterr As New OleDb.OleDbDataAdapter(SQLstrr, connn)
        dataadapterr.Fill(DataSett, "factor_daora")
        connn.Close()
        ComboBox21.DataSource = DataSett.Tables("factor_daora")
        ComboBox21.DisplayMember = "factor_daora_id"
        TextBox21.Text = ComboBox21.Items(1).ToString '(الترتيب - 1)'