pb delete ADO

Question

Bonjour,
voila, j'ai un probleme avec ma requete "delete, peut petre me manque t'il une info pour valider ma requete je ne sais pas, et je trouve pas sur internet.

Public V_DB_Locale As Database
V_SQL_Query "DELETE from Facturation_Patient WHERE Code_RS '" & code_rs.Caption & "' AND Date_Facture_RS = '" & Text8.Text & "' AND Numero_Facture = '" & Text7.Text & "' AND Code_Patient = " & code.Caption & ""

 V_DB_Locale.Execute V_SQL_Query

--> donc ca fait rien, pourquoi?

cs_ITALIA · Answer

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim cmd As ADODB.Command

'Ouverture de la Base
cn.Provider = "Microsoft.Jet.OLEDB.3.51"
cn.ConnectionString = "C:\TaBase.mdb"
cn.Open

'Configurer la commande
cmd.ActiveConnection = cncmd.CommandText "DELETE from Facturation_Patient WHERE Code_RS '" & code_rs.Caption & "' AND Date_Facture_RS = '" & Text8.Text & "' AND Numero_Facture = '" & Text7.Text & "' AND Code_Patient = " & code.Caption & ""
    
'Configurer et ouvrir le Recordset
rs.CursorLocation = adUseClient
rs.CursorType = adOpenDynamic
rs.LockType = adLockPessimistic
rs.Open cmd

Set cn = Nothing

It@li@

cs_frop01 · Answer

essai d'afficher le resultat du variable V_SQL_Query dans un textbox avant de faire db.execute juste pour voir si c'est correct si oui alors lance la requete depuis ta base de donnée 

et vérifie si les deux captions code.Caption et code_rs.Caption ne possédent pas un & (raccourci)

 :-p   [mailto:cyberscorp2004@msn.com MSN]  :big)

Pb delete ADO

2 réponses

Discussions similaires