programmer vb6 bdd 
Author Message
 programmer vb6 bdd

je debute sur VB6 et je n'arrive pas modifier les valeurs access.

je doit certainement me planter quelque part.

Je te joint une partie du code, le probleme se situe tout a la fin, si tu as
5 minutes me consacrer cela m'oterai une sacr epine du pied.

par avance merci

seb

Public cn As New ADODB.Connection
Public cmd As New ADODB.Command
Public prm As New ADODB.Parameter
Public prm2 As New ADODB.Parameter
Public cmd2 As New ADODB.Command
Public prm3 As New ADODB.Parameter
Public cmd3 As New ADODB.Command
Public fMainForm As fMainForm

Sub ouverture_connection()

         Screen.MousePointer = vbHourglass

    'cre une connection
        Set cn = New Connection
        cn.Open "DSN=donnees stock", adOpenDynamic, adLockOptimistic

    'cre une recordset
        Dim cs As New Recordset

    'lie la connection
        Set cs.ActiveConnection = cn

    'interroge la base
        cs.Open "select [N COMPTEUR CS] from BASE_CS"

    'remplit la liste
        Do While Not cs.EOF
            entree1.List1.AddItem cs("N COMPTEUR CS")
            cs.MoveNext
        Loop
    'ferme
        cs.Close

    'prepare la commande info CS
        Set cmd = New Command

            Set cmd.ActiveConnection = cn
            cmd.CommandText = "select [DATE], [FAMILLE]" & _
            ", [QTE APPROVISIONNEMENT] from BASE_CS where [N COMPTEUR CS] =
?"
            cmd.Prepared = True

    'prepare le parametre info CS
        Set prm = cmd.CreateParameter(, adBSTR)
        cmd.Parameters.Append prm

    'prepare la commande info QUANTITE
        Set cmd2 = New Command

            Set cmd2.ActiveConnection = cn
            cmd2.CommandText = "select [STOCK PHYSIQUE], [STOCK VIRTUEL]" &
_
            " from BASE_FAMILLE where [FAMILLE] = ? "
            cmd2.Prepared = True

    'prepare le parametre info QUANTITE
        Set prm2 = cmd2.CreateParameter(, adBSTR)
        cmd2.Parameters.Append prm2

        Screen.MousePointer = vbDefault

        entree1.Show

End Sub

Sub valid_entree_cs()
        Dim stp2 As Long
        Dim stv2 As Long

        stp2 = CLng(entree1.Text7)
        stv2 = CLng(entree1.Text8)

        Set cmd3 = New Command

            Set cmd3.ActiveConnection = cn
            cmd3.CommandText = "select [STOCK PHYSIQUE], [STOCK VIRTUEL]" &
_
            " from BASE_FAMILLE where [FAMILLE] = ? "
            cmd3.Prepared = True

    'prepare le parametre info QUANTITE
        Set prm3 = cmd3.CreateParameter(, adBSTR)
        cmd3.Parameters.Append prm3

       'valorise le parametre QUANTITE
        prm3.Value = entree1.Text2.Text
        prm3.Size = Len(entree1.Text2.Text)

    'execute la requete QUANTITE
        Dim cs3 As New ADODB.Recordset
        Set cs3 = cmd3.Execute
        Dim stock As Long
        stock = cs3![STOCK PHYSIQUE]
*********************************
        cs3![STOCK PHYSIQUE] = stock + stp2
                                    erreur d'execution 3251
                                    l'operation demande n'est pas prise en
charge par le fournisseur
        cs3.Update
   **********************************************************
End Sub



Fri, 01 Jul 2005 21:45:19 GMT
 
 [ 1 post ] 

 Relevant Pages 

1. URGENT ! Pb de restauration de BDD MASTER

2. URGENT .!. Recuperation d'une Bdd

3. Urgent - Récupération d'une Bdd

4. Attach an other bdd to sql serveur

5. Urgent ... Recuperation d'une bdd

6. More one BDD

7. Pb avec explorateur BDD

8. VB6 / OLAP Programmer needed - SF Bay Area

9. Job for professional VB6 programmer

10. (510) ISO Co-programmer VB6 (just for fun and to learn together)

11. programmer new to VB6/Access, a hint please!

12. Wanted: VB6 Programmer in Sydney,Australia


 
Powered by phpBB® Forum Software