我在尝试运行程序时遇到了这个问题。代码是这样的
Private Sub mainmenu_Load(sender As Object, e As EventArgs) Handles MyBase.Load
conString = "C:\Users\Nur Amira\Documents\SEM 5\SDP\sdddd\sdddd\Database1.mdb"
Dim con As New OleDbConnection(conString)
con.Open()
Sql = "select * From Login"
Dim da As New OleDbDataAdapter(Sql, con)
da.Fill(ds, "Role")
totrec = ds.Tables("Role").Rows.Count - 1
For i = 0 To totrec
cmboxpos.Items.Add(((ds.Tables("Role").Rows(i).Item(2).ToString)))
Next
End Sub
它将弹出一个窗口框,通过
将错误通知为标题 Dim con As New OleDbConnection(conString)
突出显示。无论如何要解决这个问题?