[dubai.eig]

السلام عليكم ورحمة الله

عندي استسفار بخصوص ALTER TABLE

كيف اتاكد من عدم وجود ال column  قبل عمليه ال ALTER TABLE

الكود الموجود عندي شغال بس اريد قبل اتاكد

كود :

       Dim SQLiteconnect1 As New SQLiteConnection()
       Dim SQLitecommand1 As SQLiteCommand
       SQLiteconnect1.ConnectionString = String.Format("Data Source= C:\settings\info{0}.s3db", Settings.yCallsign)
       SQLiteconnect1.Open()
       SQLitecommand1 = SQLiteconnect1.CreateCommand

       SQLitecommand1.CommandText = String.Format("ALTER TABLE info{0} Add key VARCHAR(50)  NULL", Settings.yCallsign)
       SQLitecommand1.ExecuteNonQuery()

       SQLiteconnect1.Close()

وشكرا لكم

[asemshahen5]

عبئ Dataset Or Datatable بمعلومات الجدول ثم ضع الكود التالي :

PHP كود :

       If DS.Tables("TableName").Columns.Contains("CTRL") Then
            MsgBox(True)
        Else
            MsgBox(False)
        End If
        If DT.Columns.Contains("CTRL") Then
            MsgBox(True)
        Else
            MsgBox(False)
        End If 


[dubai.eig]

(01-02-19, 04:22 PM)asemshahen5 كتب : عبئ Dataset Or Datatable بمعلومات الجدول ثم ضع الكود التالي :

PHP كود :

       If DS.Tables("TableName").Columns.Contains("CTRL") Then
            MsgBox(True)
        Else
            MsgBox(False)
        End If
        If DT.Columns.Contains("CTRL") Then
            MsgBox(True)
        Else
            MsgBox(False)
        End If 


شكرا استاذي الكريم على الرد

الان انا عملت 
DataSet 
جديده  باسم
DataSetinfo.xsd


وضفت فيها الجداول نفس الموجوده في ملف قاعدة البيانات
info.s3db

الان كيف اقدر اكمل الكود للفحص

بارك الله فيك

[asemshahen5]

PHP كود :

Dim StrSQL as string = "Select * From TableName "
If con.State = ConnectionState.Closed Then con.Open()  
Dim da As New SqlDataAdapter(StrSQL, con)
Dim DS As New DataSet
da.Fill(DS,"TableName")
If DS.Tables("TableName").Columns.Contains("ColumnName") Then
   MsgBox(True)
Else
   MsgBox(False)
End If 


[dubai.eig]

(01-03-19, 10:21 PM)asemshahen5 كتب :

PHP كود :

Dim StrSQL as string = "Select * From TableName "
If con.State = ConnectionState.Closed Then con.Open()  
Dim da As New SqlDataAdapter(StrSQL, con)
Dim DS As New DataSet
da.Fill(DS,"TableName")
If DS.Tables("TableName").Columns.Contains("ColumnName") Then
   MsgBox(True)
Else
   MsgBox(False)
End If 


بارك الله فيك

وتسلم عزيزي

[dubai.eig]

(01-03-19, 10:21 PM)asemshahen5 كتب :

PHP كود :

Dim StrSQL as string = "Select * From TableName "
If con.State = ConnectionState.Closed Then con.Open()  
Dim da As New SqlDataAdapter(StrSQL, con)
Dim DS As New DataSet
da.Fill(DS,"TableName")
If DS.Tables("TableName").Columns.Contains("ColumnName") Then
   MsgBox(True)
Else
   MsgBox(False)
End If 


الحمدالله ضبط معاي 

شكرا لك على مجهودك الحمدالله

[asemshahen5]

لا شكر على واجب