22-03-19, 04:39 PM
أهلا بك. هل يمكن أن تعطيني رمزًا يعطيني رسالة خطأ إذا لم تتصل بقاعدة بيانات عبر شبكة محلية
ملاحظة: يقوم البرنامج بإنشاء حساب عبر Visual Basic متصل بقاعدة بيانات على شبكة محلية
وهذا هو الكود الذي استخدمته في انشاء حساب ولكن اريد الاضافة هي انه عندما اريد ان انشئ حساب يضهرلي رسالة خطاء بانه يجب علي الاتصال بقاعدة البيانات عن طريق شبكة محلية
ملاحظة: يقوم البرنامج بإنشاء حساب عبر 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
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