我正在嘗試查詢訪問資料庫以在資料庫中連續查找是否存在 IsManager = True 的值。我是使用資料庫的新手，所以任何幫助都很好，謝謝 :) <3
Try
Dim SQL As String
Dim CMD As New OleDb.OleDbCommand
Dim DT As New DataTable
Dim D_A As New OleDb.OleDbDataAdapter
MainMenu.Con.Open()
SQL = ("SELECT * FROM Staff WHERE Login = " & ID)
CMD.Connection = MainMenu.Con
CMD.CommandText = SQL
D_A.SelectCommand = CMD
D_A.Fill(DT)
Catch ex As Exception
MsgBox(ex.Message)
Finally
MainMenu.Con.Close()
End Try
uj5u.com熱心網友回復：
不要填充 DataTable 然后檢索其中的欄位。在變數中插入您想要獲取的值。
Dim IsManager as Boolean
Try
Dim SQL As String
Dim CMD As New OleDb.OleDbCommand
Dim D_A As New OleDb.OleDbDataAdapter
SQL = ("SELECT IsManager FROM Staff WHERE Login = " & ID)
CMD.Connection = MainMenu.Con
CMD.CommandText = SQL
D_A.SelectCommand = CMD
MainMenu.Con.Open()
Dim Dr as OleDbDataReader = CMD.ExecuteReader
Dr.Read()
IsManager = Dr.Item("IsManager")
Dr.Close()
Catch ex As Exception
MsgBox(ex.Message)
Finally
MainMenu.Con.Close()
End Try
轉載請註明出處，本文鏈接：https://www.uj5u.com/ruanti/415378.html
標籤：