[ADO.NET] Existence d'une tableRésolu

Question

Bonjour,

J'ai du code vb.net 2003 avec un Try ... Catch ... End Try, et dans mon Try je fais des traitements sur une base Access avec ADO.NET (datareader, dataadapter, etc...).
Mon probl&#232;me est simple : dans certains cas de figures de l'utilisation de mon application, une ou des tables peuvent ne pas exister, si bien que quand je les alimente par des requ&#234;tes, &#231;a plante en me disant qu'elles n'existent pas.
Je voudrais donc faire une fonction qui teste l'existence ou non de ces tables, afin le cas &#233;ch&#233;ant de les cr&#233;er avant de les alimenter.

Si vous avez une piste, merci beaucoup.

Pourquoi faire simple quand on peut faire compliqu&#233;?????That is the question

Dalida · Accepted Answer

d&#233;sol&#233;, aujourd'hui j'&#233;cris vraiment n'importe quoi !

dr&#244;le d'id&#233;e de vouloir absolument utiliser ADOX alors que la bdd existe d&#233;j&#224; ...

tu me diras pourquoi faire simple... 



il suffit d'executer une requ&#234;te simple sur la table, si une erreur est lev&#233;e alors la table n'existe pas...



Private Function DataTableExists(ByVal cnx As OleDb.OleDbConnection, ByVal tableName As String) As Boolean



        Dim cmd As New OleDb.OleDbCommand(String.Concat("SELECT * FROM ", tableName), cnx)



        Try



            cnx.Open()

            cmd.ExecuteNonQuery()



            Return True



        Catch ex As OleDb.OleDbException



            Return False



        Finally



            cnx.Close()



        End Try



    End Function



c'est d&#233;j&#224; beaucoup plus simple !!! 


[ Dalida ]

Dalida · Answer

salut,



si tu veux cr&#233;er une table tu finiras par utiliser ADOX, donc pourquoi ne pas l'utiliser pour tester l'existence de ta table ?



Dim cnxString As String = "..."



Private Function DataTableExists(tableName As String) As Boolean



    Dim result As Boolean = False



    Dim cat As New ADOX.Catalog   

    cat.let_ActiveConnection(cnxString)



    For Each tbl As ADOX.Table In templateCatalog.Tables



        If tbl.Type.Equals("TABLE") = True _

        AndAlso If (tbl.Name tableName) True Then



            result = True

          Exit For



        End If



    Next tbl



    cat = Nothing



    Return result 



End Function



[ Dalida ]

djdiabolik · Answer

Merci mais dans la mesure du possible, je souhaiterais rester sur ADO. En effet je pars d'une appli existante et je ne veux pas d&#233;naturer la m&#233;thode de programmation &#224; outrance en restant dans la lign&#233;e de ce qui a &#233;t&#233; fait.

Pour cr&#233;er une table je n'ai pas de probl&#232;me, les requ&#234;tes qui s'executent sans retour de donn&#233;es du type CREATE TABLE fonctionnent correctement, c'est juste pour le test sur l'existence d'une table que je bloque un peu...

Merci quand m&#234;me. A d&#233;faut d'une solution standard, je testerai celle ci. 

Pourquoi faire simple quand on peut faire compliqu&#233;?????That is the question

djdiabolik · Answer

Je ne te le fais pas dire !!!!

c'est tellement simple que je passe pour un d&#233;butant de ne pas l'avoir trouv&#233;....
J'aurais pr&#233;f&#233;r&#233; une m&#233;thode x ou y standard, mais je me contenterais de cette solution qui me semble ma foi fort &#224; propos.
Reste plus qu'&#224; tester...

Merci! r&#233;ponse accept&#233;e!

Pourquoi faire simple quand on peut faire compliqu&#233;?????That is the question

n_youbi · Answer

bonjour,
j'ai besoin d'un script sous vb.net  qui teste l'existance d'une base de données sql server 
Merci d'avance

[ADO.NET] Existence d'une table

5 réponses

Discussions similaires