منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

لدي برنامج 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)

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

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

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

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

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.Object, ByVal e As System.EventArgs) Handles 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(strSQL, conStr)
            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.OK, MessageBoxIcon.Asterisk)
            End If

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

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

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

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

PHP كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 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 " + TableName, con)

        Dim ds As DataSet = New DataSet

        ds.Clear()

        da.Fill(ds, TableName)

        Me.DataGridView1.DataSource = ds.Tables(0)

    End Sub

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

****
***
**
*

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

fatat

fatat

سعود

kslawy

fatat

kslawy

fatat