23-07-16, 03:21 PM
هذا الكود وحست فيه رأس على عقب
كود :
Dim ret As Integer
Using form As New OleDb.OleDbCommand("SELECT COUNT(*) FROM [user] WHERE [user_name]=@username", cnn)
cmd.Parameters.AddWithValue("@username", Environment.UserName)
If Not Form1.State = ConnectionState.Open Then Form3.Show()
ret = cmd.ExecuteScalar ' Scalar '
Form3.Show()
End Using
If ret > 0 Then
Form3.ShowDialog()
Else
Label3.Text = ("غير مسموح لك التعديل")
End If
End Using