أنشأ مشروعك بالفيجوال بيسك 6 من الألف إلى الياء

-09

بارك الله فيك و جعل ماتقوم به في ميزان حسناتك

===

اختي بنت اليمن : جزاك الله خير على مرورك وهذه الكلمات اعتبرها وسام والله اعتز به

أخي فيصل

جزاك الله خير وشكرا على تشجيعك وجزاك الله خير على اعادة الصلاحيات ونورت الرابط يا ريس :D :D

السلام عليكم

ماشاء الله عليك اخ ناصر "nasser50001"

تشكر و ننتظر المزيد منك :)

الاخ الكريم ناصر جميع الاخوة ما تركوا شىء اقوله لك بس والله انت انسان اكثر من رائع لمشاركتك بهذه المشاركة الاكثر من هائلة ولا قلق على الفيجوال بيسك ما دامت مشاركتك معنا دائما

الى الامام دائما ان شاء الله

جزاك الله كل خير

استاذنا ابراهيم الطيب

شكرا جزيلا حبيبي ودا من ذوقك وإن شاء نستمر بدعمكم وتشجيعكم

أخي الكريم klkl2003

كلام كبير علي هذا اخي الكريم وشكرا جزيلا على الكلمات الرائعة وهذا ما نستطيع أن نبذله وإن شاء الله بدعمكم وتشجيعكم هذا نستمر بإذن الله

لكم تحياتي

السلام عليكم اخي ناصر

اتمني انك تكون بخير :lol: وتكمل كتابة الحلقات وتفيدنا وتكسب اجر ;)

وما تتاخر علينا :rolleyes:

مع تمنياتي بالتوفيق

مع السلامة

التوقيع : عاشقة الاختراع

السلام عليكم

يا خبر " استاذنا ابراهيم الطيب" الله يسامحك اخي العزيز.

فقط تشفع لك هذه الدروس الجميلة و الا لكان لي معك تصرف اخر ;)

بارك الله فيك :)

أختي Five star

مشكووووووووورة وجزالك الله خير :D :D

أخي ابراهيم الطيب

طبعا استاذنا أخي ونحن نتشرف بذلك والله .....

وبلاش تواضع العلماء ده :D :D

مشكووووووووووووووووووووووور أخي

سامحك الله

أخواني الأفاضل

معلش تأخر الدرس القادم قليلا وذلك لسببين

الأول : أن الدرس بإذن الله تم الإنتهاء من كثير من نقاطه لأنه سيكون بإذن الله درس رائع ولذلك أعدة بصورة متأنية حتى يأخذ حقة

الثاني : اني كنت مشغول الفترة السابقة جدا ولذلم بأكتب الدرس في فترات الفراغ

انتظرووووووووووونا :D

الأخ الفاضل nasser50001

شكرا جزيلا على الشرح الرائع

وقد قمت بتطبيق مثال على استخدام ado

ولكن ظهر لدي رسالة خطأ عند الضغط على زر إضافة سجل

أرجو منك رؤية المثال المرفق وإخباري كيف يتم تعديل هذا الخطأ؟؟

ولك جزيل الشكر

test.zip

الف الف شكر يامهندس ناصر على هذا الشرح الجيد ونرجوك أتحفنا بما هو جديد لديك

بارك الله لنا فيك وفي أمثالك

العصفوره

اختى dena

انا نزلت الملف ولكن في العمل وإن شاء الله اعطيك الرد قريبا جدا

أخي asfora

:D :D

جزاك الله خيرا

الحلقة التاسعة

استخدام جمل SQL مع الفيجوال بيسك الجزء الأول

جمل sql ثمثل للمبرمج العمود الفقري الذي لا يمكن أن يستقيم برنامجه من دون استخدام هذه الجمل حيث يمكن باستخدام هذه الجمل التحكم الكامل بقاعدة البيانات وسنتحدث هنا عن العمليات الأساسية والتي تخدم المشروع من دون الخوض لبقية جمل SQL وهي كثيرة جدا فقط هنا عن عمليتين يتم استخدامها داخل الفيجوال بيسك بصورة كبيرة

1 – العمليات على الجداول ( الإضافة .... الحذف ..... التعديل ...... الخ ) حيث تستخدم هذه الجمل من خلال الكود التالي :

Db. Execute" SQL Statements"

