|
#2
约定的童话2021-11-30 15:51
Private Sub Command3_Click() '删除
If Text1.Text <> "" And Text1.BackColor = vbYellow Then sd = InputBox("请输入管理员密码：", "密码", "a123") If sd = "a123" Then Dim SQL As String a = Text1.Text Set cnn = CreateObject("ADODB.Connection") '创建数据库连接 cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\钢网库.accdb;Jet OLEDB:database password=793192" SQL = "delete from 钢网清单 where 钢网ID like'%" & a & "%'" cnn.Execute SQL cnn.Close Set cnn = Nothing Text1.Text = "": Text1.BackColor = vbWhite Text5.Text = "": Text5.BackColor = vbWhite Text6.Text = "": Text6.BackColor = vbWhite Text7.Text = "": Text7.BackColor = vbWhite Text8.Text = "": Text8.BackColor = vbWhite Text9.Text = "": Text9.BackColor = vbWhite Text4.Text = "": Text4.BackColor = vbWhite Text10.Text = "": Text10.BackColor = vbWhite MsgBox "删除完毕！", 64, "提示" Else MsgBox "密码错误！", 17, "提示！" Exit Sub End If Else MsgBox "请输入钢网ID再删除！", 17, "提示！" Exit Sub End If End Sub 仅供参考... |
我是新人，还请多多包涵！
目前自己找了些VB的书，看了遍，但还是没学会。想请各位大侠请点一二。
用VB6编的小程序，怎么和ACCESS配合设计一个登录界面。
用户名和密码都保存在ACCESS里。
最好小用代码，本人代码理解能力差。
再次感谢！
谢谢！
