تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] أهلا وسهلا. هل يمكنم اعطائي كود برمجي يعطيني رسالة خطأ إذا لم تتصل بقاعدة بيانات عبر
#1
أهلا بك. هل يمكن أن تعطيني رمزًا يعطيني رسالة خطأ إذا لم تتصل بقاعدة بيانات عبر شبكة محلية
ملاحظة: يقوم البرنامج بإنشاء حساب عبر Visual Basic متصل بقاعدة بيانات على شبكة محلية

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


Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If TextBox1.Text = "" Or TextBox2.Text = "" Then
            MsgBox("تاكد من ان خانة اسم المستخدم او كلمة المرو غير فارغة")
            Return
        End If
        da = New SqlDataAdapter("SELECT * FROM Table_1 where username = '" & TextBox1.Text & "'", con)
        da.Fill(dt)
        If dt.Rows.Count <> 0 Then
            MessageBox.Show("ان هذا الاسم مستخدم من قبل رجاء استخدم اسم اخر ")
        Else
            Dim cmd As New SqlCommand("INSERT INTO Table_1 (username, passwords) values ('" & TextBox1.Text & "','" & TextBox2.Text & "')", con)
            con.Open()
            cmd.ExecuteNonQuery()
            con.Close()
            TextBox1.Text = ""
            TextBox2.Text = ""
            Me.Hide()
            acuser.Show()
            MsgBox("تم انشاء الحساب")
        End If
    End Sub
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ارسال رسالة نصية بالهاتف المتألق9 9 169 15-06-19, 06:01 PM
آخر رد: alsouf
  كيفية استخراج بيانات من اكثر من جدول وطباعتها المتألق9 4 215 12-06-19, 11:41 AM
آخر رد: new2016
  مشكلة في اضافة التاريخ الي قاعدة بيانات اكسس makky 8 161 05-06-19, 03:40 AM
آخر رد: heshamelkomy71
  مشكلة في اضافة التاريخ الي قاعدة بيانات اكسس makky 11 334 04-06-19, 03:12 PM
آخر رد: elgokr
  مشكلة في الاتصال بقاعدة البيانات والسيرفر sqlserver nooralcown 1 270 03-06-19, 12:33 PM
آخر رد: سعود
  [ تمّ الحل ] : تنسيق التاريخ بقاعدة البيانات : الأكسس عبد العزيز البسكري 16 912 03-06-19, 11:56 AM
آخر رد: سعود
  اظهار رسالة فحص الاخطاء nooralcown 7 224 30-05-19, 12:27 PM
آخر رد: nooralcown
  [سؤال] طلب مساعدة كود التحكم بعرض بيانات حقل حسابية في التكست بكس على ان لا يظهر لاصفار essawq 12 752 29-05-19, 10:43 PM
آخر رد: egbest2
Heart [سؤال] كود برمجي marco 5 154 28-05-19, 03:06 AM
آخر رد: asemshahen5
  [VB.NET] تعديل اكتر من صف بقاعدة البيانات محمد اسماعيل 7 261 11-05-19, 09:21 PM
آخر رد: elgokr

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


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