تست وجود جدول مورد نظر در بانك اطلاعاتی

[vahid_d_0101]

با سلام
من با بانک اطلاعاتی اکسس و Adodc به بانک اطلاعاتی کانکت میشوم

میخواستم ببینم چه طوری بفهمیم که یه جدول در بانک وجود دارد یا نه
مثلا آيا جدولی به نام وحید در بانک اطلاعاتی وجود دارد یا نه ؟
با ارور گرفتن نمیخوام این کار را انجام بده

با تشکر

[vbhamed]

سلام
چرا نمي‌خواهيد از Error استفاده كنيد ؟

[vahid_d_0101]

حل شد یه دونه کد خوب پیدا کردم عالی این کار را میکنه

این کد را داخل یه ماژول قرار بدید


Public Function IsExistingTable( _ ByVal Database As String, _
ByVal TableName As String _
) As Boolean


Dim ConnectString As String
Dim ADOXConnection As Object
Dim ADODBConnection As Object
Dim Table As Variant


ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;data source=" & Database
Set ADOXConnection = CreateObject("ADOX.Catalog")
Set ADODBConnection = CreateObject("ADODB.Connection")
ADODBConnection.Open ConnectString
ADOXConnection.ActiveConnection = ADODBConnection
For Each Table In ADOXConnection.Tables
If LCase(Table.Name) = LCase(TableName) Then
IsExistingTable = True
Exit For
End If
Next
ADODBConnection.Close


End Function

بعد با دستور زیر میتوند بفهمید تیبل مورد نظر وجو داره یا نه


If IsExistingTable(Adodc1.ConnectionString, Text5.Text) Then




اگه تیبلی که داخل text5 نوشته باشید درست باشه به دستور بعد از then میره