发布网友 发布时间:2024-10-24 16:43
共2个回答
热心网友 时间:2小时前
Call writefile(filepath.Text, Myrt("code"))
Myrt.Close
Mycon.Close
Mycon.Open Mystr
ssql = "update fundcode set isuse='1' where pwd= '" & passwd.Text & "'"
Myrt.Open ssql, Mycon, 1, 1
Myrt.Close
Mycon.Close
MsgBox "解密成功!"
End If
End Sub
热心网友 时间:2小时前
根据你的面熟,貌似只有一条数据。。。