تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] سؤال بخصوص ربط قاعده البيانات على الاضافه
#1
مرحبا لدي مشكله في كود الاضافه حيث يعترض على تحديد فصيله الدم فارجو المساعده Private Sub Combo6_Change()
Combo6.Text = Data1.Recordset![ÇáÍÇáå ÇáÇÌÊãÇÚíå]
If Combo6.Text = "ãÊÒæÌ" Or Combo6.Text = "ãØáÞ" Or Combo6.Text = "ÇÚÒÈ" Or Combo6.Text = "ÇÑãá" Then
Exit Sub
Else
Combo6.Text = ""
End If
End Sub

Private Sub Command1_Click()
On Error GoTo 1:
If (Text1.Text = "") Or (Text2.Text = "") Or (Text3.Text = "") Or (Text4.Text = "") Or (Text5.Text = "") Or (Combo1.Text = "") Or (Combo2.Text = "") Or (Combo3.Text = "") Or (Combo5.Text = "") Or (Text10.Text = "") Or (Combo6.Text = "") Then
MsgBox "íÑÌÆ ãáÆ ÇáÍÞæá ÇáÝÇÑÛå"
Else
Data1.Recordset.AddNew
Data1.Recordset![ÇáÇÓã] = Text1.Text
Data1.Recordset![ÇáÚãÑ] = Text2.Text
Data1.Recordset![ÇáæÒä] = Text3.Text
Data1.Recordset![ÇáÚäæÇä] = Text4.Text
Data1.Recordset![ÊÇÑíÎ ÇÎÑ ÒíÇÑå] = Text5.Text
Data1.Recordset![ÍÇáå ÇáÇÈ ] = Combo1.Text
Data1.Recordset![ÍÇáå ÇáÇã] = Combo2.Text
Data1.Recordset![ÝÕíáå ÇáÏã] = Combo3.Text
Data1.Recordset![ÇáÌäÓ] = Combo5.Text
Data1.Recordset![ÇáåÇÊÝ] = Text10.Text
Data1.Recordset![ÇáÍÇáÉ ÇáÇÌÊãÇÚíå] = Combo6.Text
Data1.Recordset.Update
Data2.Recordset.Edit
Data2.Recordset![ÇáÇÓã] = Text1.Text
Data2.Recordset.updata
Form4.Hide
Form5.Show
End If
1:
Exit Sub
End Sub
الرد
تم الشكر بواسطة:
#2
الأمر جدا بسيط قم بتغير نوع الخط في الفيجول بيسك
والله موفق الجميع
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في تكرار البيانات عند الطباعة DATAREPORT دهشوش1 3 90 13-12-18, 05:03 AM
آخر رد: Ahmed_Mansoor
  [vb6.0] كيفية الاتصال بقاعدة البيانات علي شبكة دون طلب اسم الجهاز وكلمة المرور kamalgadir 0 42 05-12-18, 05:58 PM
آخر رد: kamalgadir
  طباعة قيم مربعات نص غير مربوطة بقاعدة البيانات دهشوش1 4 84 30-11-18, 11:02 PM
آخر رد: دهشوش1
  السلام عليكم احبابى فى الله ارجو المساعدة بخصوص متفح الانتر نت mhareek 1 50 30-11-18, 09:52 PM
آخر رد: عبدالله الصافي
Question [vb6.0] كيف يتم إضهار الترقيم تلقائي المجود في قاعدة البيانات عند النقر على امر جديد ؟ Microformt 8 514 20-10-18, 09:54 PM
آخر رد: gonm64
  سؤال عن كيفية ربط برنامج فجوال بيسي6 بقاعدة بيانات على النت amrou 4 277 19-09-18, 08:37 PM
آخر رد: amrou
  [سؤال] سؤال حول تحريك الصور VB6 Immortal73 10 428 02-08-18, 04:54 PM
آخر رد: alipro
  [VB.NET] سؤال كيفية تخزين ملف صوتي فsql server alipro 0 99 02-08-18, 05:09 AM
آخر رد: alipro
  السلام عليكم ورحمة الله وبركاتة - ارجو المساعدة فى ترتيب البيانات داخل الفلكس جريد mhareek 4 262 14-07-18, 09:17 PM
آخر رد: mhareek
  [سؤال] سؤال مبتدي في موضوع الريجستري array-31 3 669 20-05-18, 11:20 PM
آخر رد: اسلام الكبابى

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم