دورة في قواعد البيانات مع Gambas

[bouhssini]

السلام عليكم ورحمة الله

إن شاء الله سنبدأ مع قواعد البيانات في لغة البرمجة Gambas

بالنسبة للGambas فهي تتعامل مع العديد من قواعد البيانات من أهمها MySql و SQLite وسنبدأ مع هذان النوعان لأهميتهما

تختلف SQLite عن MySql أن الثانية تحتاج لخام يجب تثبته في الجهاز أو عبر الشبكة بمافيها الأنترنيت ويتم الاتصال بقاعدة البيانات عبر منفذ في الغالب يكون 3306 .
أما SQLite فلا تحتاج لخام بل يتم التعامل معها عبر ملف قاعدة البيانات مباشرة.
فلو أردنا التعامل مع الشبكات سيكون الاختيار الانسب هو MySql ولو كان تعاملنا لا يحتاج للشبكات حيكون الاختيار الأنسب هو SQLite هذا باختصار، الأن ندخل في الموضعنا هو التعامل مع قواعد البيانات وسوف نتعامل مع النوعين معا بحيث لا يوجد بينهما اختلاف من ناحية الإستعلام فكهما يتعامل مع لغة SQL فلا داعي للقلق.

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

الان سوف أقوم بالشرح على أساس أنكم اطلعتم على الدرس لي في الرابط

كما رأينا في الدروس السابقة كيفية إنشاء والاتصال بقاعدة البيانات كما في الكود التالي:
MySQL :

PUBLIC hcon AS NEW Connection

PUBLIC SUB Form_Open()
DIM pat AS String
DIM hT AS Table
DIM hResult AS Result

  hCon.Type = "mysql"
  hCon.Host = "localhost"
  hCon.Port = "3306"
  hCon.Name = "test3"
  hCon.Login = "root"
  hCon.Password = ""
  hCon.Open()

END 

بالنسبة SQLite

PUBLIC hcon AS NEW Connection

PUBLIC SUB Form_Open()
DIM pat AS String
DIM hT AS Table
DIM hResult AS Result

pat = Application.Path
pat = pat & "/"
  hCon.Close()
  hCon.Type = "sqlite3"

  IF Dir(pat).Exist("data.db") THEN
    hCon.Name = pat & "data.db"
  ELSE
    hCon.Host = pat
    hCon.Open()
    hCon.Databases.Add("data.db")
    hCon.Close
    hCon.Host = ""
    hCon.Name = pat & "data.db"
  END IF
  hCon.Open()  
END 

هذا فيما يخص الاتصال بقاعدة البيانات
أما فيما يخص بإنشاء جدول في داخل قاعدة البيانات فيكون الكود كالتالي :

WITH hCon
    IF NOT .Tables.Exist("Tel") THEN
      hT = .Tables.Add("Tel", "MYISAM CHARACTER SET utf8 COLLATE utf8_general_ci")
      WITH hT
        .Fields.Add("id",db.Serial)
        .Fields.Add("nickname", db.String, 32)
        .Fields.Add("Tel", db.String, 50)
        .Fields.Add("Address", db.String, 0)
        .PrimaryKey = ["id"]
        .Update
        .Indexes.Add("nickname", "nickname", TRUE)
      END WITH
    END IF
END WITH
Message.Info("لقد تم الاتصال بقاعدة البيانات وإنشاء الجدول بنجاح") 

الأن بعدما أنشأنا قاعدة البيانات نريد إدخال البيانات فيها :

  hCon.Begin()
         hResult = hCon.Create("Tel")
            hResult!nickname = "bouhssini"
            hResult!Tel = "0123456"
            hResult!Address = "Maroc"
            hResult.Update
  hCon.Commit() 

الان قد أدخلنا بيانات للقاعدة ، نريد الأن عرض البيانات :

    hResult = hCon.Exec("SELECT * FROM Tel;")
    hResult.MoveFirst
    T1.Text = hResult!id
    T2.Text = hResult!nickname
    T3.Text = hResult!Tel
    T4.Text = hResult!Address 

هنا نفذنا الاستعلام وعرضنا البيانات في صناديق العرض
لو أردنا الانتقال لأول سجل في الجدول Tel نستخدم الأمر هذا

 hResult.MoveFirst

ولو أردنا السجل التالي نستخدم الأمر هذا

hResult.MoveNext

ولو أردنا السجل السابق نستخدم

hResult.MovePrevious

أما لو أردنا السجل الأخير

hResult.MoveLast

في الدرس التالي سوف نشاهد خاصية البحث المتنوعة

[bouhssini]

السلام عليكم ورحمة الله

كما وعدناكم ها نحن سنكمل الدروس في التعامل مع قواعد البيانات في Gambas
عرفنا فيما سبق :

1. ربط البرنامج بقواعد البيانات
2. وإنشاء جدول داخل القواعد البيانات
3. إدخال البيانات في الجدول
4. عرض البيانات والتنقل داخل السجلات

اليوم سوف نتعلم كيفية البحث داخل قواعد البيانات
نبدأ أولا بطريقة البحث عن طريق لغة الاستعلام SQL ، نفترض أننا نريد البحث عن
شخص اسمه مثلا : bouhssini
وإليكم المثال التالي :

    hResult = hCon.Exec("SELECT * FROM Tel WHERE nickname = 'bouhssini' ;")

    IF hResult.Available THEN 
      T1.Text = hResult!id 
      T2.Text = hResult!nickname 
      T3.Text = hResult!Tel
      T4.Text = hResult!Address
    ELSE 
      Message.Info("لا يوجد أي بيانات بالبحث الذي أدخلت")
    END IF 

ممكن نبحث عن طريق الاسم ورقم الهاتف كما في الكود التالي :

    hResult = hCon.Exec("SELECT * FROM Tel WHERE nickname = 'bouhssini' AND Tel = '0123456';")

وهكذا يعني نستخدم لغة الاستعلام SQL عادي .

الان نذهب لطريقة البحث الثانية ، نفس المثال لكن بطريقة ثانية إليكم المثال

    hResult = hCon.Find("Tel", "nickname = &1 AND Tel = &2", "bouhssini", "0123450")
    IF hResult.Available THEN 
      T1.Text = hResult!id 
      T2.Text = hResult!nickname 
      T3.Text = hResult!Tel
      T4.Text = hResult!Address
    ELSE 
      Message.Info("لا يوجد أي بيانات بالبحث الذي أدخلت")
    END IF 

هنا استخدمنا أمر Find الذي هو عنصر من عناصر hCon ، في هذا العنصر يحدد لنا أول خيار
لتعريف الجدول الذي نبحث بداخله ، ثاني خيار هي عبارات البحث ونرمز للمتغييرات بـ :

&1  &2  &3 ...

حسب العدد المتغييرات لي نستخدمها في البحث ، وأخيرا الخيار الرابع عبارة عن قيمة هذه المتغييرات
كما في مثالنا ونفصل بينها بفاصلة

"bouhssini","0123456",...

وهكذا.

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

وأحب أن أبشر الاخوة أني بصدد تصميم برنامج بلغة Gambas للشات يدعم الصوت والصورة
مثل برنامج MSN لكن الميزة لي حتتوفر لنا أن البرنامج سوف يدعم الصوت والصورة وأيضا
سوف أعمل نسخة لأصحاب الوندوز باستخدام VB6 بمعنى أنه ممكن تتكلم مع شخص
يستخدم الوندوز وأنت تستخدم لينكس ، وأن شغال عليه هذه الايام ، وهذه صورة أولية للبرنامج