حذف اطلاعات فيلدهاي انتخابي

[mhmoein]

با سلام خدمت دوستان گرامي
فرض كنيد من يه برنامه با بانك اطلاعاتي اكسس دارم كه داري چهار فيلد نام مبلغ1 ، مبلغ2 و مبلغ 3 هست
حالا مي خوام ببينم كدي هست كه من فقط اطلاعات مبلغ1 ، مبلغ2 و مبلغ 3 را صفر كنم يعني نام باقي بمونه فقط اطلاعات سه تا فيلد بعدي باشي ؟
با تشكر

[m_vb1386]

اگه يك تيبل با نام v داشته باشيم و فيلدهاي قيمت هم از نوع نامبر باشن دستور sql مورد نظرتون اينه

UPDATE v SET v.price1 = 0, v.price2 = 0, v.price3 = 0;

[mhmoein]

ببخشيد من ADODC استفاده مي كنم آيا بايد اين دستو رو در مقابل RecordSource بنويسم؟

[Pr0grammer]

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



Adodc1.Recordset.Update "Price1", 0
Adodc1.Recordset.Update "Price2", 0
Adodc1.Recordset.Update "Price3", 0


البته اگه درست یادم مونده باشه!!! :لبخند:

[mhmoein]

دوست عزيز Pr0grammer با تشكر از شما كدي كه شما نوشتي جواب داد ولي براي يك ركورد فقط من مي خوام همه ركوردهام در اون فيلدهايي كه نوشتم صفر بشن .

[Pr0grammer]

من مي خوام همه ركوردهام در اون فيلدهايي كه نوشتم صفر بشن .

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

موفق باشید

[mhmoein]

دوست من تعداد ركوردهام 200 ركورد هست بعدش هم كد SQL كه اون دوست عزيزمون رو بالا نوشتن رو منم انجام دادم اما نشد كه نشد يا من بلد نيستم كجا بايد بنويسمشون تا جواب بده . نمي دونم بخدا بازم تشكر از اين كه وقت گذاشتي ممنون

[mpmsoft]

Update TableName Set Price1=0,Price2=0,Price3=0
TblName نام جدول شما
Price1.. نام فیلدها

[mhmoein]

ببخشيد اين كد درسته آخه جواب نمي ده :

Adodc3.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Bank.MDB"
Adodc3.RecordSource = "Update bank Set dr_2=0,dan=0,servise=0"
Adodc3.Refresh

[mhmoein]

ببخشید اگر لطف کنید بگید این کد درسته یا نه ممنون می شم بد جوری گیر افتادم؟

[mpmsoft]

دوست عزيز کده شما درسته
فقط چند مسئله : 1- ديتا تايپ فيلدهاتون چيه . 2- پيغام خطارو اينجا قرار بديد

[mhmoein]

با تشکر از شما
دیتا تایپ فیلدهای من از نوع = Currency هست

پیغام خطای اون هم شکل هست :

[vbhamed]

سلام



Dim db As DAO.Database

db = DAO.OpenDatabase("c:\test.mdb")

db.Execute "Update Table Set field1 = 0, field2 = 0, field3 = 3"

db.Close



فقط قبلش يكي از اين رفرنس ها رو از منوي Project گزينه References تيك بزنيد


Microsoft DAO 2.5/3.5 Compatible Library
Microsoft DAO 2.5 Object Library
Microsoft DAO 3.51 Object Library
Microsoft DAO 3.6 Object Library