تقييم الموضوع :
  • 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 , عبد العزيز البسكري


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  جهاز ارسال رسائل SMS من خلال برنامج فيجوال بيسك جيولوجي مبتدئ 4 1,025 05-09-25, 12:37 PM
آخر رد: جيولوجي مبتدئ
  مساعدة في كيفية ترحيل البيانات من داتا قريدفيو إلى داتا قريدفيو في فيجوال بيسك ahmedfa71 13 2,263 09-07-25, 11:24 PM
آخر رد: أبو خالد الشكري
  [VB.NET] حفظ تنسيق الفورم ثم تطبيقة علي فورم اخر فيجوال بيسك abo ragab 7 1,238 09-07-25, 12:45 AM
آخر رد: abo ragab
  [Acces2007] مشكلة ملف قاعدة بيانات access للقراءة فقط mmaalmesry 11 1,481 29-04-25, 08:55 PM
آخر رد: mmaalmesry
  ارسال رسالة الى تطبيق واتساب nabil.1710 6 3,694 26-04-25, 11:21 AM
آخر رد: hamedi2727
  مشكلة عدم قراءة قاعدة بيانات MS access 0 425 29-03-25, 01:58 PM
آخر رد: ibraa939
  مشكلة عدم قراءة قاعدة بيانات MS access 0 355 29-03-25, 01:57 PM
آخر رد: ibraa939
  مشكلة عدم قراءة قاعدة بيانات MS access 0 292 29-03-25, 01:57 PM
آخر رد: ibraa939
  طريقة طباعة ملف pdf بقاعدة بيانات sql heem1986 0 525 25-02-25, 09:31 AM
آخر رد: heem1986
  ادخال درجات الطلاب لقاعدة بيانات اكسس .. مساعدة Tajaldeen 9 2,751 07-02-25, 07:59 PM
آخر رد: الورد2

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


يقوم بقرائة الموضوع: