السلام عليكم ..
كيف حالك اخواني .. ؟
بستخدم VB.NET2005
شاهد الصورة بالمرفقات
المطلوب ان المستخدم يختار من الكمبو بوكس الجنس او لاحالة الاجتماعية او او او غيره ..
انا عملت التكست بوكس يختفي عند اrun والكمبو يظهر ويتم الاختيار منه ..
المشكلة انه عند اما اعمل حفظ او update بيعمل حفظ لجميع البينات ماعدا الي تم ادخالهم من خلال الكمبو بوكس ..
بحثت وقلت يمكن المشكلة ان الكمبو مش متصل بالداتا بيز .. هو فعلا مش متصل..
لأن لو تم توصيله بيصبح الكمبو لست بيعرض جميع البينات الي في ال حقل ( حقل الحالة الاجتماعية او غيره .. )
بيصبح كده ..
متزوج
اعزب
اعزب
متزوج
متزوجة
:
:
فبالتالي لغيت الاتصال ..
وحاولت اعمل الكمبو بوكس
Combobox1.selectedvalue=textbox11.text
مامشي الحال selecteditem
مامشي الحال كمان
المشكلة كالتالي ..
اريد اربط الكمبو بوكس بالتكست بوكس الي تحته ..
بالمناسبة التكست بوكس متوصل بالداتا ست وبيعرض تمام ..
اريد اربط الكمبو بوكس بالتكست بوكس الي تحته بحيث الي يتم اختياره ف الكمبو بوكس يروح للتكست بوكس قبل ماعمل حفظ بحيث لو اختار " ذكر " يبعت للتكست بوكس " ذكر " وتتسجل .. :) طولت عليكم ؟
صحيح انا مش عارف اذا دي المشكلة ليها علاقة بال ADO او لأ بس انا قلت مدام فيها جداول يبقى أدو ,,
إن شاء الله اكون وصلت الفكرة ,.,,
وهذا الكود ..
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
Dim instance_adapter As New OleDbDataAdapter("SELECT * FROM n_backup", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|n_Backup.mdb;User Id=admin;Password=;")
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If ComboBox4.SelectedValue = " ذكر " Then
TextBox6.Text = " ذكر "
End If
GroupBox3.Show()
BindingSource1.AddNew()
TextBox1.ReadOnly = False
TextBox2.ReadOnly = False
TextBox3.ReadOnly = False
TextBox4.ReadOnly = False
TextBox5.ReadOnly = False
TextBox6.ReadOnly = False
TextBox7.ReadOnly = False
TextBox8.ReadOnly = False
TextBox9.ReadOnly = False
TextBox10.ReadOnly = False
TextBox11.ReadOnly = False
TextBox12.ReadOnly = False
DataGridView1.ReadOnly = False
TextBox6.Hide()
TextBox7.Hide()
TextBox9.Hide()
TextBox5.Hide()
ComboBox2.Show()
ComboBox3.Show()
ComboBox4.Show()
DateTimePicker1.Show()
TextBox1.BackColor = Color.Ivory
TextBox2.BackColor = Color.Ivory
TextBox3.BackColor = Color.Ivory
TextBox4.BackColor = Color.Ivory
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'N_BackupDataSet.jobs' table. You can move, or remove it, as needed.
'TODO: This line of code loads data into the 'N_BackupDataSet.employ' table. You can move, or remove it, as needed.
Me.EmployTableAdapter.Fill(Me.N_BackupDataSet.employ)
GroupBox3.Hide()
GroupBox5.Hide()
DataGridView1.Hide()
ComboBox2.Hide()
ComboBox3.Hide()
ComboBox4.Hide()
DateTimePicker1.Hide()
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
Me.Close()
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox8.Text = "" Or TextBox10.Text = "" Then
MsgBox(" من فضلك أكمل البيانات المتبقية")
Else
' EmployTableAdapter.Update(N_BackupDataSet.employ)
Me.EmployTableAdapter.Update(N_BackupDataSet.employ)
End If
GroupBox3.Hide()
TextBox1.ReadOnly = True
TextBox2.ReadOnly = True
TextBox3.ReadOnly = True
TextBox4.ReadOnly = True
TextBox5.ReadOnly = True
TextBox6.ReadOnly = True
TextBox7.ReadOnly = True
TextBox8.ReadOnly = True
TextBox9.ReadOnly = True
TextBox10.ReadOnly = True
TextBox11.ReadOnly = True
TextBox12.ReadOnly = True
DataGridView1.ReadOnly = True
TextBox6.Show()
TextBox7.Show()
TextBox9.Show()
TextBox5.Show()
ComboBox2.Hide()
ComboBox3.Hide()
ComboBox4.Hide()
DateTimePicker1.Hide()
TextBox1.BackColor = Color.White
TextBox2.BackColor = Color.White
TextBox3.BackColor = Color.White
TextBox4.BackColor = Color.White
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
On Error GoTo 0
BindingSource1.MoveNext()
End Sub
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
On Error GoTo 0
BindingSource1.MoveFirst()
End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
On Error GoTo 0
BindingSource1.MovePrevious()
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
On Error GoTo 0
BindingSource1.MoveLast()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
On Error GoTo -1
BindingSource1.CancelEdit()
TextBox1.ReadOnly = True
TextBox2.ReadOnly = True
TextBox3.ReadOnly = True
TextBox4.ReadOnly = True
TextBox5.ReadOnly = True
TextBox6.ReadOnly = True
TextBox7.ReadOnly = True
TextBox8.ReadOnly = True
TextBox9.ReadOnly = True
TextBox10.ReadOnly = True
TextBox11.ReadOnly = True
TextBox12.ReadOnly = True
DataGridView1.ReadOnly = True
TextBox6.Show()
TextBox7.Show()
TextBox9.Show()
TextBox5.Show()
ComboBox2.Hide()
ComboBox3.Hide()
ComboBox4.Hide()
DateTimePicker1.Hide()
TextBox1.BackColor = Color.White
TextBox2.BackColor = Color.White
TextBox3.BackColor = Color.White
TextBox4.BackColor = Color.White
GroupBox3.Hide()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
GroupBox5.Show()
End Sub
Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
GroupBox5.Hide()
End Sub
Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
If TextBox13.Text = "" Then
MsgBox("أدخل ماتريد البحث عنه")
Exit Sub
End If
Dim myCommand As New OleDbCommand
'If ComboBox1.Text = "إسم الموظف" Then
'myCommand.CommandText = "Select * from Employ where name=" & TextBox13.Text
'End If
If ComboBox1.Text = "إسم الموظف" Then
myCommand.CommandText = "Select * from Employ where name='" & TextBox13.Text + "'"
End If
If ComboBox1.Text = "كود الموظف" Then
myCommand.CommandText = "Select * from Employ where Employ_no=" & TextBox13.Text
End If
myCommand.Connection = EmployTableAdapter.Connection
myCommand.Connection.Open()
'yourDataSet.Employ.Row.Clear()
Me.N_BackupDataSet.employ.Rows.Clear()
Me.N_BackupDataSet.employ.Load(myCommand.ExecuteReader)
myCommand.Connection.Close()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TextBox1.BackColor = Color.Ivory
TextBox2.BackColor = Color.Ivory
TextBox3.BackColor = Color.Ivory
TextBox4.BackColor = Color.Ivory
TextBox1.ReadOnly = False
TextBox2.ReadOnly = False
TextBox3.ReadOnly = False
TextBox4.ReadOnly = False
TextBox5.ReadOnly = False
TextBox6.ReadOnly = False
TextBox7.ReadOnly = False
TextBox8.ReadOnly = False
TextBox9.ReadOnly = False
TextBox10.ReadOnly = False
TextBox11.ReadOnly = False
TextBox12.ReadOnly = False
GroupBox3.Show()
DataGridView1.ReadOnly = False
TextBox6.Hide()
TextBox7.Hide()
TextBox9.Hide()
TextBox5.Hide()
ComboBox2.Show()
ComboBox3.Show()
ComboBox4.Show()
DateTimePicker1.Show()
End Sub
Private Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click
DataGridView1.Hide()
GroupBox1.Show()
GroupBox4.Show()
End Sub
Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click
DataGridView1.Show()
GroupBox1.Hide()
GroupBox4.Hide()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If MsgBox("هل أنت متأكد ؟", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
BindingSource1.RemoveCurrent()
EmployTableAdapter.Update(N_BackupDataSet.employ)
End If
End Sub
Private Sub ComboBox4_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox4.SelectedIndexChanged
ComboBox4.Text = TextBox6.Text
End Sub
End Classرجاء خاص للمشرفين ..
انا حاولت قدر الامكان ابعد عن المخالفات .. وعملت زي ماباقي الناس بتعرض مشاكلهم ..
جزى الله الجميع خيرا
