[VB.Net] برنامج قاعدة بياناتي الأولى Access

[CoDe.NeT]

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

الحمد لله والصلاة على رسول الله وآله الطيبين وصحبه الأخيار وسلم تسليما كثيرا

http://www.uaekey.com/ashkal/2/al3ammed823.gif
برنامج قاعدة بياناتي الأولى- Access + Visual Basic.Net
http://www.uaekey.com/ashkal/2/al3ammed823.gif
لم أكن في السابق أتتطلع الى أن أعمل قاعدة بيانات ولا إلى برنامج يتصل بها ليأخذ منها البيانات ويتحكم فيها اضافة وحذفا وتعديلا, إلا بعد رؤيتي لمشاريع وشروح عديدة بدا لي منها أنها شيء رائع, لابد لمن يحب البرمجة أن يخوض فيها ويتعرف على أسرارها, ولو بالشيء القليل

لذلك ... هذه مقدمة بسيطة في قاعدة البيانات والاتصال بها عن طريق فيجوال بيسك.نت

رأيت شرحين كلاهما رائعين,
الأول للعضو صاحب الإبداعات ذو المواضيع المميزة المسمى SmoothCriminal ( د.طاهر ) , يتكلم في موضوعه عن قاعدة بينات أكسس تحوي أكثر من جدول مرتبطة فيما بينها ثم استخدم لها الفيجوال بيسك.نت, تجد الموضوع كاملا من هنا http://www.absba.org/vb/showthread.php?t=482775 (http://www.absba.org/vb/showthread.php?t=482775)
حيث ستجد موضوعا كبيرا وشاملا ومتشعبا وستعتبره كدليل ومرجع في قواعد البيانات
وهنا تجد ( الإتصال بقواعد البيانات وفحصها باستخدام فيجوال بيسيك 8)
الجزء الأول من كتاب:المدخل إلى فيجوال بيسيك 2005
وغيرها من بدائع الفوائد البرمجية

والثاني, وما أنا بصدد الحديث عنه وهو "الكامل في قواعد البيانات" , للأخ الكريم م. عدي ياسين, الذي قام بشرح ربط قاعدة بيانات Access ببرنامج فيجوال بيسك. نت بطريقة بسيطة وممتعة وإن كان يغلب عليها الأكواد, فماذا قمت به أنا هنا؟

- قمت بتطبيق الشرح كاملا ثم قمت بإعادة كتابته المشروع مع تغيير مسميات المتغيرات وشرح الأكواد وإضافة بعض الأكواد والأزرار كما سترى لاحقا

هذا هو شرح الأخ عدي تجده هنا
http://www.4shared.com/file/56068803/a7246466/_-_.html (http://www.4shared.com/file/56068803/a7246466/_-_.html)

وبعد هذه المقدمة الطويلة


جاء دور الشرح الذي أعددته

http://www.uaekey.com/ashkal/2/al3ammed823.gif

أولا : إنشاء قاعدة بيانات باستخدام Microsoft Access 2007 بإمتداد (mdb)

قم بفتح برنامج Access 2007 (بالامكان استخدام Access 2003)


أنشئ قاعدة بيانات فارغة Blank Database كما في الصورة



http://dawn2.absba.org/teamwork2/660021/1.gif
http://www.uaekey.com/ashkal/2/al3ammed823.gif



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


http://dawn2.absba.org/teamwork2/660021/2.gif

http://www.uaekey.com/ashkal/2/al3ammed823.gif



اختر النوع mdb


http://dawn2.absba.org/teamwork2/660021/3.gif
http://www.uaekey.com/ashkal/2/al3ammed823.gif



ثم create
http://static3.filefront.com/images/personal/c/CoDeNeT/143993/rfhaxjbqox.jpg

http://www.uaekey.com/ashkal/2/al3ammed823.gif



ستظهر الآن قاعدة البيانات , قم بإضافة الحقول, أعد تسمية الحقل الأول كما في الاصورة الى "الاسم", وهكذا لباقي الحقول


http://dawn2.absba.org/teamwork2/660021/5.gif
http://www.uaekey.com/ashkal/2/al3ammed823.gif



تظهر الآن الحقول (الاسم, العمر, الجنس, الهاتف, العنوان)


http://dawn2.absba.org/teamwork2/660021/6.gif
http://www.uaekey.com/ashkal/2/al3ammed823.gif



اختر الآن حفظ سيظهر لك مربع رسالة لاختيار اسم الجدول , قم بتسميته TableA


http://dawn2.absba.org/teamwork2/660021/7.gif
http://www.uaekey.com/ashkal/2/al3ammed823.gif



انتقل الى عرض التصميم


http://dawn2.absba.org/teamwork2/660021/8.gif
http://www.uaekey.com/ashkal/2/al3ammed823.gif


قم باختيار مفتاح أساسي وليكن الاسم


http://dawn2.absba.org/teamwork2/660021/9.gif


http://dawn2.absba.org/teamwork2/660021/10.gif

http://www.uaekey.com/ashkal/2/al3ammed823.gif

انتقل الى عرض ورقة البيانات


http://dawn2.absba.org/teamwork2/660021/11.gif

http://www.uaekey.com/ashkal/2/al3ammed823.gif



قم بملء عدد من البيانات


http://dawn2.absba.org/teamwork2/660021/12.gif

http://www.uaekey.com/ashkal/2/al3ammed823.gif

الآن انتهى الجزء الخاص بقاعدة البيانات



http://www.uaekey.com/ashkal/2/al3ammed823.gif

http://www.uaekey.com/ashkal/3/3.gif

ثانيا: استخدام برنامج Visual Basic .Net لتصفح قاعدة البيانات, والاضافة والحذف والتعديل على قاعدة البيانات مع البحث

http://www.uaekey.com/ashkal/3/3.gif

قم بتشغيل البرنامج واختيار File ثم New Project


http://dawn2.absba.org/teamwork2/660021/13.gif

http://www.uaekey.com/ashkal/3/3.gif


اختر نوع المشروع Windows Application ثم قم بتسميته


http://dawn2.absba.org/teamwork2/660021/14.gif

http://www.uaekey.com/ashkal/3/3.gif


سيظهر الآن form1 قم بإعادة تسميته الى Mainform , وغير الحجم الى 532, 452 , ومكن خاصيتي "اليمين الى اليسار"


http://dawn2.absba.org/teamwork2/660021/15.gif


http://www.uaekey.com/ashkal/3/3.gif



1- اضف أولا 5 textbox واجعل خاصية Readonly تكون true
ثم اتبعها ب 5 label وغير الخاصية text الى "الاسم" , "العمر", ........, "العنوان" كما في الصورة
2-اضف 4 label غير الأول والثالث منها الى "السجل" و "من" بينما يبقى الثاني والرابع فارغين لملئهما لاحقا برقم السجل المعروض ضمن العدد الكلي للسجلات
3- اضف أربعة أزرار بغرض استعراض السجلات , الأول, التالي, السابق, الأخير
4- أضف أربعة أزرار للتعديل والاضافة والحذف والبحث
5- أضف button و textbox لعرض السجل عن طريق رقمه



http://dawn2.absba.org/teamwork2/660021/16.gif

http://www.uaekey.com/ashkal/3/3.gif

البدء في كتابة كود الفورم الرئيسي



http://dawn2.absba.org/teamwork2/660021/17.gif

http://www.uaekey.com/ashkal/3/3.gif

هنا الكود كاملا مع الشرح داخل الكود (http://www.absba.org/vb/showpost.php?p=6164936&postcount=2)

http://www.uaekey.com/ashkal/3/3.gif



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

هنا بالزر الأيمن على المشروع ثم Add ثم Windows form


http://dawn2.absba.org/teamwork2/660021/18.gif

http://www.uaekey.com/ashkal/3/3.gif

قم بتسمية هذا الفورم الخاص باضافة سجل جديد ب newlist



http://dawn2.absba.org/teamwork2/660021/19.gif

http://www.uaekey.com/ashkal/3/3.gif

اضف 5 textbox ولكن هذه المرة تكون خاصية Readonly = false
كذلك اضف 5 lable
و زرين للحفظ والالغاء



http://dawn2.absba.org/teamwork2/660021/20.gif


http://www.uaekey.com/ashkal/3/3.gif

مكن خاصية "اليمين لليسار" كما في الصورة



http://dawn2.absba.org/teamwork2/660021/21.gif

http://www.uaekey.com/ashkal/3/3.gif


الآن قم بكتابة كود الفورم newlist كالتالي (http://www.absba.org/vb/showpost.php?p=6165001&postcount=3)
الكود (http://www.absba.org/vb/showpost.php?p=6165001&postcount=3)


http://www.uaekey.com/ashkal/3/3.gif

بنفس طريقة الفورم الخاص باضافة سجل جديد newlist, قم بإنشاء الفورم الخاص بالتعديل editform كما في الصورة


http://dawn2.absba.org/teamwork2/660021/22.gif


http://www.uaekey.com/ashkal/3/3.gif


هنا الكود الخاص ب editform (http://www.absba.org/vb/showpost.php?p=6165022&postcount=4)



http://www.uaekey.com/ashkal/3/3.gif


بنفس طريقة الفورم الخاص باضافة سجل جديد newlist, قم بإنشاء الفورم الخاص بالبحث searchform
ويحوي Groupbox 1 المسمى ب"بحث"
Groupbox 2 المسمى ب"بحث عن" ويحوي 5 radiobutton خاصة ب( الاسم,.....,العنوان)
Groupbox 3 المسمى ب"نوعية البحث" ويحوي 2 radiobutton
textbox الخاص بإدخال كلمة البحث
3 button الخاصة ب ( بحث, إعادة تعيين, عودة الى البرنامج)
5 textbox و 5 label
وكذلك Datagridview
(خطرت في بالي فكرة للاستغناء عن زر إعادة تعيين بكود آخر أضعه في زر "بحث" سأتطرق له لاحق)




http://dawn2.absba.org/teamwork2/660021/23.gif

http://www.uaekey.com/ashkal/3/3.gif

كود الفورم searchform (http://www.absba.org/vb/showpost.php?p=6165062&postcount=5)


http://www.uaekey.com/ashkal/3/3.gif

الشكل النهائي


http://dawn2.absba.org/teamwork2/660021/24.gif




http://dawn2.absba.org/teamwork2/660021/25.gif


وهنا المشروع للتحميل

http://www.4shared.com/file/56053909/d6921a9e/FirstDataBase1.html (http://www.4shared.com/file/56053909/d6921a9e/FirstDataBase1.html)
في حال طلب باسوورد فهو 1234
http://www.uaekey.com/ashkal/2/al3ammed823.gif

http://www.uaekey.com/ashkal/3/3.gif

وصلى الله على محمد وآله وصحبه وسلم, والحمد لله رب العالمين

http://www.uaekey.com/ashkal/3/3.gif

http://www.uaekey.com/ashkal/2/al3ammed823.gif

تم رفع صور الشرح إلى سيرفر المنتدى بواسطة المشرف hady potter (http://www.absba.org/member.php?u=366674)

[CoDe.NeT]

كود الفورم الرئيسي Mainform





'1

Imports System.Data

Imports System.Data.OleDb


Public Class Mainform



'2
Dim connectionstring AsString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source ="



& Application.StartupPath & "\db001.mdb"

'OLEDB تعريف مزود
' وكذلك مسار قاعدة البيانات

'3
Dim newConnection AsNew OleDbConnection(connectionstring)
' statement is: OleDbConnection(ConnectionString)
'OleDbConnection Represents an open connection to a data source.
'Namespace: System.Data.OleDb
'Assembly: System.Data (in system.data.dll)
'The ConnectionString is designed to match OLE DB connection string format as closely as
'possible with the following exceptions:
'The "Provider = value " clause is required. However, you cannot use "Provider = MSDASQL"
'because the .NET Framework Data Provider for OLE DB does not support the OLE DB Provider for
'ODBC (MSDASQL). To access ODBC data sources, use the OdbcConnection object that is in the
'System.Data.Odbc namespace.

'4
Dim DataSet1 AsNew DataSet
'Datasets are objects that contain data tables where you can temporarily store the data for use
' in your application. If your application requires working with data, you can load the data
'into a dataset, which provides your application with a local in-memory cache of the data to work
'with. You can work with the data in a dataset even if your application becomes disconnected from
'the database. The dataset maintains information about changes to its data so updates can be tracked
'and sent back to the database when your application becomes reconnected.

'5
Dim SQLstr AsString = "SELECT * FROM TableA"
'SQLstr Represents a variable-length stream of characters to be stored in or retrieved from the
' database


PrivateSub Mainform_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
' عند تشغيل البرنامج يتم تحميل التالي

'6
newConnection.Open()
' عمل اتصال مع قاعدة البييانات

'7
Dim DataAdapter1 AsNew OleDbDataAdapter(SQLstr, newConnection)
' OleDbDataAdapter Represents a set of data commands and a database connection that are used
'to fill the DataSet and update the data source.

'8
DataAdapter1.Fill(DataSet1,



"TableA")

'DataAdapter1.Fill(Dataset, source table)
' ملء البيانات من الجدول

'9
newConnection.Close()
'

'10
TextBox1.DataBindings.Add("Text", DataSet1, "TableA.الاسم")


' DataBindings.Add(Property name, Data source, Data member)
TextBox2.DataBindings.Add("Text", DataSet1, "TableA.العمر")


TextBox3.DataBindings.Add("Text", DataSet1, "TableA.الجنس")
TextBox4.DataBindings.Add("Text", DataSet1, "TableA.الهاتف")
TextBox5.DataBindings.Add("Text", DataSet1, "TableA.العنوان")
'DataSet1 ملء مربعات النص بالبيانات من

'11
showlistnumber()
' هذه الدالة لعرض رقم السجل الحالي
EndSub

PublicSub showlistnumber()
' هذه الدالة لعرض رقم السجل الحالي من كافة السجلات
Label7.Text = Me.BindingContext(DataSet1, "TableA").Position + 1



' رقم السجل الحالي حيث يبدأ من 1 بدلا من الصفر
Label9.Text = Me.BindingContext(DataSet1, "TableA").Count



' عدد السجلات الكلي

EndSub


PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' السجل الأول
Me.BindingContext(DataSet1, "TableA").Position = 0
showlistnumber()
EndSub


PrivateSub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
' السجل الأخير
Me.BindingContext(DataSet1, "TableA").Position = Me.BindingContext(DataSet1, "TableA").Count - 1
showlistnumber()
EndSub


PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
' السجل التالي
Me.BindingContext(DataSet1, "TableA").Position += 1
showlistnumber()
EndSub


PrivateSub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
' السجل السابق
Me.BindingContext(DataSet1, "TableA").Position -= 1
showlistnumber()
EndSub


PrivateSub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
' حذف السجل الحالي
' (1,2,.....,10)

'1 إظهار رسالة
If MsgBox("هل تريد حذف السجل الحالي", MsgBoxStyle.OkCancel) = MsgBoxResult.Cancel Then
' إذا تم اختيار الغاء يتم الخروج من هذا الاجراء
ExitSub

EndIf

'2
' أمر SQL
Dim Savecommand AsNew OleDb.OleDbCommand
'OleDbCommand Represents an SQL statement or stored procedure to execute against a data source.

'3
Dim DataAdapter1 AsNew OleDbDataAdapter(SQLstr, newConnection)

'4
Savecommand.Connection = newConnection
Savecommand.CommandType = CommandType.Text

'5
Savecommand.CommandText =



"DELETE FROM TableA WHERE الاسم ='" & Trim(TextBox1.Text) & "'"

'Savecommand.CommandText = "SELECT * FROM ***"
'Savecommand.CommandText = "DELETE FROM ***

'6
newConnection.Open()

'7
Savecommand.ExecuteNonQuery()
'ExecuteNonQuery: Executes an SQL statement against the Connection and returns the number of rows affected

'8
DataSet1.Clear()
DataAdapter1.Fill(DataSet1, "TableA")

'9
newConnection.Close()
MsgBox("تمت عملية الحذف في قاعدة البيانات بنجاح")

'10
showlistnumber()
EndSub


PrivateSub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
' لإظهار الفورم الخاص بإضافة سجل جديد
'Dim newlist As New newlist
newlist.Show()
Me.Hide()
EndSub


PrivateSub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
' زر تعديل السجل
Dim edit AsNew editform
' ملء مربعات نص فورم التعديل بمحتويات مربعات النص للفورم الأساسي للسجل الحالي
edit.TextBox1.Text =



Me.TextBox1.Text

edit.TextBox2.Text = Me.TextBox2.Text
edit.TextBox3.Text = Me.TextBox3.Text
edit.TextBox4.Text = Me.TextBox4.Text
edit.TextBox5.Text = Me.TextBox5.Text

edit.Label6.Text = Me.TextBox1.Text
' يأخذ الفورم محتويات مربعات النص للسجل الحالي
' عرض فورم التعديل
edit.Show()
Me.Hide()

EndSub

PrivateSub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
' زر خروج
Application.Exit()
EndSub


PrivateSub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
' بحث
searchform.Show()
Me.Hide()
EndSub


PrivateSub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
' زر عرض السجل رقم
If TextBox6.Text = ""Then
ExitSub
' إذا كان محتوى مربع النص فارغا يتم الخروج من هذا الإجراء

ElseIf Val(TextBox6.Text) > Me.BindingContext(DataSet1, "TableA").Count Then
Label11.Text =



"أدخلت رقما خاطئا"

' إذا كان رقم السجل المدخل أكبر من عدد السجلات يظهر محتوى الليبل11

Else
' يظهر السجل المدخل رقمه
Me.BindingContext(DataSet1, "TableA").Position = (TextBox6.Text - 1)
' تم طرح 1 لأن السجلات تبدأ العد من الصفر لكن ستظهر للمستخدم من الواحد
showlistnumber()
Label11.Text = ""
EndIf
EndSub


PrivateSub TextBox6_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox6.KeyPress
' لمنع إدخال الحروف والرموز والسماح للارقام وزر باك-سبيس في مربع نص 6 الخاص ب"عرض السجل رقم"
If (Char.IsLetter(e.KeyChar) = True) Then
e.Handled = True


' ‘إذا كان المدخل حرف قم بمنع الكتابة
ElseIfChar.IsSymbol(e.KeyChar) = True Then e.Handled = True


'إذا كان المدخل رمز قم بمنع الكتابة
ElseIfChar.IsPunctuation(e.KeyChar) = True Then
e.Handled = True


'إذا كان المدخل ترقيم قم بمنع الكتابة
EndIf

EndSub
EndClass

[CoDe.NeT]

كود الفورم newlist





Imports System.DataImports System.Data.OleDb



Public Class newlist

Dim main AsNew Mainform

PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' زر الحفظ

'1 (exception handler) (Try...Catch ex as exception...End Try)
Try

'2
Dim Savecommand AsNew OleDb.OleDbCommand

'3
Dim connectionstring AsString = _
"Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & _
Application.StartupPath & "\db001.mdb"

'4
Dim newconnection AsNew OleDbConnection(connectionstring)

'5
Savecommand.Connection = newconnection
Savecommand.CommandType = CommandType.Text

'6
Savecommand.CommandText =

"INSERT INTO TableA(الاسم,العمر,الجنس ,الهاتف, العنوان)" & _
"values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "') "

'7
newconnection.Open()
Savecommand.ExecuteNonQuery()
newconnection.Close()

'8
MsgBox(

"تمت عملية الاضافة والحفظ في قاعدة البيانات بنجاح")

Me.Close()

main.Show()

Catch ex As Exception
ExitSub
EndTry
EndSub


PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
' زر الغاء
Me.Close()
main.Show()
EndSub

EndClass

[CoDe.NeT]

كود الفورم editform





Imports System.Data
Imports System.Data.OleDb


Public Class editform



Dim main AsNew Mainform

PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim n AsString = Label6.Text
Dim Savecommand AsNew OleDb.OleDbCommand
Dim Connectionstring AsString = _
"Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & _
Application.StartupPath & "\db001.mdb"

Dim newconnection AsNew OleDbConnection(Connectionstring)
Savecommand.Connection = newconnection
Savecommand.CommandType = CommandType.Text

Savecommand.CommandText = "UPDATE TableA SET الاسم = '" & Trim(TextBox1.Text) & "' , العمر = '" & Trim(TextBox2.Text) & "' , الجنس = '" & Trim(TextBox3.Text) & "' , الهاتف = '" & Trim(TextBox4.Text) & "' , العنوان= '" & Trim(TextBox5.Text) & "' WHERE الاسم ='" & n & "'"
newconnection.Open()
Savecommand.ExecuteNonQuery()
newconnection.Close()
MsgBox("تمت عملية الاضافة والحفظ في قاعدة البيانات بنجاح")
Me.Close()
main.Show()
EndSub


PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
main.Show()
EndSub

EndClass

[CoDe.NeT]

كود الفورم searchform





Imports System.Data

Imports System.Data.OleDb



Public Class searchform


Dim main AsNew Mainform

Dim Connectionstring AsString = _
"Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & _
Application.StartupPath & "\db001.mdb"

Dim newconnection AsNew OleDbConnection(Connectionstring)
Dim DataSet1 AsNew DataSet
Dim SQLstr AsString
Dim m AsString

PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' بحث

Static m AsInteger = 0
' Static: Specifies that one or more declared local variables are to remain in existence and retain their
' latest values after termination of the procedure in which they are declared

If TextBox1.Text = Trim("") ThenExitSub
' إذا كان مربع النص فارغ يتم انهاء هذا الاجراء

If RadioButton7.Checked = TrueThen
ExactSearch()
' مطابق للكلمة
' يتم تنفيذ الدالة ExactSearch

ElseIf RadioButton6.Checked = TrueThen
GeneralSearch()
' GeneralSearchيتم تنفيذ الدالة
' عام

EndIf

newconnection.Open()

Dim DataAdapter1 AsNew OleDbDataAdapter(SQLstr, newconnection)

DataAdapter1.Fill(DataSet1, "TableA")

newconnection.Close()


' ملء مربعات النص بما يوافق ناتج كلمة البحث
TextBox2.DataBindings.Add("Text", DataSet1, "TableA.الاسم")


TextBox3.DataBindings.Add("Text", DataSet1, "TableA.العمر")
TextBox4.DataBindings.Add("Text", DataSet1, "TableA.الجنس")
TextBox5.DataBindings.Add("Text", DataSet1, "TableA.الهاتف")
TextBox6.DataBindings.Add("Text", DataSet1, "TableA.العنوان")


' ملء الداتاقريد بنتائج كلمة البحث
DataGridView1.DataSource = DataSet1
DataGridView1.DataMember = "TableA"
DataGridView1.AllowDrop = True




' عند الانتهاء من البحث يتم تعطيل زر البحث لتفادي الخطأ؟؟؟
Button1.Enabled = False




If Me.BindingContext(DataSet1, "TableA").Count = 0 Then
MsgBox("No Result, Please Try Again ")


ExitSub
EndIf
EndSub

PublicSub ExactSearch()
' مطابق للكلمة
If RadioButton1.Checked = True Then
SQLstr = "SELECT * FROM TableA WHERE الاسم = '" & TextBox1.Text & "'"


' الاسم

ElseIf RadioButton2.Checked = True Then
SQLstr = "SELECT * FROM TableA WHERE العمر = '" & TextBox1.Text & "'"


' العمر

ElseIf RadioButton3.Checked = True Then
SQLstr = "SELECT * FROM TableA WHERE الجنس = '" & TextBox1.Text & "'"


' الجنس

ElseIf RadioButton4.Checked = True Then
SQLstr = "SELECT * FROM TableA WHERE الهاتف = '" & TextBox1.Text & "'"


' الهاتف

ElseIf RadioButton5.Checked = True Then
SQLstr = "SELECT * FROM TableA WHERE العنوان = '" & TextBox1.Text & "'"


' العنوان

EndIf
EndSub


PublicSub GeneralSearch()
' بحث عام

If RadioButton1.Checked = True Then
SQLstr = "SELECT * FROM TableA WHERE الاسم LIKE '%" & TextBox1.Text & "%'"



ElseIf RadioButton2.Checked = True Then

SQLstr = "SELECT * FROM TableA WHERE العمر LIKE '%" & TextBox1.Text & "%'"


ElseIf RadioButton3.Checked = True Then

SQLstr = "SELECT * FROM TableA WHERE الجنس LIKE '%" & TextBox1.Text & "%'"


ElseIf RadioButton4.Checked = True Then
SQLstr = "SELECT * FROM TableA WHERE الهاتف LIKE '%" & TextBox1.Text & "%'"



ElseIf RadioButton5.Checked = TrueThen

SQLstr = "SELECT * FROM TableA WHERE العنوان LIKE '%" & TextBox1.Text & "%'"


EndIf
EndSub



PrivateSub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
' زر عودة الى البرنامج

Me.Close()
main.Show()
EndSub

PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
' اعادة تعيين

' لتمكين البحث مرة أخرى
TextBox2.DataBindings.Clear()
TextBox3.DataBindings.Clear()
TextBox4.DataBindings.Clear()
TextBox5.DataBindings.Clear()
TextBox6.DataBindings.Clear()
TextBox2.Text = ""
TextBox3.Text =

""
TextBox4.Text =

""
TextBox5.Text =

""
TextBox6.Text =

""
'DataGridView1.DataBindings.Clear()
'DataGridView1.*******()
'DataGridView1.AllowUserToDeleteRows = True
'DataGridView1.Update()

Button1.Enabled = True


SQLstr = ""


DataSet1.Clear()
Me.DataGridView1.DataSource = Nothing
EndSub


PrivateSub searchform_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

RadioButton1.Checked = True
RadioButton6.Checked = True


EndSub
EndClass

[aziz2122]

صور الشرح أخي الفاضل اغلبها غير ظاهر أرجو منك تعديلها لأنه هذا الموضوع بيفيدنا كثير

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

[eldofi]

اخي الغالي اتمنى ان تكون في اتم صحة و عافية

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

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

تقبل مروري

[fehmixp]

شرح رائع هل ممكن التعمق اكثر في الموضوع ولكل الشكر

[CoDe.NeT]

صور الشرح أخي الفاضل اغلبها غير ظاهر أرجو منك تعديلها لأنه هذا الموضوع بيفيدنا كثير

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

عذرا أخي إذا كان بعض الصور لا تظهر
هذا رابط الصور (ملف مضغوط)
http://www.4shared.com/file/56068969/106940c9/__online.html


اخي الغالي اتمنى ان تكون في اتم صحة و عافية

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

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

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



شرح رائع هل ممكن التعمق اكثر في الموضوع ولكل الشكر
شكرا لك أخي على مرورك وأتمنى لك الفائدة
ممكن التعمق إن شاء الله في الموضوع القادم, إلا إذا كانت لديك نقاط في الموضوع هذا غير واضحة

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

[CoDe.NeT]

تم اختصار عدد الفورم بدلا من 4 إلى واحد , مع عدم عمل البحث (يحتاج الى تعديل)

تجده هنا

http://www.zshare.net/download/16513229be1009c6/

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

(بالنسبة للإخوة الذين يراسلوني على البريد فإنهم يعتقدون أني مبرمج ولكن الحقيقة هي:
- درست كورس واحد في لغة C
- تركت البرمجة عدة أعوام
- رجعت للبرمجة عن طريق موضوع الدكتور طاهر SmoothCriminal "حل معادلات الدرجة الثانية" ثم "الآلة العلمية" ورأيت فيها لذة البرمجة التي أحبها
- بدأت الدروس الموجودة في المنتدى مثل "المدخل إلى فيجوال بيسك 2005" وغيرها من الدروس
- قرأت بإختصار بعض الكتب ولازلت أقرأ في كتاب "احتراف Visual Basic.Net" الذي أظن أني وجدته بالمنتدى وأعدت طرحه
- شاهدت وتعرفت على عدة مشاريع في المنتدى ومنتدى الفريق العربي وغيرها
- هوايتي هي البرمجة وأقوم بعمل بعض البرامج البسيطة
- لغة البرمجة التي أتعلمها حاليا هي Visual Basic.Net
-************
- من يطلب مني مساعدة فأنا المستفيد الأول لأني قد أحاول حلها أو البحث عنها فأكتسب معلومة جديدة


هذه السيرة الذاتية البرمجية للعضو المسمى CoDe.NeT

ادعو له بالهداية والتوفيق

[TheFantasy]

الف شكر لأنك شرحت الاكسس في 2007:) شكرا

[CoDe.NeT]

alimaj شكرا لمرورك الطيب
لذا لا تترد وابدأ الرحلة

[haytham02]

مشكور اخى الكريم

الى الامام

[الوصول]

الف الف شكر

[CoDe.NeT]

مشكور اخى الكريم

الى الامام
بارك الله فيك

الف الف شكر
العفو وأتمنى لكم ولي الفائدة

وترقبوا برنامج الموظفين الاصدار الأول من إعدادي بطريقة جديدة قريبا إن شاء الله

[SmoothCriminal]

رائع

[YoungSpider]

آسال الله تعالى ان يعطيك اعلى المراتب ويزيدك من العلم درجات وبارك الله فيك

[CoDe.NeT]

أستاذنا العزيز SmoothCriminal
شرفني مرورك العطر

أخي العزيز YoungSpider
بارك الله فيك واستجاب دعاءك

[YoungSpider]

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

[bufahad]

أخي الكريم جزاك الله خير على الجهد الكبير والرائع منك فسر الى الأمام بارك فيك

[eyadd2010]

بارك الله فيك وننتظر باقي برامجك لان هكذا مواضيع أستفيد منه كثيرا

[وحيد2008]

بارك الله فيك اخى الكريم وننتظر ابداعتك

[الأستاذ كاكاشي]

السلام عليكم

مشكور اخوي على البرنامج الرائع الصراحه فكره ولا اروع انا من كم يوم اسولف نع رئيس قسمي وقلت له عن شرحك وقالي اني اسوي برنامج للبحث في قاعدة بيانات بس سبحان الله ما ادري ليش مب رضيا تضبط معاي يوم انقل الاكواد يطلعلي اغلاط في الكود الظهار اني مب عارف انقلها صح والمشكله مب اهني المشكله اني وعدة رئيسي بأني اجهزله البرنامج فأذا تقدر اخوي بس اساعدني بالاكواد انا جهزت الاكسس وشكل البرنامج في فجول بيسك 5 وهاذي هي الصورhttp://file11.*********/preview/35921227/-------1.JPG.html
في هاذي الصوره ابا الاكسس ايكون في البرنامج طبعنا ما يحتاج ايكون البرنامج في عدت فورمات لا بس فورم واحد بس هاذا اذا ما بيكلف عليك
ممم شوف هاي الصوره ابا قاعدة البيانات اتكون موجوده في الرنامج نفس جي
http://file11.*********/preview/81941564/czcsbhoojz.gif.html
وهاذي صوره لقاعدة البيانات
http://file11.*********/preview/48536398/-------2.JPG.html

طبعن مثل ما شفت البحث في البرنامج بس ايكون في احدى ( اسم المنطقة ورقم القطعه ) انا في الصوره امغلط برقم القطعه امخلنها رقم المنطقه بس عدلتها

اخوي لو اتساعدني بكون لك ممنون لأني الصراحه وعدة الرئيس وما ابا اتفشل يدامه ارجوك اتساعدني:p

وهاذا رابط البرنامج وقاعدة البيانات الي سويتها

http://www.zshare.net/download/50445789bdea9b29/

[CoDe.NeT]

أخي الكريم جزاك الله خير على الجهد الكبير والرائع منك فسر الى الأمام بارك فيك


حياك الله بوفهد شاكرا لك مرورك


بارك الله فيك وننتظر باقي برامجك لان هكذا مواضيع أستفيد منه كثيرا
أهلا بك أخي إياد وإن شاء الله نفيد بعضنا


بارك الله فيك اخى الكريم وننتظر ابداعتك
وفيك الله يبارك أخي وحيد

[CoDe.NeT]

السلام عليكم

مشكور اخوي على البرنامج الرائع الصراحه فكره ولا اروع انا من كم يوم اسولف نع رئيس قسمي وقلت له عن شرحك وقالي اني اسوي برنامج للبحث في قاعدة بيانات بس سبحان الله ما ادري ليش مب رضيا تضبط معاي يوم انقل الاكواد يطلعلي اغلاط في الكود الظهار اني مب عارف انقلها صح والمشكله مب اهني المشكله اني وعدة رئيسي بأني اجهزله البرنامج فأذا تقدر اخوي بس اساعدني بالاكواد انا جهزت الاكسس وشكل البرنامج في فجول بيسك 5 وهاذي هي الصورhttp://file11.*********/preview/35921227/-------1.JPG.html
في هاذي الصوره ابا الاكسس ايكون في البرنامج طبعنا ما يحتاج ايكون البرنامج في عدت فورمات لا بس فورم واحد بس هاذا اذا ما بيكلف عليك
ممم شوف هاي الصوره ابا قاعدة البيانات اتكون موجوده في الرنامج نفس جي
http://file11.*********/preview/81941564/czcsbhoojz.gif.html
وهاذي صوره لقاعدة البيانات
http://file11.*********/preview/48536398/-------2.JPG.html

طبعن مثل ما شفت البحث في البرنامج بس ايكون في احدى ( اسم المنطقة ورقم القطعه ) انا في الصوره امغلط برقم القطعه امخلنها رقم المنطقه بس عدلتها

اخوي لو اتساعدني بكون لك ممنون لأني الصراحه وعدة الرئيس وما ابا اتفشل يدامه ارجوك اتساعدني:p

وهاذا رابط البرنامج وقاعدة البيانات الي سويتها

http://www.zshare.net/download/50445789bdea9b29/


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

بحث عام عن اسم المنطقة وبحث دقيق عن رقم القطعة

SQLstr1 = "SELECT * FROM TableA WHERE اسم_المنطقة LIKE '%" & TextBox1.Text & "%' and رقم_القطعة='" & TextBox2.Text & "'"


المهم أنا عملت البرنامج وساضع الكود فقط هنا لكن يجب عليك التالي:
1- أن يكون اسم قاعدة البيانات في الكود مطابقا , الموجود في الكود هو database.mdb
2- أن يوضع المسار الصحيح لقاعدة البيانات , وضعته أنا في مجلد Debug يعني مباشرة بدون مسار
3- أسماء الحقول في قاعدة البيانات يجب ألا تحوي فراغات , مثلا اسم المنطقة يعتبر خاطئ والصحيح اسم_المنطقة, إلا إذا كانت هناك طريقة أجهلها

إذا واجهتك مشكلة فسأرفع المشروع


Imports System.Data
Imports System.Data.OleDb

Public Class Form1

''''*********************
Dim Connectionstring As String = _
"Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & _
Application.StartupPath & "\database.mdb"

'& Application.StartupPath

Dim newconnection As New OleDbConnection(Connectionstring)
Dim DataSet1 As New DataSet
Dim SQLstr1 As String
Dim m As String
''''*********************
' زر بحث
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = Trim("") Then Exit Sub
' إذا كان مربع النص فارغ يتم انهاء هذا الاجراء


' خطوة إعادة تعيين
' لو كانت هناك فكرة أفضل لإعادة التعيين توضع بدل هذا الكود
If DataGridView1.DataMember = "TableA" Then
SQLstr1 = ""
DataSet1.Clear()
Me.DataGridView1.DataSource = Nothing


Else

' بحث عام عن اسم المنطقة وبحث دقيق عن رقم القطعة
SQLstr1 = "SELECT * FROM TableA WHERE اسم_المنطقة LIKE '%" & TextBox1.Text & "%' and رقم_القطعة='" & TextBox2.Text & "'"

newconnection.Open()
Dim DataAdapter1 As New OleDbDataAdapter(SQLstr1, newconnection)
DataAdapter1.Fill(DataSet1, "TableA")
newconnection.Close()
' ملء الداتاقريد بنتائج كلمة البحث
DataGridView1.DataSource = DataSet1
DataGridView1.DataMember = "TableA"
DataGridView1.AllowDrop = True
End If

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Application.Exit()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class

[aymaan]

http://zyzoom.net/annass/kingooo/smiles/THANK%20YOU/9%20%2813%29.gif

[الأستاذ كاكاشي]

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

[الأستاذ كاكاشي]

بس سؤال اخوي مممممم انقل الكود كوبي بست ولا احسن انقله بالكتابه وشي ثاني هل امسح كل الموجود في كود البرنامج ولا اكتبه قبل الكود ولا وين

[CoDe.NeT]

http://zyzoom.net/annass/kingooo/smiles/THANK%20YOU/9%20%2813%29.gif

أهلا بك أخي aymaan
وفقك الله

[CoDe.NeT]

بس سؤال اخوي مممممم انقل الكود كوبي بست ولا احسن انقله بالكتابه وشي ثاني هل امسح كل الموجود في كود البرنامج ولا اكتبه قبل الكود ولا وين
الأفضل تكتبه

طبعا الكود تضع أول سطرين قبل الكود
Imports System.Data
Imports System.Data.OleDb


وتعريف الإتصال بقاعدة البيانات في خانة الdeclaration أي تحت public calss form1

Dim Connectionstring As String = _
"Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & _
Application.StartupPath & "\database.mdb"

'& Application.StartupPath


Dim newconnection As New OleDbConnection(Connectionstring)
Dim DataSet1 As New DataSet
Dim SQLstr1 As String
Dim m As String




وكود البحث تحت Button1
بدءا من
If TextBox1.Text = Trim("") Then Exit Sub
' إذا كان مربع النص فارغ يتم انهاء هذا الاجراء

.....


إلى

End if

[الأستاذ كاكاشي]

السلام عليك اخوي

ممممم ما اعرف شو اقولك بس شكلي بتعبك معاي انا حاولت مع الكود بس تطلعلي مشكله اللي هي 6 اخطاء في الكود اظاهر اني مب عارفلها هاذا البرنامج ما ادري لو اتجوفه واتشوف شو الي امغلط في انا ____________ ____________.rar - 0.11MB (http://www.zshare.net/download/5054439681e3d211/)

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

http://static1.filefront.com/images/personal/c/CoDeNeT/148224/leerfhiuul.jpg

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

[CoDe.NeT]

السلام عليك اخوي

ممممم ما اعرف شو اقولك بس شكلي بتعبك معاي انا حاولت مع الكود بس تطلعلي مشكله اللي هي 6 اخطاء في الكود اظاهر اني مب عارفلها هاذا البرنامج ما ادري لو اتجوفه واتشوف شو الي امغلط في انا ____________ ____________.rar - 0.11MB (http://www.zshare.net/download/5054439681e3d211/)

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

http://static1.filefront.com/images/personal/c/CoDeNeT/148224/leerfhiuul.jpg

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

الخطأ بسيط وهو أنك لم تقم بإضافة DataGridview من صندوق الأدوات ToolBox ,
قم بإضافته وتمديده ليتلائم مع الفورم ( كأنك تضيف textbox)

بالنسبة للفكرة الثانية أحاول فيها غدا إن شاء الله, حفظك الله

[الأستاذ كاكاشي]

السلام عليكم الضراحه انت اخوي خطير نفس ما قلت سوت واستوى كل شي الحمد لله جزاك الله خير بس عن موضوع الجدول اخوي كيف اخليه داخل البرنامج على طول واقدر اغير فيه واحفظ التغير وجزاك الله خير :p

[CoDe.NeT]

السلام عليكم الضراحه انت اخوي خطير نفس ما قلت سوت واستوى كل شي الحمد لله جزاك الله خير بس عن موضوع الجدول اخوي كيف اخليه داخل البرنامج على طول واقدر اغير فيه واحفظ التغير وجزاك الله خير :p
أقول لا تخليني أصدق أني خطير تراها أشياء بدائية ولو صدقت أني خطير فراح أترك الفيجوال بيسك وقواعد البيانات :eek: :eek: ( ومتأكد مما أقول) وراح أتجه لل............... :D :D :D

[الأستاذ كاكاشي]

السلام عليكم
مممممم مب شي جديد عليك انك اتكون خطير لا (بعد) بقولك خطييييييير والله الصراحه حلو الشكل انزين انا الحمد لله استوى معاي كل شي بسألك شؤال هل اقدر اضيف botton3 واخليه حق فورم جديد ومن هاذا الفورم اسامي الحقول اتكون موجوده بس اني اخلي البيانات وتنحفظ يعني الفورم الاول ايكون بس حق البحث والخروج من البرنامج و زر ثالث ايدخلك على الفورم 2 ومن خلاله ادخل البيانات وتحفظها بس في شي في الفورم 2 احط فيه خروج بس مب من البرنامج لا خروج من الفورم 2 يسير ولا
ومشكور مره ثالثه و4 و5 اضن ههههه شكراً على الشرح الوافي

[CoDe.NeT]

نعم اعمل الفورم الجديد مثلا form2 وتضع الزر على فورم البحث form1 ويكون محتوى الزر
form2.show()
me.hide ()

وفي الفورم 2 تضع زر يرجع على الفورم 1 ويكون محتوى الزر
form1.show()
me.close()

أو ما شابه ذلك........ راجع أكواد الإنتقال في برنامج الموظفين

[عمر الجامعي]

شكر اخي على الموضوع المميز
لكن اخي لم اجد كلمة السر لتحميل

وهنا المشروع للتحميل

http://www.4shared.com/file/56053909/d6921a9e/FirstDataBase1.html (http://www.4shared.com/file/56053909/d6921a9e/FirstDataBase1.html)

[CoDe.NeT]

شكر اخي على الموضوع المميز
لكن اخي لم اجد كلمة السر لتحميل

العفو أخي عمر
و آسف لعد وضع الباسوورد وهو 1234

[mos]

شكرا يا استاذ على هذا المجهود الرائع والمفيد جدا

تحياتى

[freethink]

(بالنسبة للإخوة الذين يراسلوني على البريد فإنهم يعتقدون أني مبرمج ولكن الحقيقة هي:
- درست كورس واحد في لغة C
- تركت البرمجة عدة أعوام
- رجعت للبرمجة عن طريق موضوع الدكتور طاهر SmoothCriminal "حل معادلات الدرجة الثانية" ثم "الآلة العلمية" ورأيت فيها لذة البرمجة التي أحبها
- بدأت الدروس الموجودة في المنتدى مثل "المدخل إلى فيجوال بيسك 2005" وغيرها من الدروس
- قرأت بإختصار بعض الكتب ولازلت أقرأ في كتاب "احتراف Visual Basic.Net" الذي أظن أني وجدته بالمنتدى وأعدت طرحه
- شاهدت وتعرفت على عدة مشاريع في المنتدى ومنتدى الفريق العربي وغيرها
- هوايتي هي البرمجة وأقوم بعمل بعض البرامج البسيطة
- لغة البرمجة التي أتعلمها حاليا هي Visual Basic.Net
-************
- من يطلب مني مساعدة فأنا المستفيد الأول لأني قد أحاول حلها أو البحث عنها فأكتسب معلومة جديدة

هذه السيرة الذاتية البرمجية للعضو المسمى CoDe.NeT

ادعو له بالهداية والتوفيق

الله يوفقك يا غالى
وتكون بأمر الله من أفضل المبرمجين فى العالم
أحس فى كلامك بنبرة الطموح العالى

تمنياتى لك بالنجاح وتحقيق ما تبغاه

[CoDe.NeT]

شكرا يا استاذ على هذا المجهود الرائع والمفيد جدا

تحياتى
العفو أخي mos شرفني مرورك

[CoDe.NeT]

الله يوفقك يا غالى
وتكون بأمر الله من أفضل المبرمجين فى العالم
أحس فى كلامك بنبرة الطموح العالى

تمنياتى لك بالنجاح وتحقيق ما تبغاه
أهلا بك أخي الغالي
بفضل الله تطورت ولكن واجهتني صعوبات إلى الآن لم أجد لها حلا مجديا 100%
عسى ربي أن يجعل لي وللمسلمين مخرجا

[apood]

بارك الله فيك

[mbkmbk]

merciiiiii

[جني123]

جزاك الله الف خير أخوي كود .نت

اللهم إهدناوإياك الى طريق الحق ووفقنا للعمل في مايرضي الله

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

لأني كنت أعمل على برنامج بالفي بي 6 وتعبت منه صراحة ولكن هذا أفضل خاصة أنه بالفي بي .نت


جزاك الله خير

[CoDe.NeT]

بارك الله فيك

وفيك أخي APOOD



merciiiiii
العفو mbkmbk
أهلا بك



جزاك الله الف خير أخوي كود .نت

اللهم إهدناوإياك الى طريق الحق ووفقنا للعمل في مايرضي الله

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

لأني كنت أعمل على برنامج بالفي بي 6 وتعبت منه صراحة ولكن هذا أفضل خاصة أنه بالفي بي .نت


جزاك الله خير

مرحبا بك أخي جني123 وخذ راحتك :)

[mos]

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

[وحيد2008]

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

[KGN]

شكرا اخي وبارك الله فيك...


لي عودة بعد التحميل إن شاءالله

[weak]

نسأل الله لنا ولك الهداية والتوفيق وأتمنى لنا ولك مزيدا من الهمة التي تدفعنا للعلم والتطوير والإبداع