View Full Version : مشکل در edit کردن در vb
RamezanBeik
پنج شنبه 02 فروردین 1386, 19:26 عصر
هنگامی که editمی کنیم میبایست که اطلاعات جدید جایگزین اطلاعا ت قبلی گردد.ولی به جای این کار اطلاعات جدید را بروی رکورد قبلی جایگزین میگردد .امیدوارام که با راهنمایی های شما این مشکل بر طرف گردد. با تشکر.م.رمضان بیک
mahdyeh
پنج شنبه 02 فروردین 1386, 22:49 عصر
اطلاعات جدید جایگزین اطلاعا ت قبلی گردد
چه فرقی می کنه با :
اطلاعات جدید بروی رکورد قبلی جایگزین میگردد
؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
CodeMasterX
جمعه 03 فروردین 1386, 01:15 صبح
اگه منظورت رو درست فهمیده باشم وقتی که میخوایی یه رکورد رو به روز رسانی کنی، (به اشتباه) رکود (ردیف) جدیدی ایجاد میشه.درسته ؟ این 99.9% به خاطر این هست که شما توی کدت رکورد جدیدی رو اضافه کردی.کدت رو بذار ببینیم چی هست.
RamezanBeik
جمعه 03 فروردین 1386, 18:29 عصر
من متوجه منظور شما نشدم
S_VB.max
جمعه 03 فروردین 1386, 19:44 عصر
دوست عزیز بهتره کدت را بذاری اینجا تا ببینیم مشکل از کجاست
CodeMasterX
شنبه 04 فروردین 1386, 01:07 صبح
آره بهتره کدت رو بذاری ببینیم اینجوری نمیشه نظر داد.
منظور من از پست قبلی ام هم این بود که شما ممکنه کدی که برای به روز رسانی دیتابیست نوشتی اشتباه باشه.
کد زیر رو ببین:
Dim CN As New ADODB.Connection
Dim Rs As New ADODB.Recordset
CN.Open Connection String
Rs.Open "SELECT * FROM TableName",CN,adOpenStatic,adLockOptimistic
Rs.AddNew
Rs.Fields("FieldName").Value = Value
Rs.Update
Rs.UpdateBatch adAffectAllChapters
این کد یه رکورد به دیتابیس اضافه می کنه و اونو به روز رسانی می کنه.
حالا این کد رو ببین:
Dim CN As New ADODB.Connection
Dim Rs As New ADODB.Recordset
CN.Open ConnectionString
Rs.Open "SELECT * FROM TableName WHERE FieldName='Value'",CN,adOpenStatic,adLockOptimistic
Rs.Fields("FieldName").Value = NewValue
Rs.Update
Rs.UpdateBatch adAffectAllChapters
این کد دومی دیتابیس رو باز می کنه و اشاره گر رکوردست رو به جایی می بره که مقدار FieldName برابر با Value باشه.بعد مقدار جدید رو بهش نسبت میده و دیتابیس رو به روز رسانی می کنه.فرق این دو تا کد رو میبینی ؟ منظورم همین بود، که ممکنه تو باز کردن رکوردست،کد به روز رسانی یا یه جای دیگه اشتباهی کرده باشی.کدت رو بذار ببینیم.
vBulletin® v4.2.5, Copyright ©2000-1404, Jelsoft Enterprises Ltd.