[英]Visual Studio Error Else and Expression Expected?
I wrote some code and an getting two errors:我写了一些代码并得到两个错误:
'Else' must be preceded by a matching 'If' or 'ElseIf'.
Expression expected.
Here is the code:这是代码:
Imports System.Data.Odbc
Public Class FormLogin
Dim CMD As New OdbcCommand
Dim RD As OdbcDataReader
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Or TextBox2.Text = "" Then MsgBox("Data Login Belum Lengkap!")
Exit Sub
Else
Call Koneksi()
CMD = New OdbcCommand("Select * From tbl_admin where kode_admin=" & TextBox1.Text & "and password_admin=" & TextBox2.Text &, Conn)
RD = CMD.ExecuteReader
RD.Read()
If RD.HasRows Then
Me.Close()
FormMenuUtama.Show()
FormMenuUtama.LoginToolStripMenuItem.Enabled = False
FormMenuUtama.LogoutToolStripMenuItem.Enabled = True
FormMenuUtama.MasterToolStripMenuItem.Enabled = True
FormMenuUtama.TransaksiToolStripMenuItem.Enabled = True
FormMenuUtama.LaporanToolStripMenuItem.Enabled = True
Else
MsgBox("Kode Admin atau Password Salah")
End If
End Sub
Private Sub FormLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.MaxLength = 6
TextBox2.PasswordChar = "*"
TextBox1.Clear()
TextBox2.Clear()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
End Class
1) Do not put code after Then
in the If
statement . 1)不要在If
语句中的Then
之后放置代码。 It becomes one line变成1条线
So:所以:
If TextBox1.Text = "" Or TextBox2.Text = "" Then
MsgBox("Data Login Belum Lengkap!")
...
instead of代替
If TextBox1.Text = "" Or TextBox2.Text = "" Then MsgBox("Data Login Belum Lengkap!")
...
2) There is an extra &
2)有一个额外的&
So:所以:
CMD = New OdbcCommand("Select * From tbl_admin where kode_admin=" & TextBox1.Text & "and password_admin=" & TextBox2.Text , Conn)
instead of代替
CMD = New OdbcCommand("Select * From tbl_admin where kode_admin=" & TextBox1.Text & "and password_admin=" & TextBox2.Text &, Conn)
Add another End If before End Sub.在 End Sub 之前添加另一个 End If。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Or TextBox2.Text = "" Then MsgBox("Data Login Belum Lengkap!")
Exit Sub
Else
Call Koneksi()
CMD = New OdbcCommand("Select * From tbl_admin where kode_admin=" & TextBox1.Text & "and password_admin=" & TextBox2.Text &, Conn)
RD = CMD.ExecuteReader
RD.Read()
If RD.HasRows Then
Me.Close()
FormMenuUtama.Show()
FormMenuUtama.LoginToolStripMenuItem.Enabled = False
FormMenuUtama.LogoutToolStripMenuItem.Enabled = True
FormMenuUtama.MasterToolStripMenuItem.Enabled = True
FormMenuUtama.TransaksiToolStripMenuItem.Enabled = True
FormMenuUtama.LaporanToolStripMenuItem.Enabled = True
Else
MsgBox("Kode Admin atau Password Salah")
End If
End If
End Sub
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.