پاك كردن جدول از بانك access در vb6

[ABBAS87864]

سلام دوستان

من ميخواهم برنامه ، چك كند كه اگر جدول x وجود داشت آن را delete كند.

دستور پاك كردن را مي دانم
اينه:

Set DB2 = OpenDatabase("table.mdb

DB2.Execute "DROP TABLE [x

ولي دستور شرط چك كردن وجود جدول را بلد نيستم

يعني نميدانم چه دستوري است كه موجود بودن جدول در بانك را چك مي كند.

لطفا كمك كنيد.

متشكرم.

 

[HASAN-PUM]

شاید با این دستور بشه
if exist

 

[saeedsmk]

ميتوني از همچين چيزي استفاده كني

Function Check_Table(table_name As String) As Boolean
    Dim sqltxt As String * 255
    On Error GoTo Set_False
    Check_Table = True
    sql = "Select * from " & table_name & ""
    RSt.Open sql, Db, adOpenStatic, adLockOptimistic
    RSt.Close
    Exit Function
Set_False:
    Check_Table = False
End Function

 

[shahramie]

سلام خدمت دوستان!
اگه بخواهيم كل ركوردهاي يك جدول را (نه خود جدول) حذف كنيم چه دستوري ارائه مي فرمائيد؟!
ممنون

 

[balabala]

سلام خدمت دوستان!
اگه بخواهيم كل ركوردهاي يك جدول را (نه خود جدول) حذف كنيم چه دستوري ارائه مي فرمائيد؟!
ممنون

DELETE FROM table_name
خیلی خطریه احتیاط کن.

 

[balabala]

سلام دوستان

من ميخواهم برنامه ، چك كند كه اگر جدول x وجود داشت آن را delete كند.

دستور پاك كردن را مي دانم
اينه:

Set DB2 = OpenDatabase("table.mdb

DB2.Execute "DROP TABLE [x

ولي دستور شرط چك كردن وجود جدول را بلد نيستم

يعني نميدانم چه دستوري است كه موجود بودن جدول در بانك را چك مي كند.

لطفا كمك كنيد.

متشكرم.

عزیزم بهترین راه اینه که از properite های کانکشن استفاده کنی. یک لوپ بساز اسم همه table های database رو بگیر ،بعدش می فهمی توشون هست یا نه. اگر یک راه حل تو خوده SQL می خوایی یکمی سخت تره (بیخیال فکر کنم یک چیزایی مثل exist که HASAN-PUM گفت تو MSSQL باشه ولی Access رو مطمئن نیستم.

اینجوری:

Dim i as long, bFound as Boolean

Const strFound as String="myTable"

Set DB2 = OpenDatabase("table.mdb")
For i = 0 To DB2.TableDefs.Count - 1
if lcase(DB2.TableDefs(i).Name)=lcase(strFound) Then bFound=True:exit for
Next i

if bFound then Msgbox "Table " & strFound & " found!"