تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] الإتصال بقاعدة بيانات على النت بواسطة تطبيق فجول بيسك
#1
Rainbow 
Heart Heart Heart
السلام عليكم ورحمة الله وبركاته
إخواني الأعزاء
هذه أو مشاركة لي في المنتدى وأسعد كثيرا بمساعدتكم لي زاختصار العناء وربي يبارك فيكم وفي علمكم ..  أنا عامل تطبيق وأريد توزيع التطبيق على ألاف المستخدمين مثلا ويكون أمامهم عدد كافي من الخيارات (أرقام مثلا) كل شخص يقوم بإختيار رقم يخزن بقاعدة بيانات على النت وكل من يعاود اختياره من جديد تأتيه رسالة على جهازه هذا الرقم تم حجزه طبعا لوجودة مخزن بقاعدة البيانات على التت .. أما الرقم الغير مختار من قبل فتأتي للمستخدم رسالة لقد تم حجز الرقم لصالحك ومن تم يتم تخزينه بقاعدة البيانات .
يعني كل مستخدم يدخل أحد الأرقام يتم البحث عنه في قاعدة البيانات على النت فإذا وجد تأتي رسالة الى جهاز المستخدم "الرقم محجوز".
وإذا لم يوجد يتم تخزينه في قاعدة البيانات على النت وتأتي للمستخدم رسالة على جهازه "لفد تم حجز الرقم لصالحك" ولا يتم حجزه مرة أخرى.
الرد }}}
تم الشكر بواسطة:
#2
PHP كود :
   Sub CheckCode()
 
       If TextBox1.Text.Length 0 Then
            Exit Sub
        End 
If
 
       Dim StrSQL As String "Select * From Clints Where ClintCode=" TextBox1.Text
        Dim da 
As New SqlDataAdapter(StrSQLCnn)
 
       dt.Clear()
 
       da.Fill(dt)
 
       If dt.Rows.Count 0 Then
            MsgBox
("هذا الرقم تم حجزه"MsgBoxStyle.Question"")
 
       Else
            Dim StrSQL1 
As String "INSERT INTO Clints (ClintCode) VALUES (" TextBox1.Text ")"
 
           Dim da1 As New SqlDataAdapter(StrSQL1Cnn)
 
           dt.Clear()
 
           da.Fill(dt)
 
           MsgBox("قد تم حجز الرقم لصالحك"MsgBoxStyle.Information"")
 
       End If
 
   End Sub
    Private Sub Button2_Click
(sender As ObjectAs EventArgsHandles Button2.Click
        CheckCode
()
 
   End Sub 
الرد }}}
تم الشكر بواسطة: elgokr , ابو روضة , عبد العزيز البسكري
#3
وعليكم السلام ورحمة الله وبركاته

مرحباً اخى علي إبراهيم الحاج علي
الامر فقط بحاجة ان يكون لديك استضافة يمكنك انشاء قاعدة بيانات من نوع Sql أو Mysql
ويجب التاكد من الاستضافة اذا كانت مجانية انها لم تقوم بحذف والغاء الاشتراك او قاعدة البيانات
حتى لا يذهب ما تقوم به بلا معنى واذا تم عمل استضافة مجانية تاكد بان الموقع يدعم remote database
واذا كانت الاستضافة مدفوعة فيمكنك التواصل للدعم ليشرح لك كيفية اتمام عمل remote database

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

ومن ثم تطبيق الكود كما تم شرحة من الاخ asemshahen5
مع تغيير نمط الكود طبقاً اذا كان Mysql أو Sql

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: asemshahen5 , asemshahen5 , ابو روضة , Amir_Alzubidy , أبووسم
#4
(08-10-19, 08:58 AM)asemshahen5 كتب :
PHP كود :
   Sub CheckCode()
 
       If TextBox1.Text.Length 0 Then
            Exit Sub
        End 
If
 
       Dim StrSQL As String "Select * From Clints Where ClintCode=" TextBox1.Text
        Dim da 
As New SqlDataAdapter(StrSQLCnn)
 
       dt.Clear()
 
       da.Fill(dt)
 
       If dt.Rows.Count 0 Then
            MsgBox
