آژانس هواپیماییexchanging

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

شروع موضوع توسط ABBAS87864 ‏19 ژوئن 2005 در انجمن Visual Basic 6

  1. ABBAS87864

    ABBAS87864 کاربر تازه وارد

    تاریخ عضویت:
    ‏2 نوامبر 2004
    نوشته ها:
    100
    تشکر شده:
    0
    سلام دوستان

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

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

    Set DB2 = OpenDatabase("table.mdb

    DB2.Execute "DROP TABLE [x

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

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

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

    متشكرم.
     
  2. HASAN-PUM

    HASAN-PUM کاربر تازه وارد

    تاریخ عضویت:
    ‏19 می 2005
    نوشته ها:
    5
    تشکر شده:
    0
    محل سکونت:
    sky
    شاید با این دستور بشه
    if exist
     
  3. saeedsmk

    saeedsmk مدیر بازنشسته

    تاریخ عضویت:
    ‏6 سپتامبر 2003
    نوشته ها:
    1,519
    تشکر شده:
    4
    ميتوني از همچين چيزي استفاده كني
    کد:
    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
    
     
  4. shahramie

    shahramie کاربر تازه وارد

    تاریخ عضویت:
    ‏29 آگوست 2004
    نوشته ها:
    25
    تشکر شده:
    0
    محل سکونت:
    tehran
    سلام خدمت دوستان!
    اگه بخواهيم كل ركوردهاي يك جدول را (نه خود جدول) حذف كنيم چه دستوري ارائه مي فرمائيد؟!
    ممنون
     
  5. balabala

    balabala کاربر قدیمی پرشین تولز

    تاریخ عضویت:
    ‏22 می 2005
    نوشته ها:
    7,350
    تشکر شده:
    1,322
    محل سکونت:
    یه خورده اونورتر
    DELETE FROM table_name
    خیلی خطریه احتیاط کن.
     
  6. balabala

    balabala کاربر قدیمی پرشین تولز

    تاریخ عضویت:
    ‏22 می 2005
    نوشته ها:
    7,350
    تشکر شده:
    1,322
    محل سکونت:
    یه خورده اونورتر
    عزیزم بهترین راه اینه که از 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!"
    
     
  7. appbannerkhuniresbanner