05-06-22, 11:00 AM
(آخر تعديل لهذه المشاركة : 05-06-22, 11:39 AM {2} بواسطة mmaalmesry.)
السلام عليكم و رحمة الله و بركاته
اخوتى الكرام:
عندى مشكلة غريبة لا أعرف إن كانت مرت على أحد منكم أم لا وهى كالتالى :
الوظيفتان تعملان على جلب أسماء الجداول فى قاعدتى بيانات اثنين إحدهما أكسس و الأخرى إس كيو إل
و الوظيفتان تعملان بنجاح بشكل منفصل
ولكن إذا استدعيت الوظيفة الأولى ثم استدعت الثانية يتوقف البرنامج ولا يعطى رسالة خطأ و ذلك عند السطر 100
أرجو الإفادة و شكرا
اخوتى الكرام:
عندى مشكلة غريبة لا أعرف إن كانت مرت على أحد منكم أم لا وهى كالتالى :
كود :
Public Function getTablesnames_Access() As DataTable
Try
Dim Conn10 As New OleDbConnection(connection_Access)
If Conn10.State = ConnectionState.Closed Then Conn10.Open()
Dim dt_Access As DataTable
dt_Access = Conn10.GetSuchema("tables", {Nothing, Nothing, Nothing})
Return dt_Access
Catch
MsgBox(Err.Description)
Return Nothing
End Try
End Function
'=============================
Public Function getTablesnames_SQL() As DataTable
Try
Dim Conn3 As New SqlConnection(connection_SQL)
If Conn3.State = ConnectionState.Closed Then Conn3.Open()
Dim dt_SQL As DataTable
:100
dt_SQL = Conn3.GetSchema("tables", {Nothing, Nothing, Nothing})
Return dt_SQL
Catch
MsgBox(Err.Description)
Return Nothing
End Try
End Functionو الوظيفتان تعملان بنجاح بشكل منفصل
ولكن إذا استدعيت الوظيفة الأولى ثم استدعت الثانية يتوقف البرنامج ولا يعطى رسالة خطأ و ذلك عند السطر 100
أرجو الإفادة و شكرا
ماجربت الكود اللي فيه المشكلة 
