3sem
[quote pid='197333' dateline='1715327697']
dgvcols.Rows.Add(dt.Rows(i).Item("Column_Name"), [Enum].GetName(GetType(OleDbType), dt.Rows(i).Item("Data_Type")))
[/quote]
جربت كود شبيه به و جربته ايضا لكنه لا يعطي نفس النتيجة اللتي تظهر بالصورة و لم استطع فتح المرفق.
[quote pid='197333' dateline='1715327697']
(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")))
[/quote]
جربت كود شبيه به و جربته ايضا لكنه لا يعطي نفس النتيجة اللتي تظهر بالصورة و لم استطع فتح المرفق.
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير

