Visual Basic 6.0 translation

Wednesday, December 29, 2010

VB 6.0 MS-Access 2003 - Make Sure Before You Delete

بسم الله الرحمن الرحيم
فى اى مشروع متعلق بقاعدة البيانات من نوع اكسس على وجه الخصوص أو من اى نوع على وجه العموم , يجب ان تتأكد قبل عملية حذف سجل ان :
1) السجل المراد حذفه موجود بالفعل
و يتم ذلك عن طريق البحث عن السجل فاذا كانت نتيجة البحث ايجابية : يتم الحذف اما اذا كانت سلبية فلا يتم الحذف
2) جدول قاعدة البيانات غير فارغ
و يتم ذلك عن طريق RecordCount اذا كانت = صفر بالتالى الجدول فارغ فلا يتم حذف
3) مؤشر قاعدة البيانات يقف على السجل المطلوب حذفه

و يتم ذلك عن طريق AbsolutePosition اذا كانت القيمة -1 فان هذا معناه ان الجدول فارغ والمؤشر لا يقف على أى شىء فى الجدول او ان هناك مشكلة فى محرك قاعدة البيانات اما اذا كانت القيمة -2 فان هذا معناه ان المؤشر يقف قبل بداية اول سجل فى الجدول انا اذا كانت القيمة -3 فان هذا معناه ان المؤشر يقف بعد نهاية اخر سجل بالجدول , و جميع هذه الحالات لا يتم فيها الحذف.
و ذلك حتى لا يقابل العميل الذى صممت من أجله البرنامج أى مشاكل عند اجراء عملية الحذف و ايضا حتى يكون البرنامج الذى تصممه لا وجد به اى عيوب (Bugs) .

Tuesday, December 28, 2010

VB 6.0 - Save/Retrieve Images From Access Database

بسم الله الرحمن الرحيم

طريقة حفظ صورة فى قاعدة يانات اكسس و استرجاعهـــــــــــــا مرة أخرى عن طريف الفيجوال بيزك 6
How to Save/Retrieve Pictures To/From Access DB Using VB 0.6

أولا :
    
    شكل الفورم النهائى
    
  1. قم بتصميم مشروع عبارة عن Form1 و ضع عليها الادوات (Command1 و Image1 و Command2و Command3)
  2. 
  3. وظيفة الـــ Command1 هى حفظ الصورة و بالتالى تكون وظيفة الـــ Command2 هى استرجاع الصورة من قاعدة البيانات و الـــ Command3 لاختيار صورة من الكمبيوتر لعرضها و الــــ Image1 لعرض الصورة المراد حفظها و التى سيتم استرجاعها.
  4. قم بحفظ المشروع
  5. انشاء قاعدة البيانات باسم Mydb.mdb و وضعها فى فولدر المشروع (كما هو دائما متبع)
  6. 
  7. انشاء جدول باسم MyTbl عبارة عن عدد (2) حقل الاول باسم Img نوعه OLE و الثانى باسم ImgSz و نوعه Number Integer
  8. قم بحفظ قاعدة البيانات و الجدول
  9. من المشروع نستدعى مكتبة ADO النسخة 2.8 او اى نسخه
  10. 
  11. المنطقية : ما سنقوم بعمله هو كالاتى ( عمل متغيرين الاول من نوع Long و اسمة ImgLen ووظيفتة هى تخزين قيمة حجم الصورة المراد تخزينها فى قاعدة البيانات , و المتغير الثانى من نوع ()Byte وهو مصفوفة ايضا و اسمة DataByt ووظيفتة هى تخزين قيمة الصورة على شكل Binary ) و بالتالى عند الحفظ فى قاعدة البيانات ستتحول الصورة من على الفورم من صيغة صورة الى ملف Binary يتم تخزينه بقاعدة البيانات بدلالة المتغيرين السابقين و عند استدعاء الصورة سيتم استدعاء القيمتين و لكن ليس الى الفورم مباشرة و لكن عن طريق ملف صورة وسيط بصيغة صورة ليقرأ المتغيرين ثم نحملة على الفورم .
  12. للأسف هذه هى الطريقة السهلة جدا.
  13. سنقوم بوضع اداة DialogBox على الفورم و نسميها Cdl و هى الاداه التى سنقوم عن طريقها باختيار الصورة.
  14. حمل صورة من هنا مثلا و احفظها فى فولدر المشروع مع قاعدة البيانات و ليكن اسم الصورة MyPic و امتدادها JPG
  15. الاكواد بالصور و ستكون مفهومة ان شاء الله .
  16. الكود الاول General Declarations




 14. الكود الثانى () Form_Load




 15. الكود الثالث () Command1_Click
 

