کمک در مورد دستور update_set

[mehran61]

عزیزان من یک پایگاه داده با اکسس و ویژوال بیسیک نوشتم که احتیاج به آپدیت هر از چند وقت رکورد ها یش(بیش از یک رکورد) دارد ولی وقتی که دستور update_set را اجرا میکنم پیام می دهد که بانک باید باز شود وبعد از آن پیام می دهد که باید بانک بسته شود.
با تشکر از همه اساتید لطفا یک نفر سورس درست آن را برای من در این تایپیک بگذارد .
مهران

[msnasiri]

اگه ممکنه سورس خودتو بذار تا ببینیمش

[mahdi053]

سلام
من فردا برات ميزارم
اگه سورسه خودتم قرار بدي خوبه.
تا فردا عصر باي

[mahdi053]

سلام عزيز
اين سورس دستور Update:

Opendb
sSql = "update PROJECT SET DESC_PRO='" & txtProject_Desc.Text & "' " _
& " WHERE ID_PRO=" & txtID.Text & ""
dbSet.Execute sSql
Closedb

فكر كنم لازم نباشه اما Project نام جدول من است و مابقي رو هم كه مي دوني.
اما حالا لازمه يه ماژول به پروژه خودت اضافه كني و اين دوتا سورسو كه يكه ديتا بيسو باز و يكي مي بنده رو تو اون اضافه كني:

Public Sub Opendb()
Set dbSet = New ADODB.Connection
Set cmd = New ADODB.Command
Set rsRec = New ADODB.Recordset
sCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Dr.mdb;Mode=Share Deny None;Persist Security Info=False"
dbSet.Open sCnn
cmd.CommandType = adCmdText
cmd.ActiveConnection = dbSet
End Sub

Dr.mdb اسم ديتابيس است

Public Sub Closedb()
dbSet.Close
End Sub

اين چند خطم اولش بذار تا متغييرات تعريف شن:

Global sCnn As String
Global dbSet As ADODB.Connection
Global rsRec As ADODB.Recordset
Global cmd As ADODB.Command
Global sSql As String

فكر كنم مشكلت حل شه اگر نشد سورستو بگذار تا ببينم و حلش كنم.