Question

谁能帮我解释一下这段vb代码(详解+感谢)

Option Explicit

Public sqlStr As String
Public msgText As String

Private Sub cboDisks_Click()
getDiskInfo
End Sub

Private Sub cmdDelete_Click()
Dim conn As ADODB.Connection

sqlStr = "delete from disks where [no]=" & Trim(cboDisks.Text)
On Error GoTo exitSub
Set conn = New ADODB.Connection
conn.Open connStr
conn.Execute sqlStr
MsgBox "成功删除数据!!"
nitDiskNo
exitSub:
conn.Close
End Sub

Answer 1

Option Explicit

Public sqlStr As String '定义型全局变量
Public msgText As String '定义型全局变量

Private Sub cboDisks_Click() '组合框单击事件
getDiskInfo '调用自定义函数
End Sub

Private Sub cmdDelete_Click() '单击删除按钮事件

Dim conn As ADODB.Connection '定义数据库连接

sqlStr = "delete from disks where [no]=" & Trim(cboDisks.Text) '设置查询内容及条件
On Error GoTo exitSub '出错处理
Set conn = New ADODB.Connection '创建实例
conn.Open connStr '打开数据库
conn.Execute sqlStr '执行删除
MsgBox "成功删除数据!!"
nitDiskNo '调用自定义函数

exitSub:
conn.Close '关闭数据库
’张志晨注释
End Sub