|
| Iniciado por jean.hamelin, 27,oct. 2004 02:54 - No hay respuesta |
| |
| | | |
|
| |
| Publicado el 27,octubre 2004 - 02:54 |
J'envoie un bout de code SQL sous VB.
J'essai de traduire sous Windev mais j'ai quelques problemes.
Quelqu'un peut me renseigner SVP.
Merci !!!!
/////////////////////////////////////////////////////////////////////////////////////////////////////
Private Error As Long
Dim cnn As New ADODB.Connection
Dim rstTransactionHeader As New ADODB.Recordset
Private Sub Command1_Click()
'Déclaration des variables
cnn.ConnectionString "DSN¬OMBA;DBQ=c:\f1000.dta\demo;UID=supervisor;PWD=demo"
cnn.CursorLocation = adUseClient
cnn.Open
'**********************************************************
'Étape 1 : Initialiser les propriétés de l'en-tête de la
' facturation
'**********************************************************
cnn.Execute ("BEGIN_TRANSACTION_IN")
rstTransactionHeader.Open "SELECT * FROM TransactionHeader", cnn, adOpenKeyset, adLockOptimistic
rstTransactionHeader.AddNew
'La facturation est de type facture
rstTransactionHeader!InInvoiceType = 1
rstTransactionHeader!InReference = "PO-3087"
rstTransactionHeader!InDescription = Date & " " & Now()
rstTransactionHeader!InCurrentDay = 1
rstTransactionHeader!InTransactionActive = 1 |
| |
| |
| | | |
|
| | | | |
| | |
|