je suis en train de développer un projet en vba et pour les besoins de la cause je suis passer d'une base dans excel a une base de donne firebird. j'arrive a me connecter a ma base de donne en utilisant ADODB.connection et en passant par un provider "IBPorvider" voir
voici mon code:
Option Explicit
'Déclaration des variables globales
Global Liberreur As String
Public cnx As New ADODB.connection
Public Rst As New ADODB.Recordset
Public Cmd As New ADODB.Command
Sub ouvetrure_BD()
'Cette procédure appelle la fonction d'ouverture de la BD et affiche la fenêtre d'acceuil.
If OuvrirBase = True Then
MsgBox "Base ouverte"
Else
MsgBox ("La connexion n'a pas réussi,réessayez")
End If
End Sub
Public Function OuvrirBase() As Boolean
cnx.Provider = "LCPI.IBProvider"
cnx.Open "C:\Devis\DEVIS.FDB", "SYSDBA", "masterkey"
Cmd.ActiveConnection = cnx
OuvrirBase = True
Exit Function
'\gbemich\GESPARC\Application\
Erreur:
Liberreur = "Erreur d'ouverture de la Base"
OuvrirBase = False
End Function
Public Sub FermerBase()
'Cette procédure permet de fermer la BD
On Error Resume Next
cnx.Close
MsgBox "Base fermer"
Set cnx = Nothing
End Sub
a priorie ca se connect bien a la base mais j'arrive pas a ajouter des enregistrement
Sub enreg()
'cnx.Execute ("INSERT INTO [CONTACT] (ID,CIVI,NOM,PREMON) VALUES (3,Monsieur,toto,JuJu);")
cnx.Execute "INSERT INTO [CONTACT] ( [NOM],[PRENOM]) VALUES (toto, JUju)"
End Sub
bonjour,
j'ai avancer dans mes recherche et j'ai trouver (comme quoi je cherche pas si mal...)
auto_commit est une particularité de IBProvider et la valeur est a false par defaut
effectivement Commande "BeginTrans" permet d'éviter l'erreur
autre methode reconfigurer le provider:
Cannot convert command text to ib-charset [NONE]. (-2147217900)
alors je me suis aussi casse la tete et j'ai trouver tout seul :D
en fait if faut definir le charset il y en a plein:
ASCII, BIG_5, CYRL, DOS437, DOS737, DOS775, DOS850, DOS852, DOS857, DOS858, DOS860, DOS861, DOS862, DOS863, DOS864, DOS865, DOS866, DOS869, EUCJ_0208, GBK, GB_2312, ISO8859_1, ISO8859_13, ISO8859_2, ISO8859_3, ISO8859_4, ISO8859_5, ISO8859_6, ISO8859_7, ISO8859_8, ISO8859_9, KOI8R, KOI8U, KSC_5601, NEXT, SJIS_0208, TIS620, UNICODE_FSS, UTF8, WIN1250, WIN1251, WIN1252, WIN1253, WIN1254, WIN1255, WIN1256, WIN1257, WIN1258, ICU-Charsets.
et par defaut sur IBProvider il est a [NONE] autrement dit y en a pas...
je vous laisse choisir le votre je vais pas tout faire...
autrement y avais encore une autre erreur qui est facile a corriger quant on sais:
en fait ca veus dire qu'il y a un pb avec le caractère de la ligne 1 colone 13
Sql = "INSERT INTO [
TRUC] " & _
" (MACHIN) " & _
"VALUES ('vince');"
pour le cas present il y a pas de "["
au final voila le code(si tu vois de truc a ameliorer je suis preneur):
Option Explicit
'Déclaration des variables globales
Global Liberreur As String
Public cNx As New ADODB.connection
Public rSt As New ADODB.Recordset
Public cMd As New ADODB.Command
'Public cn_clone As New IBPSamples.TADOConnectionClone
Sub ouvetrure_BD() '(Sql As String)
'Cette procédure appelle la fonction d'ouverture de la BD et affiche la fenêtre d'acceuil.
Dim Sql As String
If OuvrirBase = True Then
Sql = "INSERT INTO TRUC " & _
" (MACHIN) " & _
"VALUES ('vince');"
Debug.Print Sql
rSt.Open Sql, cNx, adOpenStatic, adLockReadOnly, adCmdText
'rSt.Close
'cNx.Close
Set rSt = Nothing
'Set sql = Nothing
Set cNx = Nothing
Else
MsgBox ("La connexion n'a pas réussi,réessayez")
End If
End Sub
Public Function OuvrirBase() As Boolean
Set cNx = New ADODB.connection
cNx.Provider = "LCPI.IBProvider;auto_commit=True;ctype=WIN1252"
cNx.Open "C:\Devis\DEVIS.FDB", "SYSDBA", "masterkey"
cMd.ActiveConnection = cNx
OuvrirBase = True
Exit Function
'\gbemich\GESPARC\Application\
Erreur:
Liberreur = "Erreur d'ouverture de la Base"
OuvrirBase = False
End Function
Côté syntaxe SQL, il faut respecter les règles.
Tu as pris soin d'encadrer tes noms de table et champ avec des [ et ], mais tu as oublié de mettre les encadrements des valeurs :
Valeur de type :
Texte : encadrement par '
Date : encadrement par #
Numérique : pas d'encadrement
merci pour ces conseils et ma syntaxt sql je savais quel etais pas bonne mais mon problème pour le momant vient de se message d'érreur: "automatic transaction mode is disabled "
je ai trouver ca : When I do a simple SQL SELECT, I get an error saying "Automatic transaction is disabled
". Do you have any ideas? sur ca
réponse:
When I do a simple SQL SELECT, I get an error saying "Automatic transaction is disabled". Do you have any ideas?
For work in "auto-commit" mode, you should set "auto_commit true" in connection string or set "SessionAutoCommit true" session's property if connection was created already. You may use other mode. See news about it. You may use ADODB.Connection.BeginTrans or start_transaction (for ADO or C++). For more information read examples.
Mais c'est quoi auto_commit ?
comment on le met a true?
AutoCommit : Surement une particularité de Firebird.
Il faudrait regarder dans la doc.
Les transactions sont utilisées pour les manipulations multiples avec possibilité de faire marche arrière. Exemple subjectif :
Commande "BeginTrans"
... Pleins de commandes SQL (en lecture comme en écriture/suppression)
Ensuite :
- Commande "RollbackTrans" pour annuler les modifs liées à ces commandes
- Commande "CommitTrans" pour valider ces commandes
Cette technique est à utiliser quand tu as plusieurs manips à faire consécutivement et que tu te réserve le droit d'annuler, par exemple au cas où tu ne trouve pas une données dans une table, ou bien lorsque tu travailles sur une DB multi-utilisateurs car les commandes ne sont réellement exécutées que sur la commande CommitTrans, en une seule fois, donc très rapidement.
Si le moteur SQL de Firebird demande un paramètre supplémentaire, AutoCommit, à préciser lors de la connexion, il faut je pense utiliser les Properties.
Exemple d'ouverture de connexion avec SQL Server :
With cnnSqlServer
' Referme si déjà ouverte
If .State <> adStateClosed Then .Close
' Paramétrage connexion
.ConnectionTimeout = 25
.Provider = "sqloledb"
.Properties("Data Source").Value = ServerName
.Properties("Initial Catalog").Value = DBName
' SQL Server dédié
.Properties("Locale Identifier").Value = 1033 ' impose Anglais
.Properties("User ID").Value = sUserID
.Properties("Password").Value = sPassword
On Error Resume Next
' Connexion
.Open
' Attend connexion terminée
Do While .State = adStateConnecting
DoEvents
Loop
On Error GoTo 0
' Au final, renvoie True si on est bien ouvert
ConnectSqlServer CBool(.State adStateOpen)
End With
