الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

سؤال في الفيجوال بيسك مع الإس كيو ال

بدأه someone1010 في 22 مارس 2008 · 10 رد · 1,137 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

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

واللي عنده اي خبرة ولو كانت بسيطة ياليت يترك الإيميل عشان نقدر نتفاهم ..

وله مني كل الشكر<< هذي ماتوكل عيش

طيب بالإضافه لـ دعوات القلب .. << وش تبون اكثر ..

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

شرح الموضوع باختصار بكتبه بالأنجليزي لأصحاب الأنجليزي ..

Our system aims at helping PDA's holder to request the near by hospital facilities to a certain location where the handset is locate (PDA's Users ) .

By using GPS technology the system locates the user's handset –mobile phone- and sends a SMS message to the server (that contains the coordinates of handset location by the ID (Cell Identification ) requesting the nearest hospitals for his location. The system then replies with a message that has the nearest hospitals facilities along with their information as hospital name , telephone number and address.

يعني بحكينا ..

ان الشخص اللي معه الكمبيوتر الكفي اوالمسمى بالانجليزي PDA وصلت والا اعطيكم مثال ..

يعني مثل اي ميت يعني يشتغل على ويندوز موبايل.. عرفتوه .. .. ايه خلاص

ايه ياطويلين السلامه والبقى .. ان اللي يمسك هالجوال يقدر يرسل رساله وهو في مكانه للنظام اللي أنا بسويه<<جتني الصيحة ..

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

بقول لكم .. انتوا أدرى ..

أنا عندي قاعدة بيانات فيها احداثيات المستشفيات اللي في الرياض ..

والمساعده اللي أنا طالبتها اني كيف أنفذ المشروع باستخدام لغة الفيجوال بيسك ..

مثلاً : لإضافة مستشفى جديد .. الكود التالي :

Dim ss As New SqlCommand

ss.CommandText = " "

Dim add As New SqlConnection(My.MySettings.Default.x)

ss.Connection = add

ss.CommandText = "insert into hospital(ID,Name,Phone,Address,Long,Lat) values('" + Me.txtID.Text + "','" + Me.txtName.Text + "','" + Me.txtTelephone.Text + "','" + Me.txtAddress.Text + "','" + Me.txtLong.Text + Me.txtLat.Text + "','" + "')"

add.Open()

ss.ExecuteNonQuery()

add.Close()

بس المشكلة انه ماضبط معاي .. وهنا بديت وهنا وقفت

فياليت اللي عندة خبرة في هالمواضيع أو قد سمع عنها مايبخل علي ..

وإذا تبون أرسل الشاشات ماعندي مانع .. واللي تبونه اطلبوه بس ساعدوني .. مشكورين وجزاكم الله ألف خير

.

#2

السلام عليكم

الصراحة أنا ما راح أخبي عليك أنا خبرتي ضعيفه تقريبا بالدوت نت .... و لكني أرغب بمساعدتك ... فهل يمكنك إرفاق ملفك

200px-Dreamworks.jpg
#3

السلام عليكم ...

أول شي يلزمك تجميع المعلومات المطلوبه أو بمعنى آخر كيف تجيب البيانات اللي يحتاجها النظام لأنك ماوضحتها بكلامك

مثل نوع البيانات التي سيتم استقبالها من جهاز الـ PDA هل هي بصيغة (xml) أم (txt) أم ماذا ؟ وكذلك البيانات التي سيتم إرسالها

وكذلك يجب ان تتوفر لديك أجهزه قبل أن تبدأ بالنظام مثل جهاز تحديد المواقع GPS هل هي متوفره لديك ؟

اللي فهمته من كلامك والكود اللي وضعته يبين ان النظام بيكون على جهاز كمبيوتر (سيرفر يعني) فهل هذا صحيح ؟ أو انه بيكون على جهاز PDA ؟

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

