نحوه استفاده از Query نوع Make Table در VB [بایگانی]

آزیتا نبی زاده

چهارشنبه 10 اسفند 1384, 16:04 عصر

سلام به همگی دوستان

بچه ها من یک Query در Access ساختم از نوع Make Table و از اون در VB استفاده کردم یعنی با اجرای اون در VB می خوام از Query من یک table بسازه اما متاسفانه در هنگام اجرا این پیغام خطا رو می ده.
"Operation is not allowed when the object is closed"
بار دوم که اجرا می کنم چون با وجود بروز خطا این جدول رو ایجاد کرده پیغام خطایی به صورت زیر می دهد
.table "...." already exists
جالب اینجاست که من در vb نمی تونم این error را handle کنم!
با وجود اینکه در کد یرنامم نوشتم On error resume next ولی باز هم این پیغام خطا را می دهد.
کمک!

لطفا کمک کنید خیلی ضروریه.

meh_secure

چهارشنبه 10 اسفند 1384, 22:55 عصر

خطای اولی به خاطر باز نبودن connection است.

myRs.open

خطای بعدی هم ربطی به هندل نداره شما باید در یکی از ایونت های کنترلی که برای بانکتون ساختید(اگه اشتباه نکنم adodc استفاده کردید) ایونتی است به نام error... در اون ایونت مقدار آرگومان fcancelDisplay رو برابر true قرار بده تا دیگه این خطاها به کاربر نمایش داده نشند.

آزیتا نبی زاده

پنج شنبه 11 اسفند 1384, 08:05 صبح

خطای اولی به خاطر باز نبودن connection است.

myRs.open

خطای بعدی هم ربطی به هندل نداره شما باید در یکی از ایونت های کنترلی که برای بانکتون ساختید(اگه اشتباه نکنم adodc استفاده کردید) ایونتی است به نام error... در اون ایونت مقدار آرگومان fcancelDisplay رو برابر true قرار بده تا دیگه این خطاها به کاربر نمایش داده نشند.
مرسی از پاسختون .
من کدی که نوشتم رو اینجا قرار میدم لطفا کمکم کنید و اگه زحمتی نیست دقیقا بگید چیکار کنم.

CnnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & GetProfileString("DataBasePath", "C:\Program Files\Keico HighTech\PLAT64T", "PATH", App.Path & "\ FunctionKey.ini") & "\" & GetProfileString("DataBasePath", "ACU301.MDB", "PATH", App.Path & "\ FunctionKey.ini") & ";Persist Security Info=False;"

sql= "SELECT DISTINCT History.UserID, History.EventDate, Min(History.EventTime) AS MinOfEventTime, History.FuncCode INTO Tbl_QueryEnter From History GROUP BY History.UserID, History.EventDate, History.FuncCode HAVING (((History.EventDate)=#11/5/2005#) AND ((History.FuncCode)='0'))"

With Ado
.ConnectionString = CnnStr
.CommandType = adCmdUnknown
.Mode = adModeReadWrite
.CursorType = adOpenDynamic
.RecordSource = sql
.CacheSize = 1
.ConnectionTimeout = 1000
.Refresh
End With

آزیتا نبی زاده

پنج شنبه 11 اسفند 1384, 08:22 صبح

آقای meh_Secure

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

meh_secure

پنج شنبه 11 اسفند 1384, 14:42 عصر

خب خدارو شکر...