[3sem]

(09-05-24, 08:12 PM)justforit كتب :

PHP كود :

 Private Sub get_Cols(tb As String)
      dgvcols.Rows.Clear()
      If con.State = ConnectionState.Closed Then con.Open()
      Dim dt As DataTable = con.GetOleDbSchemaTable(OleDbSchemaGuid.Columns, New Object() {Nothing, Nothing, tb, Nothing})
      If dt.Rows.Count = 0 Then
          MsgBox(" لا توجد حقول!", MsgBoxStyle.Exclamation, "")
          Exit Sub
      End If
      For i As Integer = 0 To dt.Rows.Count - 1
          dgvcols.Rows.Add(dt.Rows(i).Item("Column_Name"), dt.Rows(i).Item("Data_Type").ToString)
      Next
  End Sub 


السابق كما ترون يجلب اسماء الاعمدة من جدول محدد ونوع البيانات لكن الاخيرة تاتي ارقام فكيف الى حلها؟

شكر الله لكم

dgvcols.Rows.Add(dt.Rows(i).Item("Column_Name"), [Enum].GetName(GetType(OleDbType), dt.Rows(i).Item("Data_Type")))