("هذا الرقم تم حجزه"MsgBoxStyle.Question"")
 
       Else
            Dim StrSQL1 
As String "INSERT INTO Clints (ClintCode) VALUES (" TextBox1.Text ")"
 
           Dim da1 As New SqlDataAdapter(StrSQL1Cnn)
 
           dt.Clear()
 
           da.Fill(dt)
 
           MsgBox("قد تم حجز الرقم لصالحك"MsgBoxStyle.Information"")
 
       End If
 
   End Sub
    Private Sub Button2_Click
(sender As ObjectAs EventArgsHandles Button2.Click
        CheckCode
()
 
   End Sub 


بارك الله فيك أخى عاصم ماشاء الله عليك دائماً تحمل فى حوزتك إسعافات أولية سريعة المفعول...
الرد }}}
#5
(06-10-19, 10:48 PM)علي إبراهيم الحاج علي كتب : Heart Heart Heart
السلام عليكم ورحمة الله وبركاته
إخواني الأعزاء
هذه أو مشاركة لي في المنتدى وأسعد كثيرا بمساعدتكم لي زاختصار العناء وربي يبارك فيكم وفي علمكم ..  أنا عامل تطبيق وأريد توزيع التطبيق على ألاف المستخدمين مثلا ويكون أمامهم عدد كافي من الخيارات (أرقام مثلا) كل شخص يقوم بإختيار رقم يخزن بقاعدة بيانات على النت وكل من يعاود اختياره من جديد تأتيه رسالة على جهازه هذا الرقم تم حجزه طبعا لوجودة مخزن بقاعدة البيانات على التت .. أما الرقم الغير مختار من قبل فتأتي للمستخدم رسالة لقد تم حجز الرقم لصالحك ومن تم يتم تخزينه بقاعدة البيانات .
يعني كل مستخدم يدخل أحد الأرقام يتم البحث عنه في قاعدة البيانات على النت فإذا وجد تأتي رسالة الى جهاز المستخدم "الرقم محجوز".
وإذا لم يوجد يتم تخزينه في قاعدة البيانات على النت وتأتي للمستخدم رسالة على جهازه "لفد تم حجز الرقم لصالحك" ولا يتم حجزه مرة أخرى.

بارك الله فيك أخى عاصم ماشاء الله عليك دائماً تحمل فى حوزتك إسعافات أولية سريعة المفعول...
الرد }}}
تم الشكر بواسطة: elgokr , asemshahen5 , عبد العزيز البسكري


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل من الممكن العمل على قاعدة بيانات اكسل على الفيجوال بيسك خالد كامل1 4 83 24-03-24, 02:00 AM
آخر رد: خالد كامل1
  [سؤال] أتمنى اجابة وافية:عمل برنامج بقاعدة بيانات SQL دون حاجة تثبيت SQLSERVER dr.programming 6 601 19-03-24, 08:56 AM
آخر رد: سلامه محمد11
  استعلام select عن مجموعة بيانات Adel27213 1 172 15-03-24, 01:11 AM
آخر رد: justforit
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 2 164 05-03-24, 08:27 PM
آخر رد: مصمم هاوي
  [VB.NET] تحديث بيانات فى كلاس من جدول سيكوال asdfar1977 6 184 26-02-24, 01:07 AM
آخر رد: asdfar1977
  كيفية جمع أرقام عمود فى الداتا جريد فيو بناءاً على بيانات معينة heem1986 5 225 25-02-24, 11:26 PM
آخر رد: heem1986
  [C#.NET] طباعة بيانات داتا جرد فيو h2551996 0 84 25-02-24, 02:31 PM
آخر رد: h2551996
  [VB.NET] معرفة بيانات الجهاز محمد بوقزاحة 1 312 21-02-24, 11:44 PM
آخر رد: AHMED213
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 194 20-02-24, 12:00 AM
آخر رد: Kamil
  كيفية تنفيذ أمر عرض بيانات من فورم ثان مصمم هاوي 7 329 19-02-24, 12:28 AM
آخر رد: مصمم هاوي

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم