(17-05-24, 09:56 PM)AmeenRashed كتب : شكراً على المثال
سوف اقوم بدراسته غداً
وإن كنت أتمنى أن يكون الموضوع أبسط من ذلك
فقد رأيت فى أحد الأمثلة _ وقد نسيت أين _
أن صاحبه يتأكد من وجود الحقل من خلال تعليمة Select
عموماً أشكرك على تعبك ومبادرتك
انا عملت الطريقة الخاصة بـ GetSchema
بقى كود الاستعلام عن عمود غير موجود باذن الله اعدل على المثال.
هذا اسهل شيء عرفته :
PHP كود :
Imports System.Data.OleDb
Public Class Form1
Dim db As String = IO.Path.GetDirectoryName(Application.ExecutablePath) & "\db1.mdb"
Dim str As String = "provider=microsoft.jet.oledb.4.0;data source=" & db
Dim con As New OleDbConnection(str)
Dim dt As New DataTable
Private Function isfound(col As String, tbl As String) As Boolean
dt.Clear()
If con.State = ConnectionState.Closed Then con.Open()
Using cm As New OleDbCommand("", con)
cm.CommandText = "select * from " & tbl
dt.Load(cm.ExecuteReader)
Return dt.Columns.Contains(col)
End Using
End Function
Private Sub btncheck_col_Click(sender As Object, e As EventArgs) Handles btncheck_col.Click
MsgBox(isfound(txtcol.Text, txttbl.Text))
End Sub
End Class
الملف مرفق بدون كود اضافة فقط كود التحقق و ذلك عن طريق اولا تعبئة DataTable من نتيجة استعلام ثم التحقق هل الجدول المؤقت يحتوي عمود باسم مرسل؟
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
