منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
عدم معرفة اسم العمود - نسخة قابلة للطباعة

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



عدم معرفة اسم العمود - fatat - 24-10-13

لدي برنامج vb.net و sql server
عندما افتح قاعدة البيانات داخل sql server يعطيني خطا ولا استطيع فتح القاعدة ولكن برمجيا اعمل عليها عادي ولكن نسيت اسم عمود داخل جدول هل من طريقة برمجيا لمعرفة اسم العمود الرجاء وضع الكود كاملا

سؤال اخر
اذا كان لدي خلية true or false
عند كتابىة الشرط where اريد التاكد هل هذه الجملة صحيحة ام لا
"select * from students where school_id=" & ds_school.Tables("schools").Rows(i).Item("school_id") & " and left='true'", con)


RE: عدم معرفة اسم العمود - fatat - 27-10-13

لا احد يعلم ما هو الحل


RE: عدم معرفة اسم العمود - سعود - 27-10-13

هل جربت عن طريق فيجوال استوديو نفسه؟


RE: عدم معرفة اسم العمود - kslawy - 27-10-13

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

بالنسبة للسؤال الأول :

PHP كود :
Dim DatabaseName As String "Your Database Name here"

    
Dim conStr As String = ("Server=.\sqlexpress; DataBase=" DatabaseName "; Integrated Security=SSPI")


    Private 
Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
        TableColumnNames
("Your Table Name here")
    
End Sub


    
Private Sub TableColumnNames(ByVal tblName As String)
               Try

            
Dim strSQL As String "SELECT [COLUMN_NAME] FROM INFORMATION_SCHEMA.columns Where [TABLE_NAME]=@1"
            
Dim da As SqlDataAdapter = New SqlDataAdapter(strSQLconStr)
            
With da.SelectCommand.Parameters
                
.Clear()
                .
AddWithValue("@1"tblName)
            
End With

            Dim ds 
As New DataSet()

            
da.Fill(ds)

            If 
ds.Tables(0).Rows.Count 0 Then
                DataGridView1
.DataSource ds.Tables(0)
            Else
                
MessageBox.Show("لا يوجد جدول بهذا الاسم""تنبيه"MessageBoxButtons.OKMessageBoxIcon.Asterisk)
            
End If

        Catch 
ex As Exception
            MessageBox
.Show(ex.Message)
        
End Try
    
End Sub 



RE: عدم معرفة اسم العمود - fatat - 30-10-13

شكرا لك على هذا الرد ولكن عند التنفيذ ظهر لي هذا الخطا


RE: عدم معرفة اسم العمود - kslawy - 30-10-13

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

اضف زر أمر وأداة Datagridview .

PHP كود :
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click

        Dim DatabaseName 
As String "Your Database name here"

        
Dim TableName As String "Your Table name here"

        
Dim con As SqlConnection = New SqlConnection("Data Source=.\SQLEXPRESS;Initial Catalog=" DatabaseName ";Integrated Security=True")

        
Dim da As SqlDataAdapter = New SqlDataAdapter("Select * from " TableNamecon)

        
Dim ds As DataSet = New DataSet

        ds
.Clear()

        
da.Fill(dsTableName)

        
Me.DataGridView1.DataSource ds.Tables(0)

    
End Sub 

بهذه الطريقة ستظهر أسماء الأعمدة الحقيقة في رأس كل عمود .

****
***
**
*


RE: عدم معرفة اسم العمود - fatat - 30-10-13

جزاك الله الف خير وشكرا لكم