مشکل در بازیابی اطلاعات

[soheilbehro]

من از عنصر data برای وصل شدن به بانک اطلاعاتی استفاده کردم و قتی می خوام اطلاعات رو باز یابی کنم چون بانک اطلاعاتی باز است با خطا مواجه می شوم و نمی توانم اطلاعات را بازیابی کنم من از دستورات زیر برای بستن بانک اطلاعاتی استفاده کردم ولی فایده نداشت
data1.recordset.close
data1.databasename.close
ممنون می شم اگه کمک کنید

[sh2007]

اگه كانكشن هم داري اونو Close كن

[Dr.Bronx]

ما هم همین مشکل رو داشتیم .
راحت ترین کار استفاده از CopyFileA هست که از توابع API هست
این تابع براش اهمیتی نداره که فایل بسته باشه یا باز باشه . به هر حال کپی می کنه

موفق باشید ./

[soheilbehro]

اگه كانكشن هم داري اونو Close كن
نه کانکشن ندارم


ما هم همین مشکل رو داشتیم .
راحت ترین کار استفاده از CopyFileA هست که از توابع API هست
این تابع براش اهمیتی نداره که فایل بسته باشه یا باز باشه . به هر حال کپی می کنه

موفق باشید ./
می شه یکم بیشتر در این مورد و طرز نوشتن این تابع توضیح بدی ممنون

[Dr.Bronx]

Public Declare Function CopyFileA Lib "kernel32.dll" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

: آدرس فایل مبدا مثل "C:\VB6.txt"

lpNewFileName : آدرس فایل مقصد مثل "D:\VB6.txt"

bFailIfExist : اين متغير مشخص مي کند در صورت وجود فايل مقصد عمليات کپي ادامه يابد يا نه. اگر صفر باشد انجام ميشود و اگر يک باشد انجام نميشود .


نحوه استفاده در برنامه : یک متغیر از نوع Long تعریف میکنید و به صورت زیر استفاده می کنید :

Dim A as Long

()Private Sub Command1_Click

(A=CopyFileA( "C:\VB6.txt","D:\VB6.txt",0

End Sub

اگه تابع درست کار کند مقدار A عددی غیر صفر ، در غیر این صورت A=0 خواهد بود.البته میتونید نام فایل رو هم توی مقصد عوض کنید.

موفق باشید ./

[xxxxx_xxxxx]

حاجی فکر کنم ایشون تو باز کردن Recordset مشکل دارند ها. منظور از بازیابی اطلاعات همون Recordset.open هست.
آقای soheilbehro (http://barnamenevis.org/forum/member.php?u=79266) اگر اینطور هست برنامه تون رو اینجا قرار بدید تا بررسی شه.

[soheilbehro]

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

[mpmsoft]

کد بالا اصلاح شد و تست شد

[soheilbehro]

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

data1.database.close
دوباره نمی تونیم باز کنیم و باید از برنامه خارج بشیم و دوباره وارد آن بشیم که یه مقدار ضایع است!
کسی می تونه بگه چه جوری می شه دوباره بانک رو باز کرد؟