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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  حفظ جدول كامل الى قاعدة بيانات muad 9 180 04-12-19, 03:39 PM
آخر رد: abomo3ath
  مشاركة قاعدة بيانات سيكول سيرفر makky 2 100 01-12-19, 02:28 AM
آخر رد: ابو ليلى
  [سؤال] عرض بيانات الاكسل بشكل اكتف m.n.hakami 0 64 26-11-19, 02:05 PM
آخر رد: m.n.hakami
  كيف يُمكن حماية قاعدة بيانات الأكسس؟ Hazem1 17 1,568 25-11-19, 12:54 AM
آخر رد: عبد العزيز البسكري
  [VB.NET] تشغيل قاعدة بيانات mdf Mustafa Shaker 4 138 21-11-19, 07:03 PM
آخر رد: Mustafa Shaker
  [VB.NET] احتاج الي تحويل هذا المشروع من السي شارب الي الفيجوال بيسك مشروع صغير abo3li8555 5 240 21-11-19, 02:07 AM
آخر رد: Benmouha
  طريقة عمل KeyGen بالفيجوال بيسك دوت نت EHAB.NET 17 5,721 17-11-19, 04:32 PM
آخر رد: alsouf
  [نقاش] التعديل علي قاعده بيانات sql عن بعد abo3li8555 1 69 14-11-19, 06:32 PM
آخر رد: asemshahen5
  عاوز اعرف اكبر رقم فى عمود من خلال السنة بالفجوال بيسك عمرو نجيب 1 76 13-11-19, 11:19 PM
آخر رد: smalw
  طلب فى تصدير بيانات 2 داتا جريد فيو الى الاكسل خالد كامل1 1 112 11-11-19, 12:04 AM
آخر رد: ابراهيم ايبو

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


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