Search VB 2010

Friday, December 09, 2011

Solution - There is already an open DataReader associated with this Command which must be closed first.

VB 2010

Problem : There is already an open DataReader associated with this Command which must be closed first.
Cause : Having more than 1 dataReader result set working at the same time .
Solution : In my solution example, i work with SqlServer2000 and VB.Net 2005 
The Example Project can be downloaded at the end of this post :
It contains (SqlServer2000 DataBase - VB.Net Project)
The example shows how to navigate (First Record - Next Record) using ADO.Net 2.0 Online-Mode using SqlClient DataReader ...
Sql Database Name : Market
Sql Database Table : Market.Info
Server Name : evry1falls
(in order to see the example correctly, you'll have to Import the Database 'Market' into your sqlserver2000 Enterprise Manager)
Photo1 : Application Final Design
Photo 1

Photo2 : Table Structure
Photo 2

Photo3 : Codes
Photo 3

Photo4 : Codes
Photo 4

Photo5 : Codes
Photo 5

Now if you run the project and tried to navigate using (First) or (Next) you will get the Exception :
There is already an open DataReader .....
so the solution would be :
Trap the Exception that shows in the (SelectedIndexChanged) Event of the (ComboBox) like this :

and the same for the (Next) Button ..
now you can Navigate and search using combobox safely without exceptions ..

Note :
- Source code will give you exception and you will have to re-write the solution by yourself  as shown above .
- The Folder(Bin/Debug) Includes (Back-Up) use it to restore the (Market Database) in your sqlserver2000
- use the namespace (evry1falls) as new server Registration .

Download Source Code : MediaFire Link

Using MS Access 2003/2007/2010

- In case of using Microsoft Access Database, OleDb.OleDbDataReader with OleDb.OleDbCommand.

The work around or the solution would be :
Always create a new Instance of the OleDbCommand, I.e

Friday, November 25, 2011

Visual Basic 2010 Math Functions

Microsoft Visual Basic 2010

Math Functions
Visual Basic 2010 Math functions
Visual Basic 2010 Math functions
Math and String Functions
In addition to performing simple arithmetic and string operations with the arithmetic and string operators, Visual Basic programs can take advantage of several built-in mathematical functions and string functions to perform useful processing that, otherwise, could require highly complex original code.
Mathematical Functions
Popular mathematical functions are summarized in the following table. Note that certain functions do not require the Math. prefix.
Math.Abs()Returns the absolute value.
Math.Abs(-10) returns 10.
Math.Ceiling()Returns an integer that is greater than or equal to a number.
Math.Ceiling(5.333) returns 6.
Fix()Returns the integer portion of a number.
Fix(5.3333) returns 5.
Math.Floor()Returns an integer that is less than or equal to a number.
Fix(5.3333) returns 5.
Int()Returns the integer portion of a number.
Int(5.3333) returns 5.
Math.Max()Returns the larger of two numbers.
Math.Max(5,7) returns 7.
Math.Min()Returns the smaller of two numbers.
Math.Min(5,7) returns 5.
Math.Pow()Returns a number raised to a power.
Math.Pow(12,2) returns 144.
Rnd()Returns a random number between 0 and 1. Used in conjunction with Randomizestatement to initialize the random number generator.
Math.Round()Rounds a number to a specified number of decimal places. Rounds up on .5.
Math.Round(1.1234567,5) returns 1.12346.
Math.Sign()Returns the sign of a number. Returns -1 if negative and 1 if positive.
Math.Sign(-5) returns -1.
Math.Sqrt()Returns the square root of a positive number.
Math.Sqrt(144) returns 12.
Random Numbers
The Rnd() function returns a random number between 0 and 1. More likely, the need is to generate a number within a particular range, between a given low and high number. This is accomplished with the following formula.
Math.floor((high - low + 1) * Rnd() + low)
For instance, to generate a random number between 0 and 10 the formula becomes
Math.floor((10 - 0 + 1) * Rnd() + 0)
String Functions
Several built-in string functions perform string manipulations to augment simple concatenation with the "&" operator. These functions are summarized in the following table.
Asc()Returns the character code of the first character of a string.
Asc("A") returns 65.
Chr()Returns the display character of a character code.
Chr(65) returns "A".
GetChar()Returns the character at a specified position in a string, counting from 1.
GetChar("This is a string", 7) returns "s".
InStr()Returns the starting position in a string of a substring, counting from 1.
InStr("This is a string", "string") returns 11.
InStrRev()Returns the starting position in a string of a substring, searching from the end of the string.
InStr("This is a string", "string") returns 11.
LCase()Returns the lower-case conversion of a string.
LCase("THIS IS A STRING") returns "this is a string".
Left()Returns the left-most specified number of characters of a string.
Left("This is a string", 4) returns "This".
Len()Returns the length of a string.
Len("This is a string") returns 16.
LTrim()Removes any leading spaces from a string.
LTrim("   This is a string") returns "This is a string".
Mid()Returns a substring from a string, specified as the starting position (counting from 1) and the number of characters.
Mid("This is a string", 6, 4) returns "is a".
Replace()Replaces all occurrences of a sub-string in a string.
Replace("This is a string", " s", " longer s") returns "This are a longer string" (replaces an "s" preceded by a blank space).
Right()Returns the right-most specified number of characters of a string.
Right("This is a string", 6) returns "string".
RTrim()Removes any trailing spaces from a string.
RTrim("This is a string   ") returns "This is a string".
Str()Returns the string equivalent of a number.
Str(100) returns "100".
Space()Fills a string with a given number of spaces.
"This" & Space(5) & "string" returns "This     string".
StrComp()Compares two strings. Return values are 0 (strings are equal), 1 (first string has the greater value), or -1 (second string has the greater value) based on sorting sequence.
StrComp("This is a string", "This string") returns -1.
StrReverse()Reverses the characters in a string.
StrReverse("This is a string") returns "gnirts a si sihT".
Trim()Removes any leading and trailing spaces from a string.
Trim("   This is a string   ") returns "This is a string".
UCase()Returns the upper-case conversion of a string.
UCase("This is a string") returns "THIS IS A STRING".
Val()Converts a numeric expression to a number.
Val( (1 + 2 + 3)^2 ) returns 36.
The above summaries give you a basic idea of the uses of these arithmetic and string functions. There are occasions throughout these tutorials to see them in action and in combination as they are applied to various processing needs.

VB.Net SqlServer DateTime Insertion

Dealing with Date/Time in VB.Net and SQLServer

It's been a nightmare since i decided to insert DateTime value into Sql Server 2000 DataBase Table Field Type as SmallDateTime.It took me 3 days and nights trying to work it around.I've did everything i know and everything other told me to do.Finally, i figured it out.
Look ....
Say, you have a Vb.Net 2005 Project with a form contains a DateTimePicker Control called (Q3) and Button Called (B3) Text Property as (Insert), and you have Sql Server 2000 DataBase called (Market) with Table Called (Purchase) includes a Field called (EXdt) Type as (SmallDateTime) Length (4), and you want to update it using Ado.Net Online Mode.
1) Calling The Ado.Net for Sql Server DataBase
Imports System.Data.SqlClient
2) Assigning your variables
Dim CN As New SqlClient.SqlConnection
Dim cPur As New SqlClient.SqlCommand
Dim CntRs As Integer
Dim SqlStr As String
3) Connecting your DataBase 'Market' - Form_Load Event

If CN.State = ConnectionState.Open Then CN.Close()
        CN.ConnectionString = "Data Source=Your_Sql_Server_Name;Initial Catalog=Market;Integrated Security=True"
4) Connecting your table 'Purchase' - Form_Load Event

SqlStr = "Select * from Purchase"
        With cPur
            .Connection = CN
            .CommandType = CommandType.Text
            .CommandText = SqlStr
        End With
5) Inserting the date within the DateTimePicker Control (Q3) Into Field (EXdt)
SqlStr = "Insert Into Purchase (ExDT) Values ('" & Q3.Value.ToString("yyyy/MM/dd") & "')"
cPur.CommandText = SqlStr

CntRs = cPur.ExecuteNonQuery()
        MsgBox("( " & CntRs & " ) Record(s) Saved")
Congratulations ....
Download The Source Code Via MediaFire Link

If you have any other problem contact me by Comments - or -
you can simply Google me for more solutions (evry1falls - Your Problem)

Saturday, November 19, 2011

Visual Basic Online Courses DataGridView Add Edit Delete

Manipulate DataGridView from Visual Basic 2010 with SQL Server

DataGridView Add, Edit, Delete From Database
Visual Basic Online Course - DataGridView SQL Server Database
Note : if you dunno how to work SqlServer With VB.Net : You need to see this then this
  •  Logic
Using DataGridView Control In VB.Net to Add New - Edit - Delete from/to Sql Server Database or MS-Access or any other Database type. You will find in the end of the lessons the project to download along with source code .
  • Design :
1) Create a new Visual Basic project (Windows Application) name it as (MyDg1) and save it to your hard drive.
2) Place a DataGridView Control on the Form1.
3) Create Sql Server Database file, name it (MyDB)
4) Create Table, name it (Kinds) with just one record, name it (Kinds)
5) Rename the DataGridView Control's name From (DataGridView1) to (DG1)
6) Save/Build the project .
7) Now you have : A project such as this one in the 3 photos (from inside VB.Net and from Outside)
Visual Basic Online Courses
DataGridView Project From Inside VB.Net 2005
Visual Basic Courses Online
DataBase (MyDB) & Table (Kinds) From Inside SqlServer
Courses of Visual Basic online
Project Folder on DeskTop With DataBase Inside
- What do we want to do ?!!!!
we want to update the database (MyDB) Table (Kinds) Record (Kind) using DataGridView (DG1) From MS Visual Basic .Net 2005 on WinXpSp2 Home Edition ........ ahahahaha ok?!!

We will use NO buttons, we will only use DG1 Events :
1) For Adding New Record : you type in the cell in the dg1 and hit Enter Key
2) For Editing : you Edit a cell that already have been saved and hit enter
3) For Deleting : you Select a cell in the DG1 and you hit Delete key in the keyboard .
* Of course you can not add Empty Values because we have the record (Kind) is Primary Key (PK) .
* You can not Delete the (New DG1 Row) ...
All you have to do now is to open the Form1 Code and Clear all lines using (Ctrl+A) and (BackSpace) then Save Project (Ctrl+S) then Paste (Ctrl+V) these blocks of Codes :

Codes above works 100% just create the database and the table and the record successfully,

Friday, November 04, 2011

Visual Basic Online Course - SQL Server

قمنا بربط الـ Visual Basic .Net مع قاعدة بيانات من نوع MS Sql Server 2000 و قمنا بعمل مشروع Project باسم (SqlServer2000) عبارة عن Form تحتوى على Name - BirthDate - Age
و الان سنقوم ببرمجة المفاتيح الموجوده على Form و هى (New - Save - Edit - Delete - Search - Exit) و هى تعتبر مفاتيح رئيسية فى جميع المشروعات و يبقى المفتاح (Print) و سنقوم (ان شاء الله) ببرمجته فى موضوع لاحق لانه مرتبط بالتقارير Crystal Reports .
أولا : المفتاح New

و وظيفته تفريغ الخانات الموجوده على الـ Form لتهيئتها لاستقبال قيم جديده .
Code :
الاجراء ClearAll

ثم فى الحدث Click للمفتاح New نضع اسم الاجراء

الحدث Click للاداه Button1 مفتاح New

قم بتجربة المفتاح و املأ الادوات على الـ Form و لاحظ ..

ثانيا : المفتاح Save
و وظيفته حفظ القيم المدخلة فى الادوات فى جدول Basic قاعدة البيانات Info
Code : 

الحدث Click للاداه Buuton2 مفتاح الحفظ
قم بكتابة البيانات على الفورم فى جميع الخانات و اضغط على حفظ و لاحظ .

ايضا سنقوم بعمل معادلة لحساب السن تلقائيا بمجرد تغيير تاريخ الميلاد كالتالى .
الحدث ValueChanged للاداه DateTimePicker1 لحساب العمر تلقائيا

قم بتكرار حفظ جديد و لاحظ عند تسجيل تاريخ الميلاد يظهر السن تلقائيا و اضغط على Save و لاحظ ...
عند فتح جدول قاعدة البيانات سيكون لديك عدد (2) سجل ... أى ان التسجيل تم بنجاح . 
ثالثا : المفتاح Search
و سيكون البحث بدلالة الاسم Name
Code :

الحدث Click للاداه Button5 مفتاح البحث بدلالة الاسم

وسنقوم بالضغط على مفتاح Search ونكتب اى اسم تم حفظة و لاحظ ان البيانات تظهر على الـ Form .

رابعا : المفتاح Edit
حيث سنقوم بالبحث أولا ثم التعديل .
Code :

مفتاح التعديل Edit

نبحث عن اى سجل تم تعديلة للتأكد من التعديل .