وأقصد في كلامي أن هذه المستلزمات ربما تكون متوفره لديك ولكنها غير متوفره لأغلب أعضاء المنتدى

أما بالنسبه لكود الإضافه

فالخطأ عندك هو عدم تطابق نوع البيانات يمكنك تلافيها بتحويل نوع البيانات من String إلى Integer للحقول التي تم تعيينها كأرقام في قاعدة البيانات

بهذه الصيغه :

CInt(textbox1.text)

هذا مالدي وأتمنى اني افدتك ...

#4

اخي الكريم

خليني الاول اشوف انا فاهم اللي حضرتك محتاجه

اولا انت مطالب بتحديد موقع الشخص عن طريق المحاور

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

وارسال رساله له بمكان المستشفي

متهيالي ده اللي انتا عايزه

ارجو التوضيح

اخوك عمر

#5

السلام عليكم

اشكر لكم اهتمامكم ..

بالطبع .. انا مستخدم نظام ال GPS ومخزنين في الداتا بيز اللي عندنا احداثيات مستشفات الرياض ..

هذا اول شي

طبعا حامل ال PAD يرسل رساله نصية عادية إلى الكمبيوتر ( السيرفر ) وتحتوي الرسالة على إحداثيات المرسل ..

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

جهاز الPDA بيكون عليه برنامج صغير .. وهذا البرنامج انا مطلوب مني اسويه

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

صممت شاشات التي بتعامل فيها مع الداتا بيز ..

وشي ثاني صممت شاشات البرنامج اللي على PDA لكن مابعد كتبت الكود له ..ولأني بالضبط ماادرري كيف بتعامل مع الرسائل اللي بستقبلها ..

#6

السلام عليكم

اشكر لكم اهتمامكم ..

بالطبع .. انا مستخدم نظام ال GPS ومخزنين في الداتا بيز اللي عندنا احداثيات مستشفات الرياض ..

هذا اول شي

طبعا حامل ال PAD يرسل رساله نصية عادية إلى الكمبيوتر ( السيرفر ) وتحتوي الرسالة على إحداثيات المرسل ..

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

جهاز الPDA بيكون عليه برنامج صغير .. وهذا البرنامج انا مطلوب مني اسويه

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

صممت شاشات التي بتعامل فيها مع الداتا بيز ..

وشي ثاني صممت شاشات البرنامج اللي على PDA لكن مابعد كتبت الكود له ..ولأني بالضبط ماادرري كيف بتعامل مع الرسائل اللي بستقبلها ..

#7

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

اخي المشكلة بسيطة جداً

انت مستخدم معامل الجمع "+" و هذا معامل الجمع خاص بالارقام

فيجول بيسك تعتمد على معامل جمع النصوص الي هو "&"

و للسهول استخدم Format

و هذا مثال

و اي سؤال باني حاضر :wub: 

		Dim comText As String = String.Format("insert into hospital(ID,Name,Phone,Address,Long,Lat) values('{0}','{1}','{2}','{3}','{4}')" _
							   , Me.txtID.Text, Me.txtName.Text, Me.txtTelephone.Text, Me.txtAddress.Text, Me.txtLong.Text + Me.txtLat.Text)
		Dim conn As SqlConnection = New SqlConnection(ConnStr)
		Dim com As SqlCommand = New SqlCommand
		com.CommandText = comText
		com.Connection = conn
		conn.Open()
		com.ExecuteNonQuery()
		conn.Close()
#8

إذن المطلوب هو فقط البحث في الجدول عن أقرب قيمه لهذه الأرقام أو الإحداثيات

والسؤال هنا كيف تم تخزين خطوط الطول والعرض (الاحداثيات) في الجدول وكيف تأتي من المرسل

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

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

كما وضحت في ردي السابق

أما بالنسبه لأكواد الإضافه والحذف والتعديل هذي أمرها سهل ولن تصعب عليك بإذن الله

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

ولكن اللي مافهمته إلى الآن هو لماذا الـ PDA بالتحديد والرسائل كلها نصيه ؟؟

