用data连接加密access数据库??????????
hp123 2003-08-26 09:02:41 用data连接加密的access数据库,总会提示“密码无效!”,但照样可以打开数据库进行读写操作,这是怎么回事,是不是我写的代码有什么问题才会导致会出现这样的提示?
Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\客户管理.mdb"
Data1.Connect = ";pwd=h1b2p5"
Data1.RecordSource = "客户表"
End Sub
用以下代码对数据库进行操作的时候就会出现所说的提示,但操作正常
Private Sub Cmdok_Click()
Data1.Refresh
Data1.Recordset.AddNew
Data1.Recordset.Fields("客户ID").Value = "333"
Data1.Recordset.Fields("姓名").Value = "333"
Data1.Recordset.Fields("身份证号码").Value = "333333333333333"
Data1.Recordset.Fields("地址").Value = "333"
Data1.Recordset.Fields("电话").Value = "333"
Data1.UpdateRecord
End Sub