创建登录表单需要紧急帮助 [英] creating a login form need help urgently
问题描述
我正在做学校作业,我的代码正常工作,但随后我的老师触摸了我的计算机并将其塞满了.
它说它找不到找不到文件'C:\ users \ jacob \ documents \ windowsapplication1 \ myDB.mdb"
我使用Microsoft Access 2010制作数据库,但是当我使用2008 Visual Basic时,我不得不将数据库保存为2002-2003格式,而现在我获得了2010 Visual Basic的支持,并且我在2010年和2002-2003年尝试了数据库格式
无论如何,它说找不到突出显示con.open()的文件
进口
System.Data.OleDb
公共 Form1 属性 Form1
Sub Form1_Load( ByVal 发件人
Sub '
确定按钮
con.Open()
)
表格
)   ; nbsp; b ; nbsp; b ;
Sub Sub Cancel_Click( 发件人
Sub
解决方案
奇怪的是,您编写的是Access 2003而不是2007/2010的mdb(检查它您自己,并使用正确的扩展名)如果是2010,则在12.0中更改4.0,但还要注意密码是Access中的关键字,因此您不能在数据库中使用它. 如果您的老师坚持认为您可以在方括号内使用它,则可以使用方括号:
Imports
System.Data.OleDb
Public
ClassForm1
PrivatePropertyForm1 AsObject
PrivateSubForm1_Load(ByValsender AsSystem.Object, ByVale AsSystem.EventArgs)
EndSub
' OK button
PrivateSubOK_Click(ByValsender AsSystem.Object, ByVale AsSystem.EventArgs) HandlesOK.ClickDimcon AsNewOleDbConnection("Provider=Microsoft.jet.oledb.4.0;data source=C:\Users\jacob\Documents\WindowsApplication1\myDB.mdb")
Dimcmd AsOleDbCommand= NewOleDbCommand("SELECT * FROM userDetails WHERE userID = '"& userNameTextBox.Text & "' AND password = '"& passwordTextBox.Text & "' ", con)
con.Open()
' If the record can be queried, Pass verification and open another form.
If(sdr.Read() = True) Then
MessageBox.Show("The user is valid!")
DimForm1 AsNewForm
'Form1().Show()
Me.Hide()
Else
MessageBox.Show("you got it wrong") EndIf
EndSub
' Cancel button
PrivateSub
Cancel_Click(ByValsender AsSystem.Object, ByVale AsSystem.EventArgs) HandlesCancel.Click Me.Close()
EndSub
End Class
Dimsdr AsOleDbDataReader= cmd.ExecuteReader()解决方案Strange is that you write mdb that is Access 2003 not 2007/2010 (check it yourself and use the correct extension) If it is 2010 then change the 4.0 in 12.0 but also be aware that password is a keyword from Access so you cannot use that in your database. If your teacher insist you can use it inside square brackeds AND [password]
这篇关于创建登录表单需要紧急帮助的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!