2 – عمليات عرض السجلات حيث يتم استخدامها من خلال الكود التالي

Rs.Open " SQL Statements"

فهيا بنا إلى العالم الممتع عالم الذي لا تجد فيه مستحيل عالم جمل SQL

أولا : العمليات الأساسية على الجداول

1 – جملة إنشاء جدول جديد Create Table

وهي جملة تستخدم لإنشاء جدول جديد داخل قاعدة البيانات وهي بالطبع أفضل الجمل في إنشاء جدول جديد وتحديد جميع خصائص هذا الجدول

الشكل العام للجملة يكتب على النحو التالي :

CREATE TABLE table_name (field1 type [(size)] [NOT NULL], field2 type [(size)] [NOT NULL] , CONSTRAINT multifieldindex )

شرح بارامترات الجملة :

كل ما وضع بين الحاصرتين [] هو اختياري أي يمكنك تحديده أو تركه ونبدأ ببارامترات الجملة

1 – create table جملة إنشاء جدول جديد

2 – table name اسم الجدول الجديد

3 – Field1 تحديد اسم الحقل

4 – Type وهو نوع بيانات الحقل وهو يشمل عدة أنواع أشهرها

Text نصي

Integer عدد صحيح صغير

Long عدد صحيح طويل

Memo مذكرة

Double عدد مزدوج ذات فاصلة عشرية

Datetime تاريخ ووقت

5 – size حجم الحقل ويكون للحقول النصية

6 – Not Null غير خالي أي يجب إدخال بيانات داخل هذا الحقل وإلا سيعطي رسالة خطأ

7 – CONSTRAINT تحديد المفتاح الأساسي للجدول حيث بعد كتابة الحقل ومواصفاته يتم تحديد هل الحقل مفتاح اساسي أم لا وهي اختيارية طبعا

مثال تنفيذي على الجملة

طبعا يجب ان يكون عندك قاعدة بيانات وأقترح استخدام آخر مثال تم وضعه في هذه السلسلة لتنفذ على التمارين التالية وهنا أنشأ زر أمر جديد واضغط عليه مرتين ثم أكتب الكود التالي :

db.Execute "CREATE TABLE customers " _
        & "(FirstName TEXT, LastName TEXT, " _
        & "CustNO INTEGER CONSTRAINT MyFieldConstraint " _
        & "PRIMARY KEY);"

2 – جملة تعديل الجدول Alter Table

وهذه الجملة تستخدم لتعديل بنية الجدول مثل إضافة حقول جديدة إلى الجدول وكذلك حذف حقول موجودة .

الشكل العام للجملة يكتب على النحو التالي :

