<![CDATA[منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - قسم أسئلة قواعد البيانات تحت بيئة الـ.NET]]> https://vb4arb.com/vb/ Wed, 22 Apr 2026 18:23:37 +0000 MyBB <![CDATA[ممكن كود اضافة كلمة مرور لملف اكسس]]> https://vb4arb.com/vb/showthread.php?tid=55187 Mon, 06 Oct 2025 16:53:41 +0000 justforit]]> https://vb4arb.com/vb/showthread.php?tid=55187 السلام عليكم ورحمة الله و بركاته
الاجراء التالي يضغط ملف اكسس ويتحكم بكلمة المرور اذا موجودة يغيرها او يحذفها وفق المعطيات لكن كيف اجعل الاجراء يضيف كلمة مرور ان لم تكن موجودة في ملف الاكسس اقصد اذا كان ملف الاكسس غير محمي بكلمة مرور كيف اضع له كلمة مرور عن طريق الاجراء التالي:
PHP كود :
Private Sub compact(ByVal olddb As String, ByVal newdb As String, Optional ByVal dbpass As String = "", Optional ByVal Alock As Boolean = False, Optional ByVal newpassword As String = "")
     Dim comp As New Microsoft.Office.Interop.Access.Dao.DBEngine
     If dbpass.Trim = "" Then
         comp.CompactDatabase(olddb, newdb)
     Else
         If Alock Then
             comp.CompactDatabase(olddb, newdb, ";pwd=" & dbpass,, ";pwd=" & dbpass)
         Else
             comp.CompactDatabase(olddb, newdb, ";pwd=",, ";pwd=" & dbpass)
         End If
     End If
 End Sub 
]]> السلام عليكم ورحمة الله و بركاته
الاجراء التالي يضغط ملف اكسس ويتحكم بكلمة المرور اذا موجودة يغيرها او يحذفها وفق المعطيات لكن كيف اجعل الاجراء يضيف كلمة مرور ان لم تكن موجودة في ملف الاكسس اقصد اذا كان ملف الاكسس غير محمي بكلمة مرور كيف اضع له كلمة مرور عن طريق الاجراء التالي:
PHP كود :
Private Sub compact(ByVal olddb As String, ByVal newdb As String, Optional ByVal dbpass As String = "", Optional ByVal Alock As Boolean = False, Optional ByVal newpassword As String = "")
     Dim comp As New Microsoft.Office.Interop.Access.Dao.DBEngine
     If dbpass.Trim = "" Then
         comp.CompactDatabase(olddb, newdb)
     Else
         If Alock Then
             comp.CompactDatabase(olddb, newdb, ";pwd=" & dbpass,, ";pwd=" & dbpass)
         Else
             comp.CompactDatabase(olddb, newdb, ";pwd=",, ";pwd=" & dbpass)
         End If
     End If
 End Sub 
]]> <![CDATA[تصدير بيانات من سيكوال]]> https://vb4arb.com/vb/showthread.php?tid=55087 Sun, 28 Sep 2025 06:46:28 +0000 bassant]]> https://vb4arb.com/vb/showthread.php?tid=55087
كيف يمكنني عمل تصدير بيانات حقل في جدول ف قاعدة بيانات sql server البيانات عبارة عن ملفات pdf او ملفات.rar

حيث الحقل اسمه pdf   وكل صف يحتوي على بيانات هي عبارة عن ملف pdf. او ملف مضغوط .rar    حيث تم تخزين البيانات ف قاعدة البيانات على هيئة نص نوع هذا الحقل  nvarchar(MAX)


فكيف يمكنني عمل تصدير لبيانات هذا الحقل]]>
كيف يمكنني عمل تصدير بيانات حقل في جدول ف قاعدة بيانات sql server البيانات عبارة عن ملفات pdf او ملفات.rar

حيث الحقل اسمه pdf   وكل صف يحتوي على بيانات هي عبارة عن ملف pdf. او ملف مضغوط .rar    حيث تم تخزين البيانات ف قاعدة البيانات على هيئة نص نوع هذا الحقل  nvarchar(MAX)