خامسا : المفتاح Delete
بالمثل كما حدث فى التعديل سنقوم بالبحث أولا ثم الحذف .
Code :
مفتاح الحذف Delete
بعد الحذف نبحث عن سجل محذوف للتأكد من حذفه .

سادسا : المفتاح Exit
للخروج من البرنامج .
Code :

مفتاح انهاء البرنامج Exit

و السطر الاول معناه الخروج من قاعدة البيانات حتى لاتظل مفتوحة بعد الخروج من البرنامج ..

أرجو أن يكون الموضوع نال اعجابكم
أى سؤال فى التعليقات ان شاء الله .
Google Me to find Similar Useful Pages ( Evry1falls)

Here are some online Visual Basic lessons and courses :

Saturday, October 29, 2011

VB.Net SQL Server Project

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

اولا : SQL Server
- نسخة الــ SQL Server المستخدمه فى التطبيقات هى SQL Server 2000 Personal Edition أوSQL Server 2000 Enterprise Edition (Evalution)

صورة رقم 1

- عند تصطيب SQL Server على Windows لأول مره أو للمره الثانيه أو الثالثه نقوم بالخطوات كما بالصور بالترتيب و ذلك حتى نحصل على Registeration سليم لربط البرنامج بطريقة سليمة :

1) فتح ملف SQL Server.EXE من على الجهاز (الكمبيوتر - اللاب توب) و الذى يستخدم لتصطيب الـ SQL Server و هو نفسه المستخدم فى انشاء Registeration جديد ..... صورة رقم 1  

صورة رقم 2

2) نختار SQL Server 2000 Components تظهر شاشة اخرى كما بالصورة رقم 2 و نختار منها Install DataBase Server وتظهر شاشة أخرى كما بالصورة رقم 3

صورة رقم 3

 3) صورة رقم 3 عبارة عن شاشة ترحيب و نضغط على Next ثم تظهر شاشة أخرى بالصورة رقم 4 عباره عن استفسار عن Server (هل تريد تعيين Server جديد ؟ تعديل على السيرفر الحالى ؟) نختار Local Computer حيث ان العمل سيكون لى الكمبيوتر الحالى أى ان السيرفر سيكون على نفس الجهاز الذى نعمل عليه الان . و لاحظ ان خانة اسم الكمبيوتر تكون بالفعل غير نشطة و مكتوب بها اسم الجهاز لأن النسخه Evalution أو Personal تمكن فقط من العمل على الجهاز الحالى ثم نضغط Next . 

صورة رقم 4
صورة رقم 5
4) تظهر شاشة أخرى كما بالصورة رقم 5 الهدف منها تحديد ماذا يريد المستخدم للعمل على Local Machine و يهمنا فقط الاختيار الاول و معناه : انشاء Server جديد فرعى له كيان خاص ثم نضغط على Next .

صورة رقم 6
5) تظهر شاشة أخرى كما بالصورة رقم 6 و هى عبارة عن بيانات المستخدم التى سيتم التسجيل بها فى الـ Server الحالى و يجب ملأ كلا الخانتان و نضغط Next و تظهر شاشة شروطالاستخدام كما بالصورة رقم 7 التى تفيد ان النسخة Microsoft SQL Server Enterprise Edition هى نسخه تجريبية لمدة 120 فقط و نضغط OK .

صورة رقم 7

صورة رقم 8

6) تظهر شاشة أخرى كما بالصورة رقم 8 حيث سنقوم باختيار Server And Client Tools بما اننا سنعمل على الجهاز الحالى فقط فاننا سنقوم بتصطيب كلا الطرفين (العميل و السيرفر) على نفس الجهاز و نضغط Next .

7) تظهر شاشة أخرى كما بالصورة رقم 9 و التى بها هذه الخانه و التى نكتب فيها بحرص (اسم السيرفر) و فى الصورة اسم السيرفر هو (E) و نضغط على Next لظهر شاشة أخرى.

صورة رقم 9

صورة رقم 10

8) تظهر الان شاشة خصائص السيرفر و هو كما نعلم سيعمل (ان شاء الله تعالى) على الجهاز الحالى و بالتالى لن نحتاج الى Domain و سنختار Use Local System Account كما بالصورة رقم 10 ونضغط على Next لتظهر شاشة اخرى كما بالصورة رقم 11 لادخال الباسورد الخاص بــ SA أو (System Admin) و هو باسورد نقوم باختيارة لكة نضمن حماية Registeration E الخاص بالسيرفر .... و نضغط Next .  

