高手来看 --------------送分50 要调用dao,里面有解决这些问题的方法。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 提供一个修改密码的代码供参考!不难的!修改密码Private Sub Command1_Click() Dim cnn As New ADODB.Connection cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\aa.mdb;" & "Mode=Share Deny Read|Share Deny Write;Persist Security Info=False;Jet OLEDB:Database Password=man" cnn.Execute "Alter Database password 999 man" MsgBox "修改完毕"End Sub 利用inSert和update对数据库表进行操作!就可以了啊!!删除用delete来实现 高手如何计算角度. 短路了 变量求教高手,谢谢!!!! 难题2:如何判断一点是否与一个圆的边相重合!? exe文件中图标信息放在什么位置?? 【如何用VB实现重命名一个文件?】 免费 右键菜单问题 请问如何写这一行代码,要算出一行字符串中第一次出次数字的位置 我要走了,进来那分! 如何判断commondialog.showsave ,用户是按了确定,还是取消按钮? 如何让程序自动应答,在线等答案。。谢谢。。
修改密码
Private Sub Command1_Click()
Dim cnn As New ADODB.Connection
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\aa.mdb;" & "Mode=Share Deny Read|Share Deny Write;Persist Security Info=False;Jet OLEDB:Database Password=man"
cnn.Execute "Alter Database password 999 man"
MsgBox "修改完毕"
End Sub