ALTER TABLE table_name {ADD {COLUMN field type[(size)] [NOT NULL] DROP {COLUMN field I CONSTRAINT indexname} }

شرح بارامترات الجملة :

كل ما وضع بين الحاصرتين [] هو اختياري أي يمكنك تحديده أو تركه ونبدأ ببارامترات الجملة

1 – Alter table جملة إنشاء جدول جديد

2 – table_name اسم الجدول الجديد

3 – add column جملة إضافة حقل جديد إلى الجدول

4 – Field تحديد اسم الحقل

5 – Type وهو نوع بيانات الحقل وهو يشمل عدة أنواع أشهرها

Text نصي

Integer عدد صحيح صغير

Long عدد صحيح طويل

Memo مذكرة

Double عدد مزدوج ذات فاصلة عشرية

Datetime تاريخ ووقت

5 – size حجم الحقل ويكون للحقول النصية

6 – Not Null غير خالي أي يجب إدخال بيانات داخل هذا الحقل وإلا سيعطي رسالة خطأ

7 – CONSTRAINT تحديد المفتاح الأساسي للجدول حيث بعد كتابة الحقل ومواصفاته يتم تحديد هل الحقل مفتاح أساسي أم لا وهي اختيارية طبعا

8 – drop column لحذف حقل محدد من الجدول

مثال تنفيذي على الجملة

طبعا يجب ان يكون عندك قاعدة بيانات وأقترح استخدام آخر مثال تم وضعه في هذه السلسلة لتنفذ على التمارين التالية وهنا أنشأ زر أمر جديد واضغط عليه مرتين ثم أكتب الكود التالي

لإضافة حقل جديد

   db.Execute "ALTER TABLE customers " _
      & "ADD COLUMN Salary CURRENCY;"

لحذف حقل موجود استخدم الجملة التالية

db.Execute "ALTER TABLE Customers " _
      & "DROP COLUMN Salary;"

3 – جملة إضافة بيانات إلى الجدول Insert Into

حيث تستخدم هذه الجملة لإضافة بيانات إلى الجدول أي إضافة صف جديد إلى الجدول

الشكل العام للجملة يكتب على النحو التالي :

الشكل الأول : حيث يتم إدخال البيانات بصورة مباشرة إلى الجدول

INSERT INTO target [(field1[, field2[, ...]])]
VALUES (value1[, value2[, ...])

الشكل الثاني : إدخال البيانات إلى الجدول من خلال بيانات جدول آخر

INSERT INTO target [(field1[, field2[, ...]])] [IN externaldatabase] 
SELECT field1[, field2[, ...]
FROM tableexpression

شرح بارامترات الجملة :

كل ما وضع بين الحاصرتين [] هو اختياري أي يمكنك تحديده أو تركه ونبدأ ببارامترات الجملة

1 – Insert Into جملة إدخال بيانات إلى الجدول

2 – target اسم الجدول المراد إدخال بيانات إليه

3 – Filed1,filed2,… أسماء الحقول المطلوب إدخال بيانات إليها

4 – VALUES جملة تحديد القيم المطلوب إدخالها

5 – value1, value2 القيم التي سيتم إدخالها إلى الجدول وهنا يجب أن تكون نفس نوع الحقول المحددة في البارامتر السابق

6 – IN وهي الجملة التي بعدها نكتب جملة بيانات الجدول الآخر

مثال تنفيذي على الجملة

أنشأ زر أمر جديد واضغط عليه مرتين ثم أكتب الكود التالي

مثال على الشكل الأول :

   db.Execute " INSERT INTO Customers " _
      & "(FirstName,LastName, CustNo) VALUES " _
      & "('Harry', 'Washington', 10);"

مثال على الشكل الثاني:

db.Execute " INSERT INTO Northwind " _
      & "SELECT * " _
      & "FROM Customers;"

4 - عبارة التعديل في سجلات الجدول Update

وهي العبارة التي تستخدم لتعديل البيانات داخل الجدول حيث يمكن تعديل كمية كبيرة من البيانات مرة واحدة

الشكل العام للجملة يكتب على النحو التالي :

UPDATE table
SET col1 = Value, col2 = value2 , …..
WHERE criteria;

شرح بارامترات الجملة :

1 – Update جملة التعديل

2 – Table اسم الجدول المراد تعديل بياناته

3 – SET جملة تحديد القيمة الجديدة

4 – Where جملة تحرير الشرط

5 – criteria الشرط المطلوب تنفيذه

مثال تنفيذي على الجملة

db.Execute "UPDATE Customers " _
      & "SET CustNO = 5 " _
      & "WHERE FirstName = Ahmed;"

مثال ليس للتنفيذ

db.Execute "UPDATE Customers " _
      & "SET Country = ' Germany' " _
      & "WHERE Country = 'w' Or country = 'E';"

5 – جملة حذف بيانات من الجدول Delete

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

الشكل العام للجملة يكتب على النحو التالي :

DELETE 
FROM table_name
WHERE criteria

شرح بارامترات الجملة :

1 – DELETE جملة الحذف

2 – Table_name اسم الجدول المراد حذف بياناته

3 – Where جملة تحرير الشرط

4– criteria الشرط المطلوب تنفيذه

مثال تنفيذي على الجملة

db.Execute "DELETE * FROM " _
      & "Customers WHERE firstname = 'ahmed';"

ملاحظة هامة

عند استخدام تعبير يشير إلى مربع نص معين مثل

إذا كان النص يحتوي على بيانات نصية تكتب الجملة كالتالي :

"Where firstName = ' "  + text1.text + " ' "

إذا كان مربع النص يحتوي على قيمة رقمية تكتب الجملة كالتالي :

"where CustNo = " & text1.text

6 – جملة حذف جدول Drop table

وتستخدم هذه الجملة لحذف الجدول بجميع محتوياته من قاعدة البيانات ولا يمكنك استعادة الجدول بعد حذفه من قاعدة البيانات .

الشكل العام للجملة يكتب على النحو التالي :

DROP TABLE table_name

شرح بارامترات الجملة :

1 – Drop Table جملة حذف الجدول

2 – Table_name اسم الجدول المراد حذف بياناته

مثال تنفيذي على الجملة

db.Execute "DROP TABLE Customers "

والى اللقاء مع الجزء الثاني من هذا الموضوع

لكم تحياتي

أخوكم ناصر

أنت مميز جداً ..

بارك الله فيك أخي ناصر ..

السلام عليكم اخي ناصر

كيفك ؟؟ ان شاء الله بخير (h)

شو هالتطور هادا المشاركات كترت ان شاء الله دائما هيك -waf

معلش انا بطول لمن اشارك بس مشغولة علشان الدراسة :blink:

ويارب يوفقك وتكمل شرح لانو شرحك ممتاز كتير (h)

يارب تكون فرحت بمعرفة محمود صبحي انا اعطيته ايميلك وكلمك وشكر فيك كتييييييييير ;)

مع تمنياتي بالتوفيق

مع السلامة

التوقيع : عاشقة الاختراع

السلام عليكم

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

أختي dena

اعتقد أن الخطأ في الكود الذي كتبتيه هو ربط مربعات النصوص بحقول الجدول

فقط أزيلي الربط وغن شاء الله الكود يمشي تمام

ولكن هنا ملاحظة على الكود : يحتوي الكود على كثير من جمل if بدون داعي يعني انا لو Compiler هي يومين فقط واطلب النجدة :D :D

أخي عبد الله فتحي

جزاك الله خيرا .... شهادة نعتز يها والله

اختي five star

مشكووووووووووووورة

اختي عيون المها

مرحبا بك في المنتدى وإن شاء الله تستفيدي وتفيدي

اولا اسمح لي اخي العزيز ان اشكرك شكرا عميقا فالدرس ما شاء الله متدرج من الصفر وبخطوات مفصله ومدعم بالصور ....

وأشكرك كثيرا عليه وأتمنى منك ان تتابعه حتى النهاية

وأطلب منك طلبا بسيطا وهو بعد ان تنتهي من كل الدروس جمعها كلها في ملف pdf واحد ليكون مرجعا للجميع وفي كل وقت

تقبل تحياتي اخي العزيز

جزاك الله الف خير

:)

أخي الكريم فنكشن

جزاك الله خيرا على هذا الكلام الجميل وهذا أخي واجبنا .... وبالنسبة لعمل كتاب PDF فإن شاء الله سوف أقوم بذلك إن شاء الله أو أقترح أن تقوم الإدارة بعمل هذا الكتاب ووضعة في قسم الكتب إن كان الأمر يستحق ... ومشكووور أخي مرة ثانية

اخي إبراهيم

الله يكرمك على المرور وجزاك الله خيرا

أخي الكريم ناصر

ارجو ان تضمن في الدروس القادمة شرح لأهم خصائص الأداتين DataGrid و FlexGrid وكذلك طرق ربطهما بقاعدة البيانات بتقنية ADO ومقارنة بينهما وأيهما الأفضل ..

والشكر لك مقدما

تقبل تحياتي

أخي الكريم فنكشن

والله كنت سأفعل ذلك قبل الحلقة الخاصة بجمل SQL ان اضع شرح للأدوات data combo و data list و Data gride و Flexgrid و Hflexgrid ولكن وجدت أن الموضوع سيطول فوضعت مثال يشمل أغلب الأكواد التي يمكن ان تتعامل مع هذه الأدوات

وسوف أشرح هذه الدوات بالتفصيل في موضوع آخر مستقل إن شاء الله

تحياتي لك

أخوك ناصر

اخي العزيز ناصر

اولا اشكرك على تجاوبك معي ،،

فهل تساعدني في الموضوع التالي :

/index.php?showtopic=56825

لأني محتاج معرفه كيفيه الربط مع جدول من خلال ADO وكذلك بعض الامور الصغيره الأخرى التي حاولت ان اعرفها واجربها بنفسي ولكني لم استطع وكنت افشل

مع تمنياتي لك بالتوفيق

تحياتي

الأخ الفاضل nasser50001

أنا جربت أغير في ربط مربعات النصوص لكن مانفعت معي

إذا ممكن تبين لي وين الخطأ بالضبط وتساعدني في هذا البرنامج رجاءً

وشكرا