صورة رقم 11

9) تظهر الان شاشة تطبيق ما سبق و كل ما ستفعله هو Next حتى ينتهى البرنامج من نسخ الملفات كما بالصور ارقام 12 - 13 - 14
صورة رقم 12

صورة رقم  13


صورة رقم 14

10) و بهذا يكون انتهى البرنامج من تصطيب المكونات و نقوم الان بعمل Restart للجهاز و نلاحظ ظهور العلامة التى بالصورة فى شريط ادوات الويندوز صورة رقم 15 .

صورة رقم 15
صورة رقم 16

11) نقوم بفتح الشكل بالضغط مرتين عليه و تظهر شاشة أخرى هى شاشة الـ SQL Manager و هى موجود بها سيرفرات الـ SQL التى تقوم بعملها على الجاهاز الحالى أو على شبكه فى حالات أخرى و بالنسبه لنا سنجد بالصورة رقم 16 السيرفر باسم EVRY1FALLS/E ميث اننى امتلك سيرفر باسم EVRY1FALLS و E هى عباره عن Registeration جديد على السيرفر EVRY1FALLS و لكن ليس هذا المهم فالأمر سيان فالنسبه لك اذا كانت هذه أول مره تقوم بتصطيب SQL Server فانك ستجد الاسم المكتوب فى الصورة رقم 4 هو اسم السيرفر و اذا قمت باعادة الخطوات السابقه مره أخرى فسيكون هذا اسمه New Registeration و هكذا ....

12) انت الان لديك سيرفر على الجهاز الحالى نوعه Local و لكن عندما نقوم بالعمل مع Visual Studio 2005 .Net فان جميع الخطوات و الاكواد بنسبة 99% لن تختلف عن العمل على سيرفر حقيقى على جهاز أخر .

صورة رقم 17

13) نفتح Program Files من Start و نختار SQL Server و منها نختار Enterprise Manager  و سيكون هذا هو شكله بالصورة رقم 17 ..

14) يمكن فى بعض الحالات لا تجد السيرفر أو Registeration مثل الذى قمنا بعملة E و هنا سنقوم بعمل New Registeration كالتالى :

صورة رقم 18

من شاشة Enterprise Manager نقوم بالضغط كليك يمين على SQL Server Group كما بالصورة رقم 18 و نختار New Registeration و تظهر شاشة أخرى تعرف معنى New Registration فقط نقوم بعمل Next تظهر شاشة أخرى كما بالصورة رقم 19 حيث تظهر السيرفرات الموجود على الكمبيوتر و فى هذه الحالة يظهر اسم الكمبيوتر لان نسختنا تجريبية و تعمل على هذا الجهاز فقط و بالتالى السيرفرات المتاحه تكون واحد فقط باسم الكمبيوتر نضغط على ADD مع العلم اذا لم يظهر الاسم فى مكان السيرفر يمكنك كتابته كما بالصورة رقم 20 , بعد الضغط على ADD يظهر الاسم فى الناحيه الاخرى من الشاشة الظاهره و نقوم بعمل Next .
صورة رقم 19

صورة رقم 20

الشاشى التاليه نختار منها الاختيار الثانى لكى ندخل الباسورد الذى قمنا بتحديده للـ sa و نضغط Next فتظهر شاشة Login Name نكتب فيه (sa) و Password نكتب فيه الباسورد الذى قمنا بتحديده فى الخصوه رقم 8 صورة رقم 11 ونضغط على Next ثم تظهر شاشة اخرى نضغط Next ثم تظهر شاشة اخرى نضغط Finish فتظهر رساله انه تم تمكين الـ Registeration الجديد بنجاح كما بالصورة رقم 21
صورة رقم 21

ثانيا : Visual Studio .Net 2005
صورة رقم 1
15) نفتح برنامج Visual Studio .و نقوم بانشاء مشروع جديد  New Project باسم (SqlServer2000) ثم OK............. صورة 1

16) التصميم كما بالصورة 2 عبارة عن (الاسم "TextBox" - تاريخ الميلاد "DateTimePicker" - السن "TextBox")
صورة رقم 2
و عدد من المفاتيح Buttons (جديد "New" - حفظ "Save" - بحث "Search" - حذف "Delete" - تعديل "Edit" - طباعه "Print" - خروج "Exit") . 

صورة رقم 3
صورة رقم 4
17) نقوم الان بحفظ المشروع على DeskTop فى فولدر باسم  Sql كما بالصورة 3 بالترتيب كما على الصورة و يكون شكل الفولدر بمحتوياته كما بالصورة رقم 4 و بعد ان انتهينا من تصميم المشروع .
صورة رقم 22
18) نقوم الان (ان شاء الله) بتصميم قاعدة بيانات صغيرة للمشروع و هو عبارة عن تسجل (الاسم - تاريخ الميلاد - السن) و سيكون اسم قاعدة البيانات Info يتم انشائها عن طريق Enterprise Manager من الـ Registration (E) الذى قمنا بانشائه كما بالصورة 22 نقوم عن طريق Wizard بانشاء قاعدة بيانات جديده ثم OK ثم صورةه 23 -24 - 25 - 26 - 27 - 28 - 29

صورة رقم 23

صورة رقم 24

صورة رقم 25

صورة رقم 26

صورة رقم 27
صورة رقم 28
صورة رقم 29

صورة رقم 30
صورة رقم 31

صورة رقم 32

و يجب مراعاة تحديد مسار قاعدة البيانات بالصورة رقم 25 فى الفولدر (Debug) فى الفولدر (Bin) فى فولدر المشروع على DeskTop . الان لدينا قاعدة بيانات باسم Info موجوده فى مجلد المشروع على DeskTop فى المكان الصحيح كما بالصوره 30 -31 .

الان سنقوم بانشاء جدول Basic داخل قاعدة البيانات كما بالصور 32 -33 - 34 - 35 - 36 عند الانتهاء من الصورة رقم 33 نغلق الجدول تظهر الرسالة بالصورة رقم 34 نضغط على Yes نلاحظ ظهور الجدول Basic مع باقى جداول قاعدة البيانات Info و التى تنشأ تلقائيا عند انشاء اى قاعدة بيانات و اذا ضغطنا Bouble Click على Basic كما بالصورة رقم 36 سنجد ان الحقول موجوده و ان Owner هو dbo أو DataBase Owner و بالنسبة للصلاحيات فاذا ضغطت على Permissions بالصورة رقم 36 ستجد الصلاحيات و يمكنك تعديلها و ايضا يمكنك اضافة صلاحيات عن طريق Logins من Security اذا اردت ان تنشأ مستخدمين لقاعدة البيانات مع الـ sa ,و لن ادخل فى هذا الموضوع لأن المفترض أنك على علم به . يمكننا الان اغلاق Enterprise Manager والتوجه الى Visual Studio

صورة رقم 35
صورة رقم 33

صورة رقم 34

صورة رقم 36

و لدينا الان البرنامج و قاعدة البيانات و الجدول ...
ثالثا :Connecting
نفتح المشروع و نتبع الصور بالترتيب من (1) الى (7) مع مراعاة ان فى الصورة رقم (5) لكى يظهر لك Microsoft Sql Server يجب ان تكون لديك نسخة Visual Studio Enterprise و ليست Evaluation (الحل هنا ان شاء الله) - الصورة رقم (6) اذا لم يظهر اسم السيرفر أو Registration E يمكنك كتابتة ثم ندخل اسم الدخول sa و الباسورد المستخدم . فى الخصطوه الاخيرة لن نكمل Next و لكن فقط سنأخذ الكود الظاهر فى الصورة رقم (8) و نضغط على Cancel .









رابعا  : الأكــــــــــواد :
بعد ان قمنا بالخطوه السابقة و التى لا تمثل توصيل البرنامج بقاعدة البيانات و لكنها فقط اختبار للتوصيل سنقوم الان بالتوصيل حيث سنقوم بفتح الفورم ونقوم بحذف جميع الاكواد الظاهره و نقوم بعمل Paste للاتى :

و قم الان بالضغط على Ctrl+F5 لتجربة البرنامج ستجد رساله MsgBox محتواها (1) و هذا معناه ان قاعدة البيانات تم توصيلها بنجاح بالبرنامج .....

و هنا نكون قد انتهينا ان شاء الله تعالى من الجزء الاساسى أما باقى البرنامج فعليك أن تكمله بنفسك ...
اذا كان لديكم اسئلة أو واجهتكم صعوبات أو مشاكل الرجاء وضع تعليق و سأقوم ان شاء الله بالرد عليه ...
اضافة جديده ( تطبيق على الحفظ و الحذف و التعديل و البحث )
Google Me (evry1falls) to find other relevant subjects

Visual Basic Courses - Share