Discussion :

[Asdorve]

il surligne quoi en disant type incompatible?

[floran30]

Il surligne ca :
Set tbl = New Recordset

[Asdorve]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4

Dim tbl as ADODB.Recorset
  Set tbl = New Recordset

[floran30]

Ca ne marche toujours pas.

Type incompatible "Set bd = OpenDatabase(".\bd1.mdb")"

Dim str As String
Dim bd As ADODB.Recordset
Dim tbl As ADODB.Recordset


str = "INSERT INTO Document (document.Id_Document, document.Total_TTC, document.Total_HT, document.Total_TVA) " _
& "VALUES ('" & txtNumero.text & "', '" & txtTTC.text & "' , '" & txtHT.text & "', '" & txtTVA.text & "')"


Set bd = OpenDatabase(".\bd1.mdb")
Set tbl = New Recordset

[Asdorve]

essaye ce code (tu fais une copier coller et tu regardes)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
Dim str As String
Set tbl = New Recordset 
 
Dim con as ADODB.Connection
Set con = New ADODB.Connection
 
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= .\bd1.mdb"
 
str = "INSERT INTO Document (document.Id_Document, document.Total_TTC, document.Total_HT, document.Total_TVA) " _
& "VALUES ('" & txtNumero.text & "', '" & txtTTC.text & "' , '" & txtHT.text & "', '" & txtTVA.text & "')"
 
con.open

[floran30]

Ta variable tbl n'était pas défini.

Je l'ai defini en :
Dim tbl As DAO.Database

Mais type incomptaible : "Set tbl = New Recordset"

[Asdorve]

y'a pas des gens ici qu'y aurait Access et qui pourrait nous aider. Perso j'ai jamais utilisé Access.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
DIM tbl AS NEW DAO.RECORDSET

[floran30]

Dim str As String
Dim tbl As adodb.Recordset
Set tbl = New Recordset

Dim con As adodb.Connection
Set con = New adodb.Connection

con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= .\bd1.mdb"

str = "INSERT INTO Document (document.Id_Document, document.Total_TTC, document.Total_HT, document.Total_TVA) " _
& "VALUES ('" & txtNumero.text & "', '" & txtTTC.text & "' , '" & txtHT.text & "', '" & txtTVA.text & "')"

con.Open

Ah j'ai fait ceci, qd je clique sur mon bouton pour creer la facture la je n'ai plus de message d'erreur.
Mais qd je verifie dans ma base de données aucun nouvel enregistremen a été créé dans la table document.

[Asdorve]

après avoir ouvert ta bd, lance la requête...

[floran30]

Ca ne fait rien de plus.

[Asdorve]

comment tu la lance, ta requête?

[floran30]

Ben ma requete est dans mon projet VB.
Quand je clique sur un bouton ca lance ma requete.

[floran30]

Ah oui je viens de voir que dans ton code tu ne lance pas la requete.
Comment faire ?

[Asdorve]

un truc du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
cmdADO as new Adodb.commande
 
cmdADO.ActiveConnection = cnnADO
 
...
cmdADO.CommandText= "INSERT INTO Document (document.Id_Document, document.Total_TTC, document.Total_HT, document.Total_TVA) " _
& "VALUES ('" & txtNumero.text & "', '" & txtTTC.text & "' , '" & txtHT.text & "', '" & txtTVA.text & "')"
 
con.Open 
'Configurer le recordset
    'si le recordset est déjà ouvert on le ferme
    If tbl.State = adStateOpen Then
        tbl.Close
    End If
    'Curseur client
    tbl.CursorLocation = adUseClient
    'curseur dynamique
    tbl.CursorType = adOpenDynamic
    'on verrouille l'enregistrement des accès dans la source de données
    tbl.LockType = adLockPessimistic
 
    'ouverture du recordset
    tbl.Open cmdADO

[Asdorve]

plus simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
 
   tbl.Open "INSERT INTO Document (document.Id_Document, document.Total_TTC, document.Total_HT, document.Total_TVA) " _
& "VALUES ('" & txtNumero.text & "', '" & txtTTC.text & "' , '" & txtHT.text & "', '" & txtTVA.text & "'), con, AdopenDynamic, AdLockOptimistic

[floran30]

Ca veut dire que je doit le faire pour chaques champs ?

[Asdorve]

regared j'ai modifié au dessus

[floran30]

Il me dit "impossible d'utiliser cette connexion pour effectuer cette opération.
Elle est fermé ou non valide dans le contexte."

[Asdorve]

en surlignant quoi exactement?

[floran30]

Tout ça.

tbl.Open "INSERT INTO Document (document.Id_Document, document.Total_TTC, document.Total_HT, document.Total_TVA) " _
& "VALUES ('" & txtNumero.text & "', '" & txtTTC.text & "' , '" & txtHT.text & "', '" & txtTVA.text & "'), con, AdopenDynamic, AdLockOptimistic"

Franchement je pensais pas que c'était aussi compliquer de faire une requete INSERT, j'ai pas eu de prob pour tout ce qui etait SELECT.