请各位大侠帮忙

hepengwei 2003-05-13 09:31:49

从表中删除一条记录
怎吗实现不料我的代码是我好着急啊
Dim rsResult As ADODB.Recordset, cnconn As ADODB.Connection
Dim strSQL As String
Set rsResult = New ADODB.Recordset
Set cnconn = New ADODB.Connection
cnconn.Open sStrProvider
strSQL = "Select BOM_CodeNO From Costume_BOMMemo Where BOM_CodeNO like '" & Trim(txtCodeNO.Text) & "'"
rsResult.Open strSQL, cnconn, adOpenKeyset, adLockOptimistic
If Button = 2 Then
If MsgBox("确定要删除这条记录吗？", 36, "注意！") = 6 Then
strSQL = " Delete from Costume_BOM where BOM_CodeNO='" & Trim(txtCodeNO.Text) & "' and BOM_Type='" & Trim(txtCodeNO.Text) & "' and BOM_NO='" & Trim(txtCodeNO.Text) & "' "
cnconn.Execute strSQL
SGrid.Refresh

End If
End If

...全文

33 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

hepengwei 2003-05-16

打赏
举报

我解决了

hepengwei 2003-05-13

打赏
举报

也不好用

bopite 2003-05-13

打赏
举报

Dim rsResult As ADODB.Recordset
Dim cnconn As ADODB.Connection
Dim strSQL As String
Set rsResult = New ADODB.Recordset
Set cnconn = New ADODB.Connection
cnconn.Open "连接数据库"
If Button = 2 Then
If MsgBox("确定要删除这条记录吗？", 36, "注意！") = 6 Then
strSQL.open" Delete from Costume_BOM where BOM_CodeNO='" & Trim(txtCodeNO.Text) & "' and BOM_Type='" & Trim(txtCodeNO.Text) & "' and BOM_NO='" & Trim(txtCodeNO.Text) & "' ",cnconn, adOpenKeyset, adLockOptimistic
cnconn.Execute strSQL
SGrid.Refresh

End If
End If

hepengwei 2003-05-13