ممكن حد يدلنى فين الخطاء النحوى

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

أخي الخطأ الذي لاحظته أنك وضعت الجملة بالشكل التالي من (اليسار إلى اليمين)

علامة تنصيص مزوجة - علامة تنصيص مفردة - علامة & - متغير - علامة & - علامة تنصيص مزوجة - علامة تنصيص مفردة <<<<

" ' & Variable & " '

وبهاذا الشكل تكون خطأ فالصحيح تكون كالتالي

علامة تنصيص مفردة - علامة تنصيص مزوجة - علامة & - متغير - علامة & - علامة تنصيص مزوجة - علامة تنصيص مفردة <<<<

' " & Variable & " '

ويجب أن تعلم ان هذه الصيغة تكون صحيحة في حال كان نوع الحقل الذي سيخزن فيه المتغير ..نص

أما إذا كان النوع رقم فتكون الصيغة كالتالي

علامة تنصيص مزوجة - علامة & - متغير - علامة & - علامة تنصيص مزوجة <<<<

" & Variable & "

أما إذا كان النوع تاريخ فتكون الصيغة كالتالي

علامة # - علامة تنصيص مزوجة - علامة & - متغير - علامة & - علامة تنصيص مزوجة - علامة # <<<<

# " & Variable & " #

وبالتوفيق

اللهم بارك فى الاخ koao وادخله فسيح جناتك اللهم امين

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

واخيرا الف شكر لشخصكم الكريم

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

وإياك أخي الكريم

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

أما إن كنت تبحث عن الرموز التي تكتب في VB.Net لتسهل عملك كمبرمج .. مثل أن تكتب بين أمرين برمجيين في سطر واحد العلامة " : " بدل ما تكتب كل أمر في سطر ... فإنها كثيرة وتتعلمها بأن تتابع الأمثلة والمشاريع الموجودة في المنتدى وتحاول أن تفهم كيف يعمل الكود وكل يوم ستجد نفسك تتعلم شئ جديد.... وإذا كان هذا طلبك فنحن في الخدمة .. وأوعدك أني أضع كل ما أعرفه من إختصارات .

SQL_full_reference.zip

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

السلام عليكم ورحمه الله وبركاته

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

نعم انا كنت اقصد الرموز التى تكتب فى vb.net وانا اطمع من حضرتك فى شرح بعض هذه الرموز كما وعدت

( كلمتان خفيفتان على اللسان ثقيلتان فى الميزان سبحان الله وبحمده سبحان الله العظيم )

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

هذا مثال اتمنى ان يلبي طلبك.. وبالتوفيق

ArabTeam2000.zip

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

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

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

لا اله الا الله محمد رسول الله

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

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

وكلامك المشجع لتقديم ما يكون فيه فائدة لمنتدانا الغالي

الذي جمعنا اخوة متحابين يحرصون على التعاون بامور الدين والدنيا

وبالتوفيق

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

ده كود الاضافه الى انا عامله

dim dr as oledbdatareader

cm.commandtext = select * from stores where name='" & name & "' or code = '" & code &"'

cm.connection = cnn

dr= cm.executereader()

msgbox("يوجد مخزن بنفس البيانات")

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

وانا كنت باكت الكود كده ومش بيشتغل

  dim dr as oledbdatareader

cm.commandtext = select * from stores where name='" & name & "' or code = '" & code &"'

cm.connection = cnn

dr= cm.executereader()

msgbox("يوجد مخزن بنفس البيانات")

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

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

لاضافة كود انقر اخر ايقونه في صف الأيقونات الموجود فوق مربع كتابة الرد وسيظهر لك تعليمتي الكود البادئة والأخيره (

[كود/]) ضع المؤشر بينهما ثم اضغط على انتر مرتين ستجد ان [code] صارت في الأعلى و [كود/] صارت في الأسفل وسطر فارغ في الوسط هنا اعمل لصق للكود الخاص بك وستلاحظ ان الكود بنفس التنسيق من دون طلاسم

نعود لسؤالك .. اعلم ان datareader لها طريقتين في تنفيذ اوامرها الأولى executereader فهي تستخدم مع عبارة select والتي قد تعود باكثر من سجل عند تنفيذها فلنفرض انك كتبت الكود التالي select * from T فقد يكون هناك سجل واحد او اكثر فالعباره ستعيد كل السجلات حتى لو عملت شرط فقد يتحقق الشرط لاكثر من سجل .. وهنا نقول انك تحتاج لقراءة الداتاريدر باستخدم حلقة while كما سترى في حل مشكلتك لاحقا ... والطريقة الثانية executeScalar فهي تستخدم مع عبارات select التي تعيد قيمة واحدة عند تنفيذها مثل count, max, min وغيرها فهنا تستطيع اسناد قيمة تنفيذ الداتاريدر مباشرة لمتغير او مربع نص
 ولاحظت انك وضعت ربط الاتصال بعد عبارة select  فالذي افهمة ان الربط يجب ان يكون قبل العبارة ثم يجب فتح الاتصال واغلاقة بعد ما تنتهي
ولعمل ما تريد يكون الحل هكذا ..
[code]dim dr as oledbdatareader
cm.connection = cnn
cnn.open
cm.commandtext = select * from stores where name='" & name & "' or code = '" & code & "''l
dr= cm.executereader
while dr.read
msgbox("Exist") : Exit while
End while
dr.close
cnn.Close

واعلم انك تستطيع الوصول لما يقرأه الداتاريدر داخل الحلقة كالتالي ("اسم الحقل")dr ... فلنفرض انك تريد وضع ما يوجد في حقل الاسم في مربع قائمة .. فسيكون الكود كالتالي

ListBox1.Items.Add(dr("name")'l

وبالتوفيق

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

السلام عليكم ورحمه الله وبركاته

شرح جميل جداااااااااااااااااااااااااااااااااااااااااااااا.

والله ما اناعارف اقول لحضرتك ايه ولايوجد عندى الا الدعاء لله ان تكون من اصحاب هذه الايه " لا اريد منكم من اجر ان اجرى الا على الله "

وعلى فكره انا عندما قمت بتنفيذ الكود البرناج اعترض على عباره cnn.open وcnn.close مش عارف ربما انه عند ربط قاعده البيانات قمت بفتح الاتصال cnn.open وبالنسبه لجمله لربط الاتصال بعد عباره select انا فعلا دائما بقوم بهذا الربط ومفيش اى اعتراض هل من الممكن ان يسبب مشاكل فيما بعد .

ولو سمحت عاوز اعرض قاعده البيانات فى الداتا جريد وقاعده البيانات تتكون من id,name,code,address اسم الجدول stores

وهذا هو الكود

		Dim ds As New DataSet
		Dim stores As New DataTable

		Dim id As New DataColumn
		Dim name As New DataColumn
		Dim code As New DataColumn
		Dim address As New DataColumn
		ds.Tables.Clear()
		stores.Columns.Clear()
		stores.Columns.Add("id", GetType(System.String))
		stores.Columns.Add("name", GetType(System.String))
		stores.Columns.Add("code", GetType(System.String))
		stores.Columns.Add("address", GetType(System.String))
		ds.Tables.Add("stores")
		DataGridView1.setDataBindings(ds, "stores")
		 DataGridView1.Controls.Clear()
		Dim sql As String = "select * from stores"
		Dim da As New OleDbDataAdapter(sql, cnn)
		Try
			da.Fill(ds, "stores")
			DataGridView1.DataSource = ds.Tables("stores")
		Catch ex As Exception
			MsgBox(ex.Message & "عرض")
		End Try

اللهم باسط الارض ورافع السماء اجعل زده بكل حرف حسنه وحط عنه خطيه واجعل نوره بين عينيه اللهم امين

واخر دعوانا ان الحمد لله رب العالمين

" ان الله فى عون العبد مادام العبد فى عون اخيه "

والسلام عليكم ورحمه الله وبركاته

انا اسف

بيظهر خط ازرق تحت هذه العباره (" DataGridView1.setDataBindings(ds, "stores

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

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

ولكن من اجلك .. ومحاولة لكسب دعوة مباركة منك .. فهذه ثلاثة أمثلة لاستخدام الداتا سيت والداتا قريد (اظن انها لاستاذنا الغملاسي) .. لعلك تجد فيها ضالتك.. وان لم تكن كذلك .. فلعلك تضع سؤالك في موضوع مستقل لكي يرد عليك .. وأعذرني على التقصير وقلة الحيلة ..

اللهم زدنا علما في امور ديننا ودنيانا .. وبارك لنا في ما علمتنا .. وذكرنا ما نسينا .. ولله الحمد أولا وآخرا...

ww.zip

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

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

وتقبل خالص تحياتى ،،،،،،،،،،،،،

محمد جلال