فكيف يمكنني عمل تصدير لبيانات هذا الحقل]]> <![CDATA[استرجاع قاعدة بيانات]]> https://vb4arb.com/vb/showthread.php?tid=53138 Tue, 13 May 2025 17:51:53 +0000 محمد بن عطية]]> https://vb4arb.com/vb/showthread.php?tid=53138 هل يمكن استرجاع قاعدة البيانات 
مع العلم استعملت برنامج استعادة لكن لم ينجح في استعادتها]]> هل يمكن استرجاع قاعدة البيانات 
مع العلم استعملت برنامج استعادة لكن لم ينجح في استعادتها]]> <![CDATA[استفسارات عن قواعد البيانات مبتدئ]]> https://vb4arb.com/vb/showthread.php?tid=50583 Wed, 06 Nov 2024 06:15:49 +0000 بوحمد]]> https://vb4arb.com/vb/showthread.php?tid=50583
وهل هناك شرح ممتاز يعلمي من الصفر في موقع لشخص معروف باسلوبه المتميز ..

وهل توجد لدى احدكم قاعده بيانات جاهز اقدر اجرب القراءه منها والتعديل والاضافة والحذف منها عبر vb .. 


مع شكري لكم]]>
وهل هناك شرح ممتاز يعلمي من الصفر في موقع لشخص معروف باسلوبه المتميز ..

وهل توجد لدى احدكم قاعده بيانات جاهز اقدر اجرب القراءه منها والتعديل والاضافة والحذف منها عبر vb .. 


مع شكري لكم]]> <![CDATA[مشكلة في مجلد قاعدة البيانات]]> https://vb4arb.com/vb/showthread.php?tid=50367 Fri, 04 Oct 2024 16:01:48 +0000 kamel1978]]> https://vb4arb.com/vb/showthread.php?tid=50367 لديا مشكلة في أحد البرامج عند فتحه يظهر لي ان مجلد قاعدة البيانات غير موجود رغم انه موجود]]> لديا مشكلة في أحد البرامج عند فتحه يظهر لي ان مجلد قاعدة البيانات غير موجود رغم انه موجود]]> <![CDATA[كود حفظ كلمة المرور للمستخدمين فى أكسيس]]> https://vb4arb.com/vb/showthread.php?tid=49858 Sun, 11 Aug 2024 07:27:27 +0000 doshey42]]> https://vb4arb.com/vb/showthread.php?tid=49858 السلام عليكم ورحمة الله وبركاته
أريد كود حفظ كلمة المرور للمستخدمين فى أكسيس
وشكراً
]]> السلام عليكم ورحمة الله وبركاته
أريد كود حفظ كلمة المرور للمستخدمين فى أكسيس
وشكراً
]]> <![CDATA[ما هو كود معرفة نوع البيانات من اكسس؟]]> https://vb4arb.com/vb/showthread.php?tid=48476 Thu, 09 May 2024 16:12:02 +0000 justforit]]> https://vb4arb.com/vb/showthread.php?tid=48476
PHP كود :
 Private Sub get_Cols(tb As String)
      dgvcols.Rows.Clear()
      If con.State = ConnectionState.Closed Then con.Open()
      Dim dt As DataTable = con.GetOleDbSchemaTable(OleDbSchemaGuid.Columns, New Object() {Nothing, Nothing, tb, Nothing})
      If dt.Rows.Count = 0 Then
          MsgBox(" لا توجد حقول!", MsgBoxStyle.Exclamation, "")
          Exit Sub
      End If
      For i As Integer = 0 To dt.Rows.Count - 1
          dgvcols.Rows.Add(dt.Rows(i).Item("Column_Name"), dt.Rows(i).Item("Data_Type").ToString)
      Next
  End Sub 
السابق كما ترون يجلب اسماء الاعمدة من جدول محدد ونوع البيانات لكن الاخيرة تاتي ارقام فكيف الى حلها؟
شكر الله لكم
]]>
PHP كود :
 Private Sub get_Cols(tb As String)
      dgvcols.Rows.Clear()
      If con.State = ConnectionState.Closed Then con.Open()
      Dim dt As DataTable = con.GetOleDbSchemaTable(OleDbSchemaGuid.Columns, New Object() {Nothing, Nothing, tb, Nothing})
      If dt.Rows.Count = 0 Then
          MsgBox(" لا توجد حقول!", MsgBoxStyle.Exclamation, "")
          Exit Sub
      End If
      For i As Integer = 0 To dt.Rows.Count - 1
          dgvcols.Rows.Add(dt.Rows(i).Item("Column_Name"), dt.Rows(i).Item("Data_Type").ToString)
      Next
  End Sub 