16.  الكود الرابع () Command2_Click
17. الكود الخامس () Command3_Click
و شكرا
انتهى الدرس
فى حالة وجود اى ملاحظة الرجاء ضع تعليق و سأعود اليك بأقرب وقت ممكن
مع تمنياتى بقضاء رأس سنه سعيد
اضافة للموضوع :
هذه الطريقة السابقة سيصعب اضافة ازرار (التالى - السابق - الاول - الاخير - تعديل) عليها فهذه الطريقة تناسب عملية الاحفظ و الاسترجاع لصورة واحده أو مجموعة صور و لكن بشروط معينة لن أتحدث عنها , و لكن الطريقة العملية للتعامل مع الصور من و الى قاعدة البيانات الاكسس بالذات هى عن طريق استخدام وسيط و هو الهارد ديسك حيث يتم حفظ الصورة مع الزر (حفظ) داخل الفولدر باسم معين يتم تخزينة بقاعدة البيانات عن طريق الدالة SavePicture و عند استرجاع الصورة من قاعدة البيانات الى الفورم نستخدم الدالة LoadPicture و يكون اسم الصورة التى سيتم تحميلها على الفورم هو نفسه اسم الصورة المخزن بقاعدة البيانات .

و سأقوم برفع مثال قريبا ان شاء الله
ايضا هناك بعض الامثلة الجاهزة المفيدة هنــــــــــــا فقط سجل بمنتهى السهوله


Visual Basic 6.0 Lessons, Tricks, Tutorials and help links :
 

Friday, December 17, 2010

VB 6.0 with MS-Access 2003 Copy a record from table to another


الشــــــــــــــــــــــــــــــــــــــــرح
1) قاعدة البيانات :
المشروع به قاعدة بيانات اكسس 2003 و عدد (4) جداول لها نفس عدد السجلات و نفس الاسماء و الخصائص اى انها نسخة من بعضها .
2) التصميـــــــــم :
عمل خانات  TextBoxes بعدد سجلات الجداول (id - name - age - phone)
عمل (4) ازرار بعدد و اسماء جداول قاعدة البيانات (ahmed - ali - said - mohammed)

عمل الازرار اللازمة (save - find - delete - exit)
يمكنك اضافة ايضا (Previous - Next)

3) الطريقة (المنطق) :
اذا اردنا نقل سطر "سجل" من الجدول (Ahmed) الى الجدول (Ali) نقوم بالاتى :
a) الضغط على زر (Ahmed) و باالتالى يتم فتح الجدول Ahmed
b) نقوم بكتابة البيانات المطلوب نقلها
c) نقوم بعمل حفظ (Save)
d) ثم نبحث عن السجل المطلوب نقلة الضغط على زر (Find) لعرض نتيجة البحث
e) نقوم الضعط على زر (Ali) و بالتالى يتم فتح الجدول (Ali)
f) نضغط على زر (Save) فيتم الحفظ فى الجدول المفتوح حاليا (Ali)
========================
و شكـــــــــــــــــــــــــــــــــــــــــــــــــــــــرا

Wednesday, December 8, 2010

Visual Basic Online Course Date Calculation

Visual Basic 6 Date Calculation 

Visual Basic 6 Date Calculation
Visual Basic 6 - Date Calculation
1- How to Add Date (Days) Or (Months) Or (Years) To a another Date.

2- How to Calculate the Date (Day) Or (Months) Or (Years) or get the Difference Between Two Dates.

The Answer Is Simple ..... 

1- Using The VB6 built-in Function 
Syntax
DateDiff(Interval,Date1,Date2)

2- Using The VB6 built-in Function 
Syntax
DateAdd(Interval,Number,Date2)

See Example in 4shared.com


Monday, November 29, 2010

VB 6.0 Reverse String

New VB 0.6 Project.

Form 1

Text1
MultiLine : True
Name : Txt1


Command1
Caption : Reverse
Name : CmdRev

Command2
Caption : Normal
Name : CmdNorm

Command3
Caption : Exit
Name : CmdX

Coding .......

