Imports System.Data.OleDb
Imports System.Data
Public Class Form1
Dim connection As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Dimph\OneDrive\Desktop\Richfield BSC IT --- 1st year\Second Semester\Programming 512\Assignment\WinFormsApp1\WinFormsApp1\bin\Debug\net6.0-windows\Database2.accdb")
'
Private Sub btnLogin(sender As Object, e As EventArgs) Handles Button1.Click
If txtUsername.Text = Nothing Or txtPassword.Text = Nothing Then
MsgBox("Enter Credentials", MsgBoxStyle.Exclamation)
Else
If connection.State = ConnectionState.Closed Then
connection.Open()
End If
Dim cmd As New OleDbCommand("select count(*) from User where UserName=? and Password=?", connection)
cmd.Parameters.AddWithValue("@1", OleDbType.VarChar).Value = txtUsername.Text
cmd.Parameters.AddWithValue("@2", OleDbType.VarChar).Value = txtPassword.Text
Dim count = Convert.ToInt32(cmd.ExecuteScalar())
If (count > 0) Then
SplashSCreen.Show()
Else
MsgBox("Account not found on Database")
End If
End If
End Sub
Private Sub btnReset(sender As Object, e As EventArgs) Handles Button2.Click
End Sub
Private Sub btnSignUp(sender As Object, e As EventArgs) Handles Button3.Click
Form2.Show()
Me.Hide()
End Sub
Private Sub btnClose(sender As Object, e As EventArgs) Handles Button4.Click
Me.Close()
End Sub
End Class
uj5u.com熱心網友回復：
User并且Password都是保留字，將它們用作物件名稱可能會使資料庫引擎感到困惑。如果您無法重命名它們，您可以在 SQL 中將它們括起來，以便資料庫引擎了解您指的是物件。
select count(*) from [User] where UserName=? and [Password]=?
或者你可以用更少的括號來做到這一點：
select count(*) from [User] AS u where u.UserName=? and u.Password=?
轉載請註明出處，本文鏈接：https://www.uj5u.com/ruanti/503743.html
標籤：VB.net 毫秒访问 数据库 oledb连接 oledb 命令
上一篇：延遲直到await回傳True