السابق كما ترون يجلب اسماء الاعمدة من جدول محدد ونوع البيانات لكن الاخيرة تاتي ارقام فكيف الى حلها؟
شكر الله لكم
]]> <![CDATA[هل يوجد شيء لاكسس في فيجوال استوديو يسمى بـ access managment tools]]> https://vb4arb.com/vb/showthread.php?tid=48451 Sun, 05 May 2024 21:45:53 +0000 justforit]]> https://vb4arb.com/vb/showthread.php?tid=48451 السلام عليكم ورحمة الله وبركاته
هل يوجد شيء لاكسس في فيجوال استوديو يسمى بـ access managment tools
كانشاء ملف اكسس و التحكم بجداولها كما هو متاح لـ sqlserver ؟]]> السلام عليكم ورحمة الله وبركاته
هل يوجد شيء لاكسس في فيجوال استوديو يسمى بـ access managment tools
كانشاء ملف اكسس و التحكم بجداولها كما هو متاح لـ sqlserver ؟]]> <![CDATA[حول مشكلة توافق نوع البيانات عند الاستعلام في اكسل]]> https://vb4arb.com/vb/showthread.php?tid=48268 Sat, 20 Apr 2024 17:25:36 +0000 justforit]]> https://vb4arb.com/vb/showthread.php?tid=48268
PHP كود :
       Dim arr(dgv1.SelectedRows.Count - 1)
        Dim n As Integer = 0
        For Each row As DataGridViewRow In dgv1.SelectedRows
            ReDim Preserve arr(n)
            arr(n) = row.Cells(0).Value
            n += 1
        Next
        Dim ids As String = String.Join(",", arr)
        cm.Parameters.Clear()
         cm.CommandText = "update [tb1$] set tid=null, tname=null,tphone=null,temail=null where tid in (" & ids & ")"
        cm.Parameters.AddWithValue("@tid", x) 
PHP كود :
        If con.State = ConnectionState.Closed Then con.Open() 
PHP كود :
        cm.ExecuteNonQuery() 
في حال اضفت الارقام بكود اضافة واستخدم الكود اعلاه تظهر رسالة مشكلة اختلاف البيانات اما لو اضفت ارقام بالاكسل يدويا لا تظهر المشكلة
وحتى لو اضفتها بالكود اذا فتحت الاكسل وحولت ما اضفت بالكود الى ارقام تزول المشكلة..
كود الاضافة
        cm.Parameters.AddWithValue("@tid", rowscount())
والدالة rowscount تعيد عدد صفوف السجلات
و المثال موجود بالموضوع.
المثال اللذي استخدم فيه الـoledb provider  وهو الملف باسم Phone_Book_Using_Excel_vbnet
زر حذف المحدد
ميزة التعامل مع مزودة قاعدة البيانات السرعة لكن تحويل النص الى int   لا يجدي نفعا 
[صورة مرفقة: p.png]
انا متاكد اني لم ادخل نص ابدا فلابد ان هناك كود معين يحفظ الرقم بشكل صحيح.]]>
PHP كود :
       Dim arr(dgv1.SelectedRows.Count - 1)
        Dim n As Integer = 0
        For Each row As DataGridViewRow In dgv1.SelectedRows
            ReDim Preserve arr(n)
            arr(n) = row.Cells(0).Value
            n += 1
        Next
        Dim ids As String = String.Join(",", arr)
        cm.Parameters.Clear()
         cm.CommandText = "update [tb1$] set tid=null, tname=null,tphone=null,temail=null where tid in (" & ids & ")"
        cm.Parameters.AddWithValue("@tid", x) 
PHP كود :
        If con.State = ConnectionState.Closed Then con.Open() 
PHP كود :
        cm.ExecuteNonQuery() 
في حال اضفت الارقام بكود اضافة واستخدم الكود اعلاه تظهر رسالة مشكلة اختلاف البيانات اما لو اضفت ارقام بالاكسل يدويا لا تظهر المشكلة
وحتى لو اضفتها بالكود اذا فتحت الاكسل وحولت ما اضفت بالكود الى ارقام تزول المشكلة..
كود الاضافة
        cm.Parameters.AddWithValue("@tid", rowscount())
والدالة rowscount تعيد عدد صفوف السجلات
و المثال موجود بالموضوع.
المثال اللذي استخدم فيه الـoledb provider  وهو الملف باسم Phone_Book_Using_Excel_vbnet
زر حذف المحدد
ميزة التعامل مع مزودة قاعدة البيانات السرعة لكن تحويل النص الى int   لا يجدي نفعا 
[صورة مرفقة: p.png]
انا متاكد اني لم ادخل نص ابدا فلابد ان هناك كود معين يحفظ الرقم بشكل صحيح.]]> <![CDATA[سؤال حول منع تكرار بيانات عند تعديلها]]> https://vb4arb.com/vb/showthread.php?tid=48265 Sat, 20 Apr 2024 00:29:15 +0000 justforit]]> https://vb4arb.com/vb/showthread.php?tid=48265 السلام عليكم ورحمة الله و بركاته
اعرف كود التحقق بشكل جيد ولا مشكلة به عند الاضافة لكن عند التعديل (اما اني نسيت صياغة الكود المناسب للتحقق للتعديل  او اني لم افكر به من قبل)
مثلا الكود التالي :
PHP كود :
Public Function frow(txt As String) As Integer
     Return dt.Select("Name='" & txt & "' or Phone='" & txt & "' or Email='" & txt & "'").Count
 End Function 
اريد تعديل بيان واحد فقط او بيانين  من بين ثلاثة او اربعة كونترولز
txt1,txt2,txt3
لانه بكل تاكيد ان النص اللذي لم اغيره موجود بالجدول.
اعتذر عن الاطالة 
]]> السلام عليكم ورحمة الله و بركاته
اعرف كود التحقق بشكل جيد ولا مشكلة به عند الاضافة لكن عند التعديل (اما اني نسيت صياغة الكود المناسب للتحقق للتعديل  او اني لم افكر به من قبل)
مثلا الكود التالي :
PHP كود :
Public Function frow(txt As String) As Integer
     Return dt.Select("Name='" & txt & "' or Phone='" & txt & "' or Email='" & txt & "'").Count
 End Function 
اريد تعديل بيان واحد فقط او بيانين  من بين ثلاثة او اربعة كونترولز
txt1,txt2,txt3
لانه بكل تاكيد ان النص اللذي لم اغيره موجود بالجدول.
اعتذر عن الاطالة 
]]> <![CDATA[سؤال عن تعلم لغة جديدة]]> https://vb4arb.com/vb/showthread.php?tid=48116 Sun, 24 Mar 2024 23:31:38 +0000 محمد حمد 2023]]> https://vb4arb.com/vb/showthread.php?tid=48116 السلام عليكم اخوي واساتذتي الكرام
 لقد تعلمت لغة البرمجة فيجوال بيسك 6.0 واصبحت متمرس بيها بعد التطور الحاصل في لغات البرمجة VB.NET 

اريد ان تنصحوني باصدارة لقوم بتعلمها وتكون ملمه بجميع التطورت يعن تنصحوني بصدارة 2012 او 2015 

ارجو الافادة 

وجزاكم الله كل خير
]]> السلام عليكم اخوي واساتذتي الكرام
 لقد تعلمت لغة البرمجة فيجوال بيسك 6.0 واصبحت متمرس بيها بعد التطور الحاصل في لغات البرمجة VB.NET 

اريد ان تنصحوني باصدارة لقوم بتعلمها وتكون ملمه بجميع التطورت يعن تنصحوني بصدارة 2012 او 2015 

ارجو الافادة 

وجزاكم الله كل خير
]]> <![CDATA[استعلام من عدة جداول لقاعدة بيانات اكسس]]> https://vb4arb.com/vb/showthread.php?tid=47451 Tue, 07 Nov 2023 03:38:03 +0000 Adel27213]]> https://vb4arb.com/vb/showthread.php?tid=47451
اريد استعلام عن موظف من جدول employees
ومن جدول Absences  يعطيني عدد ايام الغياب بحيث يكون count(empID) ويرجع لي اجمالي عدد ايام الغياب
ومن جدول Perks  يعطيني مجموع الاكراميات بحيث يكون Sum(Perks.Amount) ويعطيني اجمالي المبالغ من جدول الاكراميات
ومن جدول Advance يعطيني مجموع السلفة بحيث يكون sum(Advance.Amount) ويعطيني اجمالي المبالغ من جدول السلفة

