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



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


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