recordset.update

[mahmoodreza]

سلام
من وقتی از یکی از table ها کویری میگیرم دیگه نمیتونم اون تیبل را بعدا update کنم و به من این ارور را میگیرم
Current recordset does not support updating. this may be a limitation of the provider or or the selected locktype
ولی وقتی من ا قبل ازش کویری نگرفتم مشکلی با add و یا update ندارم.

این کدی که من به دیتا بیس وصل میشم

Dim cnndataentry As ADODB.Connection
Dim rsaddrecord As ADODB.Recordset



Set rsaddrecord = New ADODB.Recordset
rsaddrecord.CursorType = adOpenKeyset
rsaddrecord.LockType = adLockOptimistic

rsaddrecord.Open "artikel", cnndataentry, , , adCmdTable


که باهاش به مشکل میخورم
ممکنه کسی از دوستن کمک کنند

[mahmoodreza]

دیکع ساعت الان 4 صبح شده اینجا منم نتونستم این مشکل را حل کنم
ولی یک فکر دیگه به نظرم رسید میخواستم بدونم با چه دستوری میتونم یک رکوردست را بفرستم به یک رکورد مورد نظر
مثلا رکورد شماره ی 12 یا اینکه مثلا رکوردی که کدش 19 باشه
ممنون
با دستور AbsolutePosition میتونم بفرستمش مثلا به رک.رد 12 هم ولی
چجوری میتونم بگم برو به رکوردی که کدش 14 هست و مثلا اونجا update کن

[hmm]

Set rsaddrecord = New ADODB.Recordset
rsaddrecord.CursorType = adOpenKeyset
rsaddrecord.LockType = adLockOptimistic

rsaddrecord.Open "artikel", cnndataentry, , , adCmdTable

فکر کنم چون در باز کردن رکوردست مقدار cursortype و locktype تعیین نشده دوباره مقدار default رو میگیره
البته مطمئن نیستم اگر این طور نیست بجای adopenkeyset از یک cusrortype دیگه استفاده کنید.

[کم حوصله]

Dim cnnNorthwind As ADODB.Connection
Set cnnNorthwind = New ADODB.Connection

cnnNorthwind.Execute "UPDATE TblName SET Fild1=" & Value & ",Filed2=" & Value2 & ", ãÇÈÞí ÝíáÏåÇí ãÏ äÙÑ " where filedsel=" & Value & "

[کم حوصله]

البته قبل از دستور exec باید کانکشن را باز کنی

ضمنا در مورد گفته آقای hmm
زمانی که ما یک مقدار پارامتری را ست می کنیم نیاز نیست دوباره اون مقدار را بدهیم و مقدار قبلی آن پا بر جاست

در مورد دستور خودتون هم من که مشکلی نمی بینم و قاعدتا نباید مشکلی داشته باشید
ای کاش می شد یک تکه برنامه از کارتون را می گذاشتید تا دقیقا مشخص شود چه می کنید ( یک برنامه خیلی کوچولو بسازید و بگذارید اینجا تا اساتید اصلاح نمایند)