CmdRev_Click()
Txt1.Text = StrReverse(Txt1.Text)
End Sub

CmdNorm_Click()
Txt1.Text = StrReverse(Txt1.Text)
End Sub

CmdX_Click()
End
End Sub

--------------------Good Luck--------------------------

Tuesday, November 2, 2010

Visual Basic Online Course Make Sure All TextBoxes Empty

Visual Basic Online Course
Make sure all Text boxes are clear first
Say ......... you have 10 TextBoxes and 10 ComboBoxes on a form and you are taking their contents into a database tables, i guess you have to make sure that all the TextBoxes and the ComboBoxes are Not Empty ... SO you can do something like This ....


OR, You may use something Like this :-

I will try here to tell the VB project that (TxtBx) represents all the TextBoxes Controls on a form (Form1) and (Cbos) represents all the ComboBoxes on the same form .... so the senario may be :

Hey, Form1 .... Be aware that (TxtBx) represents all my textboxes on You, and (Cbos) represents all my ComboBoexes On you, so whenever you find one Empty Just Give me a MsgBox and (Exit) the sub . OK?
But If not , continue Updating my database tables .... are we clear, form1 ??

How could we just Code These Lines of Scenario .......

Here we go :


Monday, November 1, 2010

Visual Basic Online Course Clear All TextBox controls

Visual Basic Online Course


TextBoxes are just like any other Objects on a form, could be cleared or we can say "Make it empty" .

So if we have :
Textbox1 and Textbox2 and Textbox3 on a form and we have a button called "CmdNew" and its function is to clear all the writings in all of the 3 TextBoxes .... we can do something like that :-

Or .........

Now ........
What if we have ComboBoxes Too ?
Or .........
What if we have various objects that we wanna set thier values to anything .... ??
- if you understood the previous example i think you already knew the answer ....

Good Luck

Sunday, July 4, 2010

VB 6.0 و التعامل مع MS-ACCESS 2003 من خلال شبكة - MS-ACCESS 2003 THROUGH NETWORK AND VB 6.0

بسم الله الرحمن الرحيم

الموضـــــــــــوع هذه المرة يتحدث عن كيفية التعامل مع Access من خلال الــــ VB 6.0 فى حالة وجود قاعدة البيانــــــــــــــات (mdb.*)  على جهاز اخر يصل الى الجهاز الى يحتوى البرنامج عن طريق شبكة NetWork .
و فى البداية يجب أن نتأكد من أن الجهازين على اتصال ببعضهم البعض بمعنى :


Ip Address
اســـــم الشبكة
  • نفرض ان لدينا جهازين (PC1 - PC2) و الجهاز PC1 هو السيرفر (هو الذى يستضيف قاعدة البيانات) و ليكون اسمها (ahmed.mdb) فى فولدر اسمـــــــة (MyProject) فى داخل الفولدر (Shared Documents) الذى يوجد فــــــــــى  (My Computer) ......
كما بالشكل .
    • و يجب ان لا ننسى ان نقوم بعمل Share للفولدر الذى سيحتوى على قاعدة البيانات أو ممكن ايضا تقاريـــــر.
    • و سنقوم بعمل قاعدة البيانات الان ...

    '' طبعا اذا كنت غير قادر على فهم أو تطبيق اى جزء فأنت غير ملم بالموضوع و يلزمك ان تدرس أكثر ''
    الان انتهى العمل تماما على الجهاز PC1
    و الان سنقوم بتصميم البرنامج
    كما بالشكل
     - طبعا البرنامج فكرتة كالتالى : قاعدة البيانات على جهاز و البرنامج على جهاز تانى أو على عدة أجهزة كل الاجهزة دى واصلة ببعضها عن طريق شبكة اسمها (Evry1falls) و الاى بى (IP) بتاع الجهاز الرئيسى رقمة (192.168.1.1) و بالنسبة للجهزة التانية تقدر تحط الارقام اللى انت عاوزها من 2 الى 255 فى أخر الرقم اللى فوق دة , فى المثال دة (PC1) الاى بى رقمة 192.169.1.1 و (PC2) الاى بى بتاعه رقمه 192.168.1.5 و الشبكة اسمها Evry1falls و البرنامج شغال بقاله اكتر من سنه و زى الفل بس طبعا على اكتر من جهاز , تقريبا 5 .
    - المفروض دلوقتى ان أول ما نعمل Run للبرنامج كل الــ TextBoxes هيظهر فيها أول سطر فى قاعدة البيانات و ده عشان منطولش على بعض , انا مرضتش أحط زراير تانية عشان كلها فكرتها مشروحة قبل كده فالدروس اللى فاتت .
    - ايضا لا تنسى اختيار مكتبة Ado اى اصدار , و فى هذا المثال نعمل بالاصدار 2.8 .
    - و الان مع الاكــــــــواد :
    كما بالشكل
    - الان قم بفتح ملف قاعدة البيانات (Ahmed.mdb) و املأ الحقول (سطر واحد فقط مثلا و ليكن "1 - احمد - 27") تجد أنه بمجرد عمل Run للبرنامج تظهر القيم السابقة فى الـــ TextBoxes و ايضا هذا معناه انك الان متصل بقاعدة البيانات من على الشبكة و يمكنك الان اضافة الازرار التى ترغب بها و الشاشات و الموديولز كأنك تعمل على قاعدة بيانات فى نفس الفولدر .....
    - و لمزيد من الدروس .... تابعونا باستمرار.
    - و لأى اسألة .... فقط ضع تعليق .
    - شكرا .............. مع تحياتى 

    Tuesday, June 22, 2010

    Visual Basic Online Course Lesson 3

    فيجوال بيزك 6 - الدرس الثالث

    سنتعلم فى هذا الدرس طريقة انشاء جداول قواعد البيانات و طريقة التعامل معها (اضافة - بحث - حذف) عن طريق الاكواد بدون اللجوء لقاعدة البيانات تماما .
    انظر ملف PDF

    قم بتحميل الملف و ستجد شرح مبسط و رابط المشروع ... و اذا لديك اى استفسار ضع تعليق على الموضوع و سأقود بالرد ان شاء الله ....

    فى المثال السابق تركنا نقطتان 4 و 5 و هما البحث و التعديل و الحذف و بعد هذا المشروع المطلوب منك تطبيق النقطتين حيث تم شرحهما هنا .

    و يوجد مفتاحان لم يتم برمجتهما هما (Next - Previous) و سيتم برمجتهما و شرحهما بالتفصيل ان شاء الله .

    مع تحيات \\ Evry1falls

    Tuesday, June 15, 2010

    Visual Basic Online Course Lesson 2

    بسم الله الرحمن الرحيم

    الان و بعد ان تعلمنا بعض المصطلحات 
    قم بتحميل الدرس الثانى من هنا 

    هذا الدرس يتكلم عن :
    1) ربط الفيجوال بيزك 6 بقاعدة بيانات MS Access 2003
    2) عمل حفظ للبيانات فى قاعدة البيانات
    3) مشروع تسجيل بيانات طالب و معرفة التقدير .
    4) عمل تعديل - حذف - بحث
    5) التنقل بين السجلات (الاول - التالى - السابق - الاخير)

    و لكن فى هذه المحاضرة اكتفينا بشرح أول 3 نقاط فقط فى ملف PDF كما فى الرابط على MediaFire و سيتم شرح باقى البرنامج .

    Monday, June 14, 2010

    Visual Basic Online Course Lesson 1

    بسم الله الرحمن الرحيم

    أولا 
    بداية  يجب على من يقرأ و يطبق مشاريع الدروس أن يكون على دراية بأساسيات الفيجوال بيزك 6 و قاعدة بيانات اكسيس
    ثانيا
    يجب تحديث الفيجوال بيزك 6 الى اس بى 6 من هنا و ذلك وظيفته : تمكين الفيجوال من الاتصال بقاعدة بيانات اكسيس 2003 و برنامج التقارير كريستال ريبورت
    ثالثا
    يجب ان تعرف ان الاكسيس 2003 ما هو الا برنامج مساعد يمكنك كمبرمج من اصدار برنامج قوى و انه ليست وظيفتك كمبرمج ان تكون خبير به , و ستكون دراستك فى ظل انشاء قواعد البيانات و الجداول و الكويرى فقط و ليس ابعد من ذلك
    رابعا
    هناك بعض المصطلحات الى يجب عليك معرفتها
     IDE 
    و هى واجهة التصميم اى كل امكانيات و شاشات الفيجوال بيزك فى مرحلة ما قبل التنفيذ اى فى مرحلة الرسم ووضع الاكواد و الرسومات للمشروع التى تعمل علية Integrated Design Environment
    MDB 
    و هو امتداد قاعدة بيانات الاكسيس 2003
    PATH
     و هو المسار مثل 
    C:/PROJECTS/MYPROJECTS/FORLDER1/AHMED/S.MDB 
    كل الكلمات التى هى قبل S.MDB هى عبار عن المسار للملف
     S.MDB 

    OCX
    Object Control Extension
    و يجب ان تعرف ان ملفات الاو سى اكس هى ادوات الفيجوال بيزك 
    مثل textbox, combobox, dtpicker
    كل هده الملفات عبارة عن ocx

    DLL

        Dynamic-link library 

    وهى عبارة عن مكتبات الفيجوال بيزك مثل مكتبة الادو و الداو

    API
    application programming interface
    و هى عبارة عن البرامج المساعدة كالدوال
    و يتم استدعائها من api viewer 
    من قائمة add-ins
    APP
    و هو اختصار لــــكلمة
    Application
    و هو من الكلمات التى يستخدمها برنامج الفيجوال بيزك فى الكود للاشارة الى البرنامج الذى نقوم بتطبيقة مثل 
    App.path
    التى تشير الى مسار المشروع و هى تساوى
    C:/projects/newfolder/myvb6/

    مصطلح Run-Time

    و هو يدل على البرنامج اثناء تنفيذه و يكون عن طريق الضغط على Ctrl+F5 اثناء تصميم المشروع فى بيئة الـ IDE أى ان Run-Time هو عكس IDE و الـ Run-Time تظهر فيه الاخطاء البرمجيه حتى يمكن تعديلها فى بيئة IDE أى أن الـ Run-Time يمثل شكل و طبيعة البرنامج أثناء التنفيذ بينما الـ IDE يمثل شكل و طبيعة البرنامج أثناء التصميم .
    ----------------------------------------------------------
    مع العلم ان هذا الشرح ما هو الا تبسيط للأفكار و للاستدلال فقط و لا يقوم بتنفيذ مشاريعك و برامجك بدلا منك فانت يجب عليك البحث كى تستفيد كل الاستفادة
    الرجاء البحث عن هذه المصطلحات و معرفة دلالتها اكثر ... فهى ضرورية لكل مبرمج و الى اللقاء فى الدرس الثانى ان شاء الله

    Visual Basic Online Course

    vb6 (63) Application Development (45) Visual Basic Online Course (45) Online Visual Basic Course (44) Visual Basic Help (44) Visual Basic Programming (42) IT Jobs (39) VB6 developer (38) Visual Basic Course (38) Visual Basic 6.0 (26) Microsoft Visual Basic 6.0 (25) VB6.0 (24) Visual Basic Programmers (24) vb 6.0 (24) visual basic programming tutorial (19) Third lesson (16) Source code download for Visual Basic 6.0 (14) Source code for Visual Basic 6.0 (10) visual basic tutorial (9) Visual Basic 6 (5) Visual Basic Courses (5) Lesson 3 (4) VB 0.6 - TreeView control (4) VB 0.6 With TreeView Control (4) VB6 Course (3) Create ActiveX (2) How to automate MS-Access from Visual Basic 6.0 (2) Add controls at runtime (1) Back up your Database (1) Change ActiveX icon (1) Change screen resolution (1) Create FTP (1) Crystal Reports 4.6 (1) Crystl32.ocx could not be loaded (1) DataGrid Columns re-size (1) Date Calculation (1) DateAdd Function (1) DateDiff function (1) FTP (1) Marquee Title Bar (1) Marquee VB 6.0 TitleBar (1) Method 'Action' of object 'CrystalCtrl' Failed (1) Microsoft Access with Visual Basic 6.0 (1) OpenSchema method (1) Save File Using CommonDilog (1) Track Database path (1) VB 0.6 - Registry (1) VB 0.6 With Registry Editor (1) VB 6.0 Access (1) VB 6.0 OOP (1) VB6 Access2003 ADO Like % (1) VB6 Add Date (1) VB6 Add Time (1) VB6 Date calculation (1) VB6 Subtract Date (1) Visual Basic Remote (1) Win7 (1) Windows7 (1) ms access networking details (1) remote Visual Basic DB (1) rounded and transparent forms (1) vb 0.6 style (1) vb 6.0 Remote Database (1)