|
 Trouver une ressource
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
 CONNAÎTRE LES DATATYPE ADODB COMPATIBLES AVEC LES TYPES DE DONNÉES ACCESS, EN .NET
 Information sur la source
 Description
Ce morceau de code .NET permet de créer une base de données Access. Cette base contiendra tous les types de données compatibles avec les DataType ADODB. Cela permettra par exemple pour ceux qui souhaitent construire une base de données Access de savoir que le type de données Entier Long est créé à partir du type ADODB.DataTypeEnum.adInteger. Cela permet également de savoir par exemple que le type ADODB.DataTypeEnum.adBigInt n'est pas compatible avec Access et provoque une erreur lors de l'enregistrement de la table (et non lors de la création du champs). Nécéssite les références : Microsoft Ado Ext. 2.8 for DLL and Security. Microsoft ActiveX Data Objects 2.8 Library
 Source
- Private Sub Button_Vérifie_ADOX_DataTypeEnum_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Vérifie_ADOX_DataTypeEnum.Click
-
- 'Ce code permet de connaître tous les DataType disponibles dans ADODB.DataTypeEnum compatibles dans une base de données Access
- 'Les tables qui sont présentes dans la base créée contiennent 1 seul champs avec le type correspondant au DataType
- 'Les tables qui ne sont pas présentes dans la base ne sont pas compatibles avec une base Access
- '
- ' Ajouter les références :
- ' Microsoft Ado Ext. 2.8 for DLL and Security.
- ' Microsoft ActiveX Data Objects 2.8 Library
-
- 'Crée une boîte de dialogue pour sauvegarder la base de données Access
- Dim sfd As New SaveFileDialog
-
- sfd.Filter = "Fichiers Access (*.mdb)|*.mdb|Tous les fichiers (*.*)|*.*"
-
- If sfd.ShowDialog = DialogResult.OK Then
-
- 'Création de la base de données
- Dim catalogue As New ADOX.Catalog
-
- catalogue.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sfd.FileName & ";")
-
- 'Création des tables compatibles
- crée_table_DataTypeEnum(catalogue, "adArray", ADODB.DataTypeEnum.adArray)
- crée_table_DataTypeEnum(catalogue, "adBigInt", ADODB.DataTypeEnum.adBigInt)
- crée_table_DataTypeEnum(catalogue, "adBinary", ADODB.DataTypeEnum.adBinary)
- crée_table_DataTypeEnum(catalogue, "adBoolean", ADODB.DataTypeEnum.adBoolean)
- crée_table_DataTypeEnum(catalogue, "adBSTR", ADODB.DataTypeEnum.adBSTR)
- crée_table_DataTypeEnum(catalogue, "adChapter", ADODB.DataTypeEnum.adChapter)
- crée_table_DataTypeEnum(catalogue, "adChar", ADODB.DataTypeEnum.adChar)
- crée_table_DataTypeEnum(catalogue, "adCurrency", ADODB.DataTypeEnum.adCurrency)
- crée_table_DataTypeEnum(catalogue, "adDate", ADODB.DataTypeEnum.adDate)
- crée_table_DataTypeEnum(catalogue, "adDBDate", ADODB.DataTypeEnum.adDBDate)
- crée_table_DataTypeEnum(catalogue, "adDBTime", ADODB.DataTypeEnum.adDBTime)
- crée_table_DataTypeEnum(catalogue, "adDBTimeStamp", ADODB.DataTypeEnum.adDBTimeStamp)
- crée_table_DataTypeEnum(catalogue, "adDecimal", ADODB.DataTypeEnum.adDecimal)
- crée_table_DataTypeEnum(catalogue, "adDouble", ADODB.DataTypeEnum.adDouble)
- crée_table_DataTypeEnum(catalogue, "adEmpty", ADODB.DataTypeEnum.adEmpty)
- crée_table_DataTypeEnum(catalogue, "adError", ADODB.DataTypeEnum.adError)
- crée_table_DataTypeEnum(catalogue, "adFileTime", ADODB.DataTypeEnum.adFileTime)
- crée_table_DataTypeEnum(catalogue, "adGUID", ADODB.DataTypeEnum.adGUID)
- crée_table_DataTypeEnum(catalogue, "adIDispatch", ADODB.DataTypeEnum.adIDispatch)
- crée_table_DataTypeEnum(catalogue, "adInteger", ADODB.DataTypeEnum.adInteger)
- crée_table_DataTypeEnum(catalogue, "adIUnknown", ADODB.DataTypeEnum.adIUnknown)
- crée_table_DataTypeEnum(catalogue, "adLongVarBinary", ADODB.DataTypeEnum.adLongVarBinary)
- crée_table_DataTypeEnum(catalogue, "adLongVarChar", ADODB.DataTypeEnum.adLongVarChar)
- crée_table_DataTypeEnum(catalogue, "adLongVarWChar", ADODB.DataTypeEnum.adLongVarWChar)
- crée_table_DataTypeEnum(catalogue, "adNumeric", ADODB.DataTypeEnum.adNumeric)
- crée_table_DataTypeEnum(catalogue, "adPropVariant", ADODB.DataTypeEnum.adPropVariant)
- crée_table_DataTypeEnum(catalogue, "adSingle", ADODB.DataTypeEnum.adSingle)
- crée_table_DataTypeEnum(catalogue, "adSmallInt", ADODB.DataTypeEnum.adSmallInt)
- crée_table_DataTypeEnum(catalogue, "adTinyInt", ADODB.DataTypeEnum.adTinyInt)
- crée_table_DataTypeEnum(catalogue, "adUnsignedBigInt", ADODB.DataTypeEnum.adUnsignedBigInt)
- crée_table_DataTypeEnum(catalogue, "adUnsignedInt", ADODB.DataTypeEnum.adUnsignedInt)
- crée_table_DataTypeEnum(catalogue, "adUnsignedSmallInt", ADODB.DataTypeEnum.adUnsignedSmallInt)
- crée_table_DataTypeEnum(catalogue, "adUnsignedTinyInt", ADODB.DataTypeEnum.adUnsignedTinyInt)
- crée_table_DataTypeEnum(catalogue, "adUserDefined", ADODB.DataTypeEnum.adUserDefined)
- crée_table_DataTypeEnum(catalogue, "adVarBinary", ADODB.DataTypeEnum.adVarBinary)
- crée_table_DataTypeEnum(catalogue, "adVarChar", ADODB.DataTypeEnum.adVarChar)
- crée_table_DataTypeEnum(catalogue, "adVariant", ADODB.DataTypeEnum.adVariant)
- crée_table_DataTypeEnum(catalogue, "adVarNumeric", ADODB.DataTypeEnum.adVarNumeric)
- crée_table_DataTypeEnum(catalogue, "adVarWChar", ADODB.DataTypeEnum.adVarWChar)
- crée_table_DataTypeEnum(catalogue, "adWChar", ADODB.DataTypeEnum.adWChar)
-
- MsgBox("Base créée")
-
- Else
- MsgBox("Abandon")
-
- End If
-
- End Sub
-
- Sub crée_table_DataTypeEnum(ByVal catalogue As ADOX.Catalog, ByVal dte_str As String, ByVal dte As Integer)
-
- Try
-
- 'Création d'une nouvelle table contenant un seul champs avec le DataType compatible
- Dim table As New ADOX.Table
-
- table.Name = dte_str
- table.Columns.Append(dte_str, dte)
-
- catalogue.Tables.Append(table)
-
- Catch ex As Exception
-
- 'Le DataType n'est pas compatible et a provoqué une erreur
- 'La table n'est pas ajoutée dans la base
-
- End Try
-
- End Sub
Private Sub Button_Vérifie_ADOX_DataTypeEnum_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Vérifie_ADOX_DataTypeEnum.Click
'Ce code permet de connaître tous les DataType disponibles dans ADODB.DataTypeEnum compatibles dans une base de données Access
'Les tables qui sont présentes dans la base créée contiennent 1 seul champs avec le type correspondant au DataType
'Les tables qui ne sont pas présentes dans la base ne sont pas compatibles avec une base Access
'
' Ajouter les références :
' Microsoft Ado Ext. 2.8 for DLL and Security.
' Microsoft ActiveX Data Objects 2.8 Library
'Crée une boîte de dialogue pour sauvegarder la base de données Access
Dim sfd As New SaveFileDialog
sfd.Filter = "Fichiers Access (*.mdb)|*.mdb|Tous les fichiers (*.*)|*.*"
If sfd.ShowDialog = DialogResult.OK Then
'Création de la base de données
Dim catalogue As New ADOX.Catalog
catalogue.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sfd.FileName & ";")
'Création des tables compatibles
crée_table_DataTypeEnum(catalogue, "adArray", ADODB.DataTypeEnum.adArray)
crée_table_DataTypeEnum(catalogue, "adBigInt", ADODB.DataTypeEnum.adBigInt)
crée_table_DataTypeEnum(catalogue, "adBinary", ADODB.DataTypeEnum.adBinary)
crée_table_DataTypeEnum(catalogue, "adBoolean", ADODB.DataTypeEnum.adBoolean)
crée_table_DataTypeEnum(catalogue, "adBSTR", ADODB.DataTypeEnum.adBSTR)
crée_table_DataTypeEnum(catalogue, "adChapter", ADODB.DataTypeEnum.adChapter)
crée_table_DataTypeEnum(catalogue, "adChar", ADODB.DataTypeEnum.adChar)
crée_table_DataTypeEnum(catalogue, "adCurrency", ADODB.DataTypeEnum.adCurrency)
crée_table_DataTypeEnum(catalogue, "adDate", ADODB.DataTypeEnum.adDate)
crée_table_DataTypeEnum(catalogue, "adDBDate", ADODB.DataTypeEnum.adDBDate)
crée_table_DataTypeEnum(catalogue, "adDBTime", ADODB.DataTypeEnum.adDBTime)
crée_table_DataTypeEnum(catalogue, "adDBTimeStamp", ADODB.DataTypeEnum.adDBTimeStamp)
crée_table_DataTypeEnum(catalogue, "adDecimal", ADODB.DataTypeEnum.adDecimal)
crée_table_DataTypeEnum(catalogue, "adDouble", ADODB.DataTypeEnum.adDouble)
crée_table_DataTypeEnum(catalogue, "adEmpty", ADODB.DataTypeEnum.adEmpty)
crée_table_DataTypeEnum(catalogue, "adError", ADODB.DataTypeEnum.adError)
crée_table_DataTypeEnum(catalogue, "adFileTime", ADODB.DataTypeEnum.adFileTime)
crée_table_DataTypeEnum(catalogue, "adGUID", ADODB.DataTypeEnum.adGUID)
crée_table_DataTypeEnum(catalogue, "adIDispatch", ADODB.DataTypeEnum.adIDispatch)
crée_table_DataTypeEnum(catalogue, "adInteger", ADODB.DataTypeEnum.adInteger)
crée_table_DataTypeEnum(catalogue, "adIUnknown", ADODB.DataTypeEnum.adIUnknown)
crée_table_DataTypeEnum(catalogue, "adLongVarBinary", ADODB.DataTypeEnum.adLongVarBinary)
crée_table_DataTypeEnum(catalogue, "adLongVarChar", ADODB.DataTypeEnum.adLongVarChar)
crée_table_DataTypeEnum(catalogue, "adLongVarWChar", ADODB.DataTypeEnum.adLongVarWChar)
crée_table_DataTypeEnum(catalogue, "adNumeric", ADODB.DataTypeEnum.adNumeric)
crée_table_DataTypeEnum(catalogue, "adPropVariant", ADODB.DataTypeEnum.adPropVariant)
crée_table_DataTypeEnum(catalogue, "adSingle", ADODB.DataTypeEnum.adSingle)
crée_table_DataTypeEnum(catalogue, "adSmallInt", ADODB.DataTypeEnum.adSmallInt)
crée_table_DataTypeEnum(catalogue, "adTinyInt", ADODB.DataTypeEnum.adTinyInt)
crée_table_DataTypeEnum(catalogue, "adUnsignedBigInt", ADODB.DataTypeEnum.adUnsignedBigInt)
crée_table_DataTypeEnum(catalogue, "adUnsignedInt", ADODB.DataTypeEnum.adUnsignedInt)
crée_table_DataTypeEnum(catalogue, "adUnsignedSmallInt", ADODB.DataTypeEnum.adUnsignedSmallInt)
crée_table_DataTypeEnum(catalogue, "adUnsignedTinyInt", ADODB.DataTypeEnum.adUnsignedTinyInt)
crée_table_DataTypeEnum(catalogue, "adUserDefined", ADODB.DataTypeEnum.adUserDefined)
crée_table_DataTypeEnum(catalogue, "adVarBinary", ADODB.DataTypeEnum.adVarBinary)
crée_table_DataTypeEnum(catalogue, "adVarChar", ADODB.DataTypeEnum.adVarChar)
crée_table_DataTypeEnum(catalogue, "adVariant", ADODB.DataTypeEnum.adVariant)
crée_table_DataTypeEnum(catalogue, "adVarNumeric", ADODB.DataTypeEnum.adVarNumeric)
crée_table_DataTypeEnum(catalogue, "adVarWChar", ADODB.DataTypeEnum.adVarWChar)
crée_table_DataTypeEnum(catalogue, "adWChar", ADODB.DataTypeEnum.adWChar)
MsgBox("Base créée")
Else
MsgBox("Abandon")
End If
End Sub
Sub crée_table_DataTypeEnum(ByVal catalogue As ADOX.Catalog, ByVal dte_str As String, ByVal dte As Integer)
Try
'Création d'une nouvelle table contenant un seul champs avec le DataType compatible
Dim table As New ADOX.Table
table.Name = dte_str
table.Columns.Append(dte_str, dte)
catalogue.Tables.Append(table)
Catch ex As Exception
'Le DataType n'est pas compatible et a provoqué une erreur
'La table n'est pas ajoutée dans la base
End Try
End Sub
 Historique
- 12 juin 2007 11:30:03 :
- Mise à jour : correction de 2 fautes dans la présentation du code (oups)
 Sources du même auteur
 Sources de la même categorie
Sources en rapport avec celle ci
 Commentaires et avis
 Discussions en rapport avec ce code source dans le forum
******** Access et VB ??? *********** [ par bouboussjunior ]
j'ai créer un "adodb" me permettant de récupérer les informations dans une base de donnée access. mais le probleme apparait avec la combo Box. Je m'ex
macro access qui veulent pas s'exécuter !!!! [ par Virginie ]
salut, j'ai écris une commandeDoCmd.TransfertText...mais voilà les données de mon fichier texte ne veulent pas aller dans la table spécifiée !les donn
vb & access [ par tardigrade ]
Bonjour,J'ai un probléme sous vb. en effet, je souhaite lancer une requete sur une base access en utilisant le composant ADO. ma connexion se fait par
problème de connexion avec access [ par CANARDBLEU ]
j'essaye d'insérer automatiquement dans un combobox une liste de nom figurant dans ma base access.Voici mon codeDim cnn As New ADODB.Connection Dim cn
URGENT : Access 97 & ADO & Connection à sa propre BD [ par Foub12 ]
Bonjour !Je suis en stage, et je suis désespéré car je n'arrive pas à me connecter à ma propre base sous Access 97 !J'écris ceci dans une méthode d'un
Evénement ADO sous Access 97 [ par musicales ]
Bonjour,J'essaie vainement de compiler le code suivant sous Access 97Private WithEvents objcon As ADODB.ConnectionPrivate Sub objcon_ConnectComplete(B
Access 2003 et VB6 [ par titou2A ]
Bonjour je débute en VB et j'ai une petite questionVoilà je voudrais récupérer les données de ma base access 2003 et les affichées ds un MSFLexGridmon
Afficher les table de excel avec ADODB??? [ par gauteric ]
Bonjour a tous,J'aimerais savoir si cE'st possible d'obtenir le nom des tables dans un fichier Access avec ADODB. Je ne connais pas le nom des tables
utilisation ado pour access xp [ par developvbdebut ]
Bonsoir tout le mondeJ'ai besoin de beaucoup d'aide svp!!Je voudrais enregistrer sur une table access les élèment d'une form.ma base s'appelle: emaile
ado sous access [ par scoder ]
bonjour, je bloque sur un truc tout con que j'ai déjà fait à maintes reprises mais là ça ne passe pas....j'ai les variables globales suivantes :Dim cn
|
 Téléchargements
Logiciels à télécharger sur le même thème :
|