منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] استفسار :- بخصوص ALTER TABLE - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] استفسار :- بخصوص ALTER TABLE (/showthread.php?tid=28430)

استفسار :- بخصوص ALTER TABLE - dubai.eig - 01-02-19

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

عندي استسفار بخصوص 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()


وشكرا لكم

RE: استفسار :- بخصوص ALTER TABLE - asemshahen5 - 01-02-19

عبئ 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 


RE: استفسار :- بخصوص ALTER TABLE - dubai.eig - 01-03-19

(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

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

بارك الله فيك

RE: استفسار :- بخصوص ALTER TABLE - asemshahen5 - 01-03-19

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 


RE: استفسار :- بخصوص ALTER TABLE - dubai.eig - 01-03-19

(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 

بارك الله فيك

وتسلم عزيزي

RE: استفسار :- بخصوص ALTER TABLE - dubai.eig - 02-03-19

(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 

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

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

RE: استفسار :- بخصوص ALTER TABLE - asemshahen5 - 02-03-19

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