وللعلم ان كل الجداول مرتبطة بجدول الموظفين عن طريق empID

وشكراً لكم


توضيح الجداول الاربعة التي قمت بكتابة اسمائها:
employees هو جدول للموظفين
Absences هو جدول لتسجيل الغياب على الموظف
Perks هو جدول الحوافز والاكراميات التي يتم حسابها للموظف ويتم اعطائه فوق راتبه الاساسي
Advance هو جدول يتم تسجيل المبالغ على الموظف والتي تم اعطائه كسلفة على الراتب بحيث يتم خصمها من راتبه اخر الشهر

سيتم رفع قاعدة البيانات اكسس من الجداول وتوضيح الاعمدة

.rar   db.rar (الحجم : 18.39 ك ب / التحميلات : 16) ]]>
اريد استعلام عن موظف من جدول employees
ومن جدول Absences  يعطيني عدد ايام الغياب بحيث يكون count(empID) ويرجع لي اجمالي عدد ايام الغياب
ومن جدول Perks  يعطيني مجموع الاكراميات بحيث يكون Sum(Perks.Amount) ويعطيني اجمالي المبالغ من جدول الاكراميات
ومن جدول Advance يعطيني مجموع السلفة بحيث يكون sum(Advance.Amount) ويعطيني اجمالي المبالغ من جدول السلفة

وللعلم ان كل الجداول مرتبطة بجدول الموظفين عن طريق empID

وشكراً لكم


توضيح الجداول الاربعة التي قمت بكتابة اسمائها:
employees هو جدول للموظفين
Absences هو جدول لتسجيل الغياب على الموظف
Perks هو جدول الحوافز والاكراميات التي يتم حسابها للموظف ويتم اعطائه فوق راتبه الاساسي
Advance هو جدول يتم تسجيل المبالغ على الموظف والتي تم اعطائه كسلفة على الراتب بحيث يتم خصمها من راتبه اخر الشهر

سيتم رفع قاعدة البيانات اكسس من الجداول وتوضيح الاعمدة

.rar   db.rar (الحجم : 18.39 ك ب / التحميلات : 16) ]]> <![CDATA[مشكلة فى الجريد فيو]]> https://vb4arb.com/vb/showthread.php?tid=47438 Sat, 04 Nov 2023 12:09:33 +0000 salah525]]> https://vb4arb.com/vb/showthread.php?tid=47438 وحين تسجيل الحالات تظهر النصوص المكتوبة فى الكمبوبكس والتى ربطها بالجداول فى الجريد فيو على هذه الطريق فيها كلها 

System.Data.DataRowView

فما الحل لظهور القيمة المكتوبة فى الكمبوبكس
وشكرا

الكود للربط
fillcmb_tbl_Family(state)

كود الكمبوبكس
Public Sub fillcmb_tbl_Family(ByVal cmb As ComboBox)
DT.Clear()
DA = New OleDbDataAdapter("Select * FROM tbl_Family ", Con)
DA.Fill(DT)
If DT.Rows.Count > 0 Then
cmb.DataSource = DT
cmb.DisplayMember = "State"
Else
cmb.DataSource = Nothing
End If
End Sub]]> وحين تسجيل الحالات تظهر النصوص المكتوبة فى الكمبوبكس والتى ربطها بالجداول فى الجريد فيو على هذه الطريق فيها كلها 

System.Data.DataRowView

فما الحل لظهور القيمة المكتوبة فى الكمبوبكس
وشكرا

الكود للربط
fillcmb_tbl_Family(state)

كود الكمبوبكس
Public Sub fillcmb_tbl_Family(ByVal cmb As ComboBox)
DT.Clear()
DA = New OleDbDataAdapter("Select * FROM tbl_Family ", Con)
DA.Fill(DT)
If DT.Rows.Count > 0 Then
cmb.DataSource = DT
cmb.DisplayMember = "State"
Else
cmb.DataSource = Nothing
End If
End Sub]]> <![CDATA[ماهي الجداول التي احتاجها لنظام رواتب متكامل]]> https://vb4arb.com/vb/showthread.php?tid=47436 Fri, 03 Nov 2023 17:41:01 +0000 Adel27213]]> https://vb4arb.com/vb/showthread.php?tid=47436
اريد منكم معلومات عن انشاء قاعدة بيانات لنظام رواتب متكامل
لقد قمت بإنشاء عدة جداول وأريد اعرف هل انا بكذا أنشأت كل الجداول ام في اشياء ناقصة:
الجداول هي:
- جدول بيانات الموظف
- جدول لتسجيل الغياب
- جدول لتسجل الخصميات
- جدول لتسجيل السلفة
- جدول لتسجيل الحوافز والاكراميات
- جدول الشهور من كل سنة على حدا 
- جدول الدوام مرتبط بجدول الشهور واحفظ فيه بداية الدوام ونهايته
- جدول الرواتب


