+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : من يضع كود معرفة عدد الجداول ضمن دالة function (/showthread.php?tid=8004)
من يضع كود معرفة عدد الجداول ضمن دالة function - سعود - 16-03-13
من يضع كود معرفة عدد الجداول ضمن دالة function
كود :
[align=left] '**************************معرفة عدد الجداول****************
' Dim tc As New SqlCommand("SELECT Count(*) FROM INFORMATION_SCHEMA.TABLES", con)
' If con.State = ConnectionState.Closed Then
' con.Open()
' End If
' Response.Write("<div align=center><h2>" & tc.ExecuteScalar & "</h2></div>")
' If tc.ExecuteScalar = 0 Then
' Response.Write("<div align=center><h2>لا توجد جداول بالقاعدة الحالية</h2></div>")
' Exit Sub
' End If
'*************************************************[/align]من يضع كود معرفة عدد الجداول ضمن دالة function - Easy4ever - 18-03-13
تفضل أخي
PHP كود :
Function CountTable(ConDataB As SqlConnection)
Dim tc As New SqlCommand("SELECT Count(*) FROM INFORMATION_SCHEMA.TABLES", ConDataB)
If con.State = ConnectionState.Closed Then
con.Open()
End If
Response.Write("<div align=center><h2>" & tc.ExecuteScalar & "</h2></div>")
If tc.ExecuteScalar = 0 Then
Response.Write("<div align=center><h2>لا توجد جداول بالقاعدة الحالية</h2></div>")
End If
End Function
كود الأستدعاء
PHP كود :
CountTable(con)
con غنية عن التعريف بدلها باسم الاتصال الذي تستخدمه
* ملاحظة هذا الكود لقاعدة البيانات SQLServer
إذا كنت تستخدم اكسس غير SqlConnection الموجود في قسم التعريفات إللي فيfunction