刪除記錄成功時給出提示信息,沒有找到要刪除的記錄的時候也給出提示信息,,怎么實現?


我要實現:在刪除語句的時候,如果沒有找到符合條件的語句則提示出MSGBOX"沒有此條記錄",如果找到了就刪除此語句

怎樣在下面段代碼中添加語句以實現目的
Dim adoconn As New ADODB.Connection
adoconn.Open "del"
Dim sql As String
 sql = "delete *from 系 where 號碼='" & Trim(Text5) & "'"
 adoconn.Execute sql

請幫忙在這段代碼中添加語句!

2 个解决方案

#1


cn.execute sql,lngTemp

if lngTemp=0 then
   msgbox "沒有刪除"
else
   msgbox "刪除了" & lngTemp & "條記錄"
end if

#2


Execute 方法 (ADO Command)
      

執行在 CommandText 屬性中指定的查詢、SQL 語句或存儲過程。

語法

對於按行返回的 Command:

Set recordset = command.Execute( RecordsAffected, Parameters, Options )

對於非按行返回的 Command:

command.Execute RecordsAffected, Parameters, Options

返回值

返回 Recordset 對象引用。

參數

RecordsAffected   可選,長整型變量,提供者向其返回操作所影響的記錄數目。RecordsAffected 參數僅應用於操作查詢或存儲過程。RecordsAffected 不返回由返回結果的查詢或存儲過程所返回的記錄數目。詳細信息,請使用 RecordCount 屬性。

Parameters   可選,變體型數組,使用 SQL 語句傳送的參數值。(用該參數傳送時輸出參數將不返回正確值。)

Options   可選,長整型值,指示提供者如何計算 Command 對象的 CommandText 屬性。該值可為下列常量之一:

常量 說明 
AdCmdText 指示提供者應按命令的文本定義(如 SQL 語句)來計算 CommandText。 
AdCmdTable 指示 ADO 應生成 SQL 查詢以便從 CommandText 命名的表中返回所有行。 
AdCmdTableDirect 指示提供者應從 CommandText 命名的表中返回所有行。 
AdCmdStoredProc 指示提供者應按存儲過程計算 CommandText。 
AdCmdUnknown 指示 CommandText 中的命令類型未知。 
adAsyncExecute 指示命令應異步執行。 
adAsyncFetch 指示對由 CacheSize 屬性指定的初始數量之后的剩余行應使用異步提取。 


本列表中前 4 個常量的詳細說明請參見 CommandType 屬性。

說明

使用 Command 對象的 Execute 方法可執行在對象的 CommandText 屬性中指定的查詢。如果 CommandText 屬性指定按行返回查詢,執行所產生的任何結果都將存儲在新的 Recordset 對象中。如果該命令不是按行返回查詢,則提供者返回關閉的 Recordset 對象。某些應用程序語言允許忽略該返回值(如果不需要任何 Recordset)。

如果查詢帶有參數,將使用 Command 對象中參數的當前值,除非通過 Execute 調用傳送的參數覆蓋它們。可以在調用 Execute 方法時通過省略某些參數的新值來覆蓋參數子集。指定參數的次序與其在方法中被傳送的次序相同。例如,如果有 4 個(或更多)參數並且希望只為第一個和第四個參數傳送新值,則可以將 Array(var1,,,var4) 作為 Parameters 參數傳送。

注意    在 Parameters 參數中傳送時輸出參數將不返回正確的值。

該操作結束后將發出 ExecuteComplete 事件。

注意!

本站转载的文章为个人学习借鉴使用,本站对版权不负任何法律责任。如果侵犯了您的隐私权益,请联系我们删除。



 
粤ICP备14056181号  © 2014-2020 ITdaan.com