منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] الإتصال بقاعدة بيانات على النت بواسطة تطبيق فجول بيسك - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] الإتصال بقاعدة بيانات على النت بواسطة تطبيق فجول بيسك (/showthread.php?tid=31673)



الإتصال بقاعدة بيانات على النت بواسطة تطبيق فجول بيسك - علي إبراهيم الحاج علي - 06-10-19

Heart Heart Heart
السلام عليكم ورحمة الله وبركاته
إخواني الأعزاء
هذه أو مشاركة لي في المنتدى وأسعد كثيرا بمساعدتكم لي زاختصار العناء وربي يبارك فيكم وفي علمكم ..  أنا عامل تطبيق وأريد توزيع التطبيق على ألاف المستخدمين مثلا ويكون أمامهم عدد كافي من الخيارات (أرقام مثلا) كل شخص يقوم بإختيار رقم يخزن بقاعدة بيانات على النت وكل من يعاود اختياره من جديد تأتيه رسالة على جهازه هذا الرقم تم حجزه طبعا لوجودة مخزن بقاعدة البيانات على التت .. أما الرقم الغير مختار من قبل فتأتي للمستخدم رسالة لقد تم حجز الرقم لصالحك ومن تم يتم تخزينه بقاعدة البيانات .
يعني كل مستخدم يدخل أحد الأرقام يتم البحث عنه في قاعدة البيانات على النت فإذا وجد تأتي رسالة الى جهاز المستخدم "الرقم محجوز".
وإذا لم يوجد يتم تخزينه في قاعدة البيانات على النت وتأتي للمستخدم رسالة على جهازه "لفد تم حجز الرقم لصالحك" ولا يتم حجزه مرة أخرى.


RE: الإتصال بقاعدة بيانات على النت بواسطة تطبيق فجول بيسك - asemshahen5 - 08-10-19

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 



RE: الإتصال بقاعدة بيانات على النت بواسطة تطبيق فجول بيسك - elgokr - 08-10-19

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

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

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

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

تحياتى لك
وتمنياتى لك التوفيق



RE: الإتصال بقاعدة بيانات على النت بواسطة تطبيق فجول بيسك - ابو روضة - 08-10-19

(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 


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


RE: الإتصال بقاعدة بيانات على النت بواسطة تطبيق فجول بيسك - علي إبراهيم الحاج علي - 15-10-19

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

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