[حماده ممدوح البحيرى]

مع احترااااااااااااااامى الشديد لحضرتك بس اى دا
فين الكود
او فين الحل ف اللى حضرتك كتبتة
حضرتك انت حتى لو هتعاملنى كمحترف مش هتكتب لى الكود دا

حضرتك لو حابب تساعد انا محتاج حل لمشكلتى بأى نوع اتصال حضرتك تحبه المهم عندى ان التيكست بوكس


انا لدى الكود دا عشان اجلب بيانات معينة داخل كومبوبوكس
انا محتاجه اطبقة على تيكست بوكس

Public Sub load_cat_tbl()
' كودا استدعاء التصنيفات داخل الكومبوبوكس
dt = New DataTable
Cmbcat.DataSource = Nothing
Cmbcat.Items.Clear()
Cmbcat.Text = vbNullString
dt.Clear()
cmd = New SqlCommand("SELECT cat_ID,catNAME from cat_tbl", Con) '
Try
If Con.State = 1 Then Con.Close()
Con.Open()
dt.Load(cmd.ExecuteReader)
cmd = Nothing
Catch ex As Exception
MessageBox.Show(ex.Message)
Con.Close()
End Try
If dt.Rows.Count <> 0 Then
With Cmbcat
.DataSource = dt
.DisplayMember = "catname"
.ValueMember = "cat_id"
End With
End If
If Cmbcat.Items.Count > 0 Then Cmbcat.SelectedIndex = -1
End Sub