مشکل این کد کجاست؟ [بایگانی]

hrj1981

سه شنبه 25 دی 1386, 09:59 صبح

If Adodc2.Recordset.RecordCount > 0 Then
Adodc2.CommandType = adCmdText
Adodc2.RecordSource = "delete * from subfans where id= '" & Text1.Text & "'"
Adodc2.Refresh
Adodc1.Recordset.Delete
Adodc1.Refresh
dg1.Refresh
Else:
Adodc1.Recordset.Delete
Adodc1.Refresh
End If

lahiji

سه شنبه 25 دی 1386, 10:40 صبح

دوست عزیز
اول بگو چه کاری می خواهی انجام بدی .که این کد رو نوشتی .

hrj1981

سه شنبه 25 دی 1386, 10:48 صبح

مشکل من در خط 3 و 4 کد بالا می باشد
من می خواهم با استفاده از دستور delete یکسری از اطلاعات را پاک کنم و برنامه درست انجام می شود ولی وقتی به خط 4 می رسد error3704 را می دهد و عملیات ناتمام میب ماند

hrj1981

سه شنبه 25 دی 1386, 10:54 صبح

این خطاها را صادر می نماید

ermia2008

سه شنبه 25 دی 1386, 14:37 عصر

سلام دوست عزیز.
در صورت امکان سورس برنامتونو قرار بدید.

hrj1981

سه شنبه 25 دی 1386, 17:24 عصر

ermia2008 عزیز
حجم برنامه ام 70مگه
من 2 تا تیبل دارم که یکی از آنها در دیگری به ساب مستر استفاده می کنم.من می خواهم هر وقت رکورد متناظر در تیبل دومی پاک شد رکوردهای متناظر آن در تیبل اول نیز پاک شود.
نوع بانک :اکسس-نوع دستور :sql

bobrus

سه شنبه 25 دی 1386, 17:32 عصر

سلام بچه محل
دستور زیر رو بین خط 3 و 4 اضافه کن احتمالا این adodc رو جایی closeکردی یا اینکه هنوز open نکردی

adodc2.open
البته می تونی به جای خط 3 از دستور زیر استفاده کنی که دیگه نیازی به دستور بالا نباشه

Adodc2.open "delete * from subfans where id= '" & Text1.Text & "'"

این دستور دوتا کار رو باهم انجام میده
موفق باشی

hrj1981

سه شنبه 25 دی 1386, 17:48 عصر

بچه محل نشد

bobrus

سه شنبه 25 دی 1386, 17:59 عصر

نحوه تعریف adodc2 چطوریه شاید اول adcmdTable تعریف کردی بعد اینجا از adcmdtextمیکنی ایراد می گیره چون اینجوری که خطا ها نشون می ده یا اشتباه تعریف کردی یا open نکردی
حالا برو تو تعریف RecordSource گزینه commandType رو از اول به صورت adcmdText تعریف کن بعد به جای استفاده از adodc2.refresh از دستور زیر استفاده کن

Adodc2.Recordset.UpdateBatch adAffectCurrent
حتماً باید جواب بده امکان نداره که نشه

hrj1981

سه شنبه 25 دی 1386, 18:53 عصر

شرمنده وقت شما را هم گرفتم
من از هر راهی که شد رفتم ولی پیغام های بالا را باز می دهد
وقتی پیغام می دهد و از برنامه خارج می شوم برنامه عملیات را انجام می دهد و فقط در قسمت refresh خطا بروز می دهد

Mbt925

سه شنبه 25 دی 1386, 20:04 عصر

از دستورات زیر استفاده کنید:

Dim Con As New Connection, RecSet As New Recordset

Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
App.Path & "\db1.mdb;Persist Security Info=False"

Con.Execute "DELETE * FROM subfans WHERE id= '" & Text1.Text & "' "

Con.Close

hrj1981

جمعه 28 دی 1386, 19:59 عصر

از دستورات زیر استفاده کنید:

Dim Con As New Connection, RecSet As New Recordset

Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
App.Path & "\db1.mdb;Persist Security Info=False"

Con.Execute "DELETE * FROM subfans WHERE id= '" & Text1.Text & "' "

Con.Close

محسن جان همین قسمت قرمز رنگ دستور را چگونه می توان برای update نوشت
شرمنده از لطفت

Mbt925

شنبه 29 دی 1386, 10:22 صبح

محسن جان همین قسمت قرمز رنگ دستور را چگونه می توان برای update نوشت
شرمنده از لطفت

dbs.Execute "UPDATE subfans SET ID = 5 WHERE id = 2"