رفتن به مطلب
  • 0

چک کردن ستون در تیبل دیتا بیس


sorena.king.24

سوال

سلام بر دوستان

دوستان برام یه مشکل پیش امده

من یه برنامه حسابداری برا خودم درست کردم

حالا میخوام داخل تیبل یه ستون اضافه کنم

با کوئری آلتر آشنا هستم برای اضافه کردن ستون و تعیین نوع

فقط یک خط کد میخوام چک کنه آیا در فلان تیبل فلان ستون وجود داره یا خیر؟

اگر بود که هیچ

اگر نبود کئوری ساخت ستون را انجام بده

فقط اون خط چک کردن ستون را میخوام

ممنون میشم کمکم کنید

لینک ارسال
به اشتراک گذاری در سایت های دیگر

4 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

در در 1396/06/20, 00:01:39، ghost94 گفته است :

اینو ببینید فکر کنم دنبال همچین چیزی هستید :

Dim SQLVariables As SQL   'in Process_Globals
Dim Cursor1 As Cursor 'in  Globals


If File.Exists(File.DirDefaultExternal,"l4pro.sql") = False Then
    File.Copy(File.DirAssets,"l4pro.sql",File.DirDefaultExternal,"l4pro.sql")
End If

If SQLVariables.IsInitialized = False Then
    SQLVariables.Initialize(File.DirDefaultExternal, "l4pro.sql", False)
End If

Dim MyTable As String = "names"    'اسم جدولتون
Dim txt As String
txt="SELECT * FROM " & MyTable & " LIMIT 1"
Cursor1=SQLVariables.ExecQuery(txt)
Cursor1.Position=0
Dim cols As Int = Cursor1.ColumnCount
Dim MyColName(cols) As String
Dim NewColumn As String = "Col10"
Dim Flag As Boolean =False

For i=0 To Cursor1.ColumnCount-1
    MyColName(i)=Cursor1.GetColumnName(i)
    If MyColName(i)= NewColumn Then
     Msgbox("Column already exists. ","")
     Flag=True
     Exit
    End If
Next

If Flag=False Then
    txt="ALTER TABLE " & MyTable & " ADD COLUMN " & NewColumn &   " VARCHAR(100)"
    SQLVariables.ExecNonQuery(txt)
    Msgbox(NewColumn & " was added to the table","")
End If

ایول دمت گرم:53::yahoo::53:

همینو میخواستم

فقط یه سوال دیگه

میشه تیبل هم چک کرد:fekr::malih:

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

در 4 ساعت قبل، sorena.king.24 گفته است :

 

خواهش میکنم 

برای چک کردن تیبل هم به این شکل میشه عمل کرد :

If Sql.ExecQuerySingleResult("SELECT count(name) FROM sqlite_masterWHERE type='table' AND name ='yourTableName'") = 0 Then
 'وجود نداره
Else
 'وجود داره
End If

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

اینو ببینید فکر کنم دنبال همچین چیزی هستید :

Dim SQLVariables As SQL   'in Process_Globals
Dim Cursor1 As Cursor 'in  Globals


If File.Exists(File.DirDefaultExternal,"l4pro.sql") = False Then
    File.Copy(File.DirAssets,"l4pro.sql",File.DirDefaultExternal,"l4pro.sql")
End If

If SQLVariables.IsInitialized = False Then
    SQLVariables.Initialize(File.DirDefaultExternal, "l4pro.sql", False)
End If

Dim MyTable As String = "names"    'اسم جدولتون
Dim txt As String
txt="SELECT * FROM " & MyTable & " LIMIT 1"
Cursor1=SQLVariables.ExecQuery(txt)
Cursor1.Position=0
Dim cols As Int = Cursor1.ColumnCount
Dim MyColName(cols) As String
Dim NewColumn As String = "Col10"
Dim Flag As Boolean =False

For i=0 To Cursor1.ColumnCount-1
    MyColName(i)=Cursor1.GetColumnName(i)
    If MyColName(i)= NewColumn Then
     Msgbox("Column already exists. ","")
     Flag=True
     Exit
    End If
Next

If Flag=False Then
    txt="ALTER TABLE " & MyTable & " ADD COLUMN " & NewColumn &   " VARCHAR(100)"
    SQLVariables.ExecNonQuery(txt)
    Msgbox(NewColumn & " was added to the table","")
End If

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...