هل هذه الجداول كاملة ام في جدول ناقص
وشكراً لكم]]>
اريد منكم معلومات عن انشاء قاعدة بيانات لنظام رواتب متكامل
لقد قمت بإنشاء عدة جداول وأريد اعرف هل انا بكذا أنشأت كل الجداول ام في اشياء ناقصة:
الجداول هي:
- جدول بيانات الموظف
- جدول لتسجيل الغياب
- جدول لتسجل الخصميات
- جدول لتسجيل السلفة
- جدول لتسجيل الحوافز والاكراميات
- جدول الشهور من كل سنة على حدا 
- جدول الدوام مرتبط بجدول الشهور واحفظ فيه بداية الدوام ونهايته
- جدول الرواتب


هل هذه الجداول كاملة ام في جدول ناقص
وشكراً لكم]]> <![CDATA[اين اضع الشرط]]> https://vb4arb.com/vb/showthread.php?tid=47397 Wed, 25 Oct 2023 23:50:42 +0000 salah525]]> https://vb4arb.com/vb/showthread.php?tid=47397 ولكنه يحدث السجل الاول فقط 
فكيف اضع فيه الشرط لتحديث السجل المحدد فقط

If MsgBox("هل تريد تحديث بيانات اسرة" & posNm, MsgBoxStyle.Question + vbYesNo, Title:="Warning") = vbYes Then
                openCON()
                da = New OleDb.OleDbDataAdapter("Select * FROM tbl_Show_Familys ", Con)
                da.Fill(dt_tbl_Show_Familys)
                Con.Close()
                Dim cb As New OleDbCommandBuilder(da)

                dt_tbl_Show_Familys.Rows(Mov).Item(0) = ID_R.Text
                dt_tbl_Show_Familys.Rows(Mov).Item(1) = fName.Text
                dt_tbl_Show_Familys.Rows(Mov).Item(2) = Qawmi.Text
                dt_tbl_Show_Familys.Rows(Mov).Item(3) = Date_Birthday.Value.ToShortDateString
                dt_tbl_Show_Familys.Rows(Mov).Item(4) = Age.Text
                dt_tbl_Show_Familys.Rows(Mov).Item(5) = Gender.Text
                dt_tbl_Show_Familys.Rows(Mov).Item(6) = state.SelectedItem
                dt_tbl_Show_Familys.Rows(Mov).Item(7) = Number_afrad.Text]]> ولكنه يحدث السجل الاول فقط 
فكيف اضع فيه الشرط لتحديث السجل المحدد فقط

If MsgBox("هل تريد تحديث بيانات اسرة" & posNm, MsgBoxStyle.Question + vbYesNo, Title:="Warning") = vbYes Then
                openCON()
                da = New OleDb.OleDbDataAdapter("Select * FROM tbl_Show_Familys ", Con)
                da.Fill(dt_tbl_Show_Familys)
                Con.Close()
                Dim cb As New OleDbCommandBuilder(da)

                dt_tbl_Show_Familys.Rows(Mov).Item(0) = ID_R.Text
                dt_tbl_Show_Familys.Rows(Mov).Item(1) = fName.Text
                dt_tbl_Show_Familys.Rows(Mov).Item(2) = Qawmi.Text
                dt_tbl_Show_Familys.Rows(Mov).Item(3) = Date_Birthday.Value.ToShortDateString
                dt_tbl_Show_Familys.Rows(Mov).Item(4) = Age.Text
                dt_tbl_Show_Familys.Rows(Mov).Item(5) = Gender.Text
                dt_tbl_Show_Familys.Rows(Mov).Item(6) = state.SelectedItem
                dt_tbl_Show_Familys.Rows(Mov).Item(7) = Number_afrad.Text]]>