[elgokr]

توضيحاً واضافة لما قدمه الاخ محمد كريّم

فى البداية يجب ان يتم جلب القيمة للارقام المذكورة بالاعلى

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

ويتم اضافة القيمة اما فى Textbox أو فى تعرف متغير أو ما شبه

فمثلاً القيمة لديك يتم تعرفها اما فى التالى كمثال..

كود :

Dim Number_ As Long = 1998800002356

ليتم جلب الرقم الاول من القيمة من خلال الكود

كود :

MsgBox(Number_.ToString.Substring(0, 1))

فعند كود التحديث بقاعد البيانات يتم الاستخدام بهذا الشكل

كود :

"UPDATE table_name SET Gender = "& Number_.ToString.Substring(0, 1) &" WHERE ID_Num ="& Number_

أو مثلاً ان القيمة تصل الى TextBox مثل الكود التالى كمثال

كود :

TextBox1.Text = 1998800002356

ليتم جلب الرقم الاول من القيمة من خلال الكود

كود :

MsgBox(TextBox1.Text.Substring(0, 1))

فعند كود التحديث بقاعد البيانات يتم الاستخدام بهذا الشكل

كود :

"UPDATE table_name SET Gender = "& TextBox1.Text.Substring(0, 1) &" WHERE ID_Num ="& TextBox1.Text

وهذا ما يشير اله اخى الفاضل محمد كريّم

واتمنى ان الصورة وضحت لك كاملاً

تحياتى لك

وتمنياتى لك التوفيق