إلا إذا كان البرنامج في الـ PDA هو الذي سيقوم بإرسال الاحداثيات إلى السيرفر بدون تدخل من المستخدم

#9

كلامك صحيح ..

و

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

اما لو كان الجوال العادي بنحتاج برمجة بلغة الجافا

و الفكرة انه يرسل رساله نصية .. هذا هو المطلوب

وطبعاً ارسال الإحداثيات من جوال اليوزر ( PDA ) بتكون بدون تدخله .. مجرد مايضغط رز الارسال يتم اخذ الاحداثيات وصياغتاها في الرساله النصيه بالشكل المطلوب . لكن بدون تدخل منه .. بواسطة ( GPS )

عشان كذا بيكون فيه برنامجين منفصلين

واحد للسيرفر وهو للتعامل مع البيانات

والثاني بيكون على جهاز اليوزر .. وكل المطلوب منه انه فقط يضغط زر الارسال

اتمنى اني اكون وصلت الفكرة بشكل صحيح .. والفكرة اللي تقولها صحيحة ميه ميه ..

مشكوووور ويعطيك ألف عافيه احس اني غثيتك بسوء الشرح ..

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

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

تم تعديل هذه المشاركة بواسطة someone1010 في 26 مارس 2008 في 23:00

#10

slayer666

شاكر لك إهتمامك ..

فهمت الكود بس فيه شي بسيط مافهمة فياليت توضحه لي ('{0}','{1}','{2}','{3}','{4}')"

ليه كتبتها بالطريقه هذي ..

طيب شي ثاني أنا ابي لو دخلت رقم الــ ID

مباشرة تطلع لي باقي البيانات في الحقول الاخرى ..

واستطيع التنقل بينها بالضغط على أزرار السابق والتالي ..

علما بأن الــ ID متتالية يعني 1 ثم 2 يعني أزيد بواحد في كل مرة ..

مرة ثانية اشكر لك إهتمامك .. جعله الله في ميزان حسناتك ,,

وهذا الكود بعد التعديل ..


Com.CommandText = " "
Dim Conn As New SqlConnection(My.MySettings.Default.x)
Com.Connection = Conn
Dim add As Integer = 0
If Me.txtName.Text = "" Then
MessageBox.Show("Enter Hospital Name ")
Exit Sub
ElseIf Me.txtLat.Text = "" Or Me.txtLat.Text = "" Then
MessageBox.Show("Enter the Hospital Location")
Exit Sub
End If

'Insert new record into the database

Com.CommandText = "insert into services(Name,Phone,Address,Long,Lat) values('" & Me.txtName.Text & "','" & Me.txtTelephone.Text & "','" & Me.txtAddress.Text & "'," & Me.txtLong.Text & "," & Me.txtLat.Text & ")"
Try
Conn.Open()
add = Com.ExecuteNonQuery()
Catch ex As Exception

MessageBox.Show(ex.Message, "Error")
End Try
Conn.Close()
' condition
If add = 1 Then
MessageBox.Show("Added new record successfuly")
End If

Me.txtName.Clear()
Me.txtAddress.Clear()
Me.txtLong.Clear()
Me.txtLat.Clear()
Me.txtTelephone.Clear()

Return
End Sub
		Dim Com As New SqlCommand

تم تعديل هذه المشاركة بواسطة someone1010 في 26 مارس 2008 في 23:22

#11 
String.Format("insert into hospital(ID,Name,Phone,Address,Long,Lat) values('{0}','{1}','{2}','{3}','{4}')" _
							   , Me.txtID.Text, Me.txtName.Text, Me.txtTelephone.Text, Me.txtAddress.Text, Me.txtLong.Text + Me.txtLat.Text)

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

{0} يستبدلها ب Me.txtID.Text

{1} يستبدلها ب Me.txtName.Text

و هكذا

لسهولة القراة

مواضيع مشابهة