Imports System.Data
Imports System.Data.OleDb
Imports System.Data.DataTable
Public Class Form1
Private Sub btnlogin_Click(sender As Object, e As EventArgs) Handles btnlogin.Click
Dim conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Katlego\Documents\LoginDb.accdb")
Dim cmd As New OleDbCommand("select * from logintable where username1=@username1 and password1=@password1, conn")
cmd.Parameters.Add("@username1", oleDbType:=OleDbType.VarChar).Value = txtusername.Text
cmd.Parameters.Add("@password1", oleDbType:=OleDbType.VarChar).Value = txtpassword.Text
Dim adapter1 As New OleDbDataAdapter(cmd)
Using logintable As New DataTable
Dim unused = adapter1.Fill(logintable)
If logintable.Rows.Count <= 0 Then
MsgBox("error username or password")
Else
MsgBox("login sucessfull")
End If
End Using
End Sub
uj5u.com熱心網友回復：
您需要先打開連接
conn.Open()
uj5u.com熱心網友回復：
初始化cmd物件時有一個錯字。您將 conn 物件包含在連接字串中。所以 cmd 物件缺少連接物件。
Dim cmd As New OleDbCommand("select * from logintable where username1=@username1 and password1=@password1, conn")
應該：
Dim cmd As New OleDbCommand("select * from logintable where username1=@username1 and password1=@password1", conn)
轉載請註明出處，本文鏈接：https://www.uj5u.com/qukuanlian/315071.html
標籤：网络