الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كود اضافه ممكن شرح له

بدأه abo_shroook في 21 مايو 2009 · 1 رد · 429 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

كود الاضافه ده اول مره اشاهده ممكن حد يشرحه لى وهل هو يخص ado او dao

If Not IsNumeric(CNF4 & CNF5) Then: MsgBox " ÊÃßÏ ãä ÚÏã ÊÑß ÎÇäÉ ÑÞãíÉ ÝÇÑÛÉ Ãæ ÇÍÊæÇÆåÇ Úáì ÃÍÑÝ ", vbCritical + vbMsgBoxRtlReading, "ÎØÃ": Exit Sub

If CNF1.Text = "" Or CNF2.Text = "0" Or CNF3.Text = "" Or CNF4.Text = "0" Or CNF5.Text = "0" Then

MsgBox " ÇÏÎá ÌãíÚ ÈíÇäÇÊ ÇáÕäÝ ", vbCritical + vbExclamation + vbMsgBoxRtlReading, "ÎØÃ": Exit Sub: End If

Values = "'" & CNF1 & "','" & CNF2 & "','" & CNF3 & "','" & CNF4 & "','" & CNF5 & "'"

Insert = "INSERT INTO INF1(CNF1,CNF2,CNF3,CNF4,CNF5) VALUES(" & Values & ")"

cn.Execute Insert

CNF1 = "": CNF2 = "0": CNF3 = "": CNF4 = "0": CNF5 = "0"

Load

ID_SUM

Load

الخير هنا ربى اغفر لى ولوالدى وللمؤمنين يوم يقوم الحساب000 امين

#2

سأحاول اوضحلك الفكره طبعا بعيد عن كودك الكبير :P :P :P :P :P :P

المهم نقدر نحفظ بيانات بهذا الشكل فى قاعدة البيانات زيها زي 

rs.addnew
rs.update

مافيش فيها اختلاف وبالعكس الطريقة دى بتفيدك فى لغة برمجه اخرى المهم

عندنا جدول اسمه tb1 وعندنا 3 حقول الحقل الاول id نوعه رقمى نصى والثانى sname نوعه نصى والثالث class نصى

عايزين ندخل فيهم بيان

هنستخدم

insert into

طبعا بعد ان عرفٌنا cn على إنه connction 

cn.execute insert into tb1"id,sname,class"values "1,ali,"the first"  "

اخى انا وضعة اسم الجدول علشان الـcn اللى انا بتاعمل معاه يكون عارف انى هحفظ فى اى جدول او فتح اتصال ولابد من وضع الحقول امام محتواها او بيانها كما هو مشار بالاوان

تم تعديل هذه المشاركة بواسطة wael abed في 23 مايو 2009 في 02:37

00
 

فاضى 

 

00

مواضيع مشابهة