نمایش پیغام در صورت پیدا نشدن رکورد

[leilast]

سلام
من برای حذف رکورد از بانک sql از این کد استفاده میکنم:

(http://barnamenevis.org/forum/C#%E2%80%8Eode)
Private Sub Button6_Click()
Set conn2 = New ADODB.Connection
Set delete = New ADODB.Recordset
conn2.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=RFID"
strsql = "delete from info where id='" & Text8.Text & "'"
delete.Open strsql, conn2, adOpenKeyset, adLockPessimistic, adCmdText
MsgBox ("دانش آموز مورد نظر حذف گرديد")
End Sub
(http://barnamenevis.org/forum/C#%E2%80%8Eode)
حالا برای اینکه بخوام در صورتیکه رکوردی مطابق با شرط پیدا نشد پیغام بده که موردی پیدا نکرده باید چی بنویسم؟

[mpmsoft]

شما باید از Command استفاده کنید


Dim Cmd as New ADODB.Command
Dim RAF as Integer
Cmd.ActiveConnection = Conn

Cmd.CommandText = "Delete FROM ......."

Cmd.Execute RAF


Msgbox RAF

[leilast]

شما باید از Command استفاده کنید


Dim Cmd as New ADODB.Command
Dim RAF as Integer
Cmd.ActiveConnection = Conn

Cmd.CommandText = "Delete FROM ......."

Cmd.Execute RAF


Msgbox RAF


یعنی نمیشه یه کد به همین دستور خودم اضافه کنم تا نتیجه سرچ رو بگه؟
آخه این دستوری که نوشتم درست اجرامیشه فقط در صورتیکه چیزی پیدا نکنه پیغام خطا نمیده

[polisoftco]

بهتره اون Delete سبز رنگ رو اسمشو تغییر بدی.



Private Sub Button6_Click()
Set conn2 = New ADODB.Connection
Set delete = New ADODB.Recordset
conn2.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=RFID"
strsql = "select from info where id='" & Text8.Text & "'"
delete.Open strsql, conn2, adOpenKeyset, adLockPessimistic, adCmdText
if delete.recordcount >0 then
If MsgBox(" آیا مایل به حذف این دانش آموز هستید؟", vbYesNo + vbQuestion, "حذف") = vbYes Then
delete.delete
MsgBox ("دانش آموز مورد نظر حذف گردید")
else
MsgBox ("حذف نشد")
end if
else
MsgBox ("دانش آموز مورد نظر پیدا نشد")
end if
End Sub

[niko2008]

یعنی نمیشه یه کد به همین دستور خودم اضافه کنم تا نتیجه سرچ رو بگه؟
آخه این دستوری که نوشتم درست اجرامیشه فقط در صورتیکه چیزی پیدا نکنه پیغام خطا نمیده


Set delete = New ADODB.Recordset
conn2.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=RFID"
strsql = "delete from info where id='" & Text8.Text & "'"
if strsql<>"" then
delete.Open strsql, conn2, adOpenKeyset, adLockPessimistic, adCmdText
MsgBox ("دانش آموز مورد نظر حذف گردید")
end if
End SubEnd Sub
ببین درست میشه

[polisoftco]

Set delete = New ADODB.Recordset
conn2.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=RFID"
strsql = "delete from info where id='" & Text8.Text & "'"
if strsql<>"" then
delete.Open strsql, conn2, adOpenKeyset, adLockPessimistic, adCmdText
MsgBox ("دانش آموز مورد نظر حذف گردید")
end if
End SubEnd Sub
ببین درست میشه

اگه خوب متوجه شده باشم، ایشون گفتن که میخان نتیجه جستجو رو نمایش بده نه اینکه کدش اشکال داره، درسته...!؟
نکنه من اشتباه میکنم...!!!؟؟:متفکر::متفکر:

[niko2008]

اگه خوب متوجه شده باشم، ایشون گفتن که میخان نتیجه جستجو رو نمایش بده نه اینکه کدش اشکال داره، درسته...!؟
نکنه من اشتباه میکنم...!!!؟؟:متفکر::متفکر:

ولی من فکر کنم که گفتند :حالا برای اینکه بخوام در صورتیکه رکوردی مطابق با شرط پیدا نشد پیغام بده که موردی پیدا نکرده باید چی بنویسم؟

[polisoftco]

خب بالفرض ایشون گفتن :


حالا برای اینکه بخوام در صورتیکه رکوردی مطابق با شرط پیدا نشد پیغام بده که موردی پیدا نکرده باید چی بنویسم؟

اما باز روشی که شما گفتین جواب رو نمیرسونه، مال شما وقتی پیغام میده که رکورد رو کلا حذف کرده باشیم.
موفق باشین ..!:تشویق::چشمک:

[leilast]

دوستان مشکل من حل شد
منظور من همون بود که دوست عزیز polisoftco گفتند
از همه ممنونم:لبخندساده: