أنا أريد اختيار اسم مستخدم من كمبوبوكس ليظهر بياناته في تكستات ليتم تحريرها ومن ثم حفظها
PHP كود :
Private Sub bt_Edit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Edit.Click
Edit_Or_Save = 0
Call conecDB()
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
'عرض كل بيانات المستخدم بعد اختياره من الكمبو بوكس
Try
Call initCMD()
Dim Cindx As Integer = Val(Cmb_Users.SelectedIndex + 1)
SQL = "Select * from Tab_Users where G_ID= '" & Cindx & "' "
Da = New SqlDataAdapter(SQL, connDB)
DS = New DataSet
'DS.Clear()
Da.Fill(DS, "tab_Users")
Txt_User_ID.Text = DS.Tables("Tab_Users").Rows(Cindx).Item(1)
Txt_Pwd.Text = ds.Tables("Tab_Users").Rows(Cindx).Item(2)
'Cmb_User_Kind.Text = ds.Tables("Tab_Users").Rows(0).Item(3)
Da.Dispose()
Da = Nothing
closeDB()
Catch ex As Exception
MsgBox(ex.Message)
End Try
'تعبئة الكمبيو بوكس من قاعدة البيانات
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
'End Sub
End Sub
مع العلم أن هذه الكمبو بوكس التي أقوم بالاختيار منها تم تعبئتها في الفورم لود من نفس الجدول ( المستخدمين )
عند الضغط علي زر تحرير تظهر لي الرسالة التالية
بالصورة
