Private Sub Command1_Click()
Adodc1.Connection="Provider=Microsoft.Jet.OLEDB.4.0Data Source=[ACCESS文件路径]"
Adodc1.RecordSource="Select * from 用户表 where 用户名字段='"+用户名文本框+"' and 密码字段='"+输密码文本框+"'"
Adodc1.Refresh
If Adodc1.Recordset.EOF Then
MsgBox("验证失败!")
Text1=""
Text2=""
Text1.SetFucos
Else
Me.Hide
要登陆的窗体名称.Show
End Sub
这样就搞定了,这里是用到一个Microsoft ADO Control 6.0控件,去工程,部件里找到他勾上应用,拖到窗体上,把他的Visible属性改成 False,不然他很丑,默认名称是Adodc1
这种专业方面的问题还是直接联系他们售后,涉及数据库管理需要谨慎呀,万一数据丢了怎么办。如果使用新思维物业收费管理软件不会出现这种情况,数据可以实时保存,不用担心数据库连接问题,还可以将重要数据备份,电脑重装或损坏后可以及时恢复数据。欢迎分享,转载请注明来源:内存溢出
评论列表(0条)