connexion accès sous vb+ imprimer document

Question

Salut tout le monde
Voila, j'ai 2 soucis majeurs:

> Je programme en VB 6.0, et je n'arrive pas a me connecter &#224; la base de donn&#233;e cr&#233;e sous acc&#232;s 2000.Qd je lance le programme, il m'indique qu'elle est introuvable.Je souhaite juste enregistrer des contenus de textsboxxs dans cette base (rien de tr&#232;s compliqu&#233;....mais bon, d&#233;butant d&#233;butant). Cela m'ennuie assez fortement.
Quelqu'un pourrait me dire les lignes de commande &#224; ex&#233;cuter

>Le second probl&#232;me est au niveau de l'impression d'une fiche word. En fait, quand je click sur un bouton imprimer,  les champs remplis dans mes textboxs se mettent bien aux signets pr&#233;vus dans word &#224; cet effet. J'arrive &#233;galement &#224; cacher l'ouverture de word, mais il ne veux pas imprimer.Il me demande avant d'enregistrer sous le document.Hors, je veux uniquement imprimer cete fiche.
Need help, merci d'avance

cs_DARKSIDIOUS · Answer

Ben dis nous comment tu fais pour acc&#232;der &#224; ta base de donn&#233;es pour qu'on puisse voir ce qui cl&#244;che...



Il existe beaucoup de source &#224; ce sujet tu sais.

_____________________________________________________________________

rhumanuss · Answer

Et bien le code pour enregistrer dans ma base donne a peu pr&#232;s ca:


    Set db = OpenDatabase("IGDEVIS2.mdb")
    
    'appelle de la procedure de verification pr savoir si la fiche est apte a etre enregistr&#233; ou non
    SQL = "SELECT * FROM CLIENT"
    Set rs = db.OpenRecordset(SQL)
    If rs.RecordCount > 0 Then
        rs.MoveFirst
        While Not rs.EOF
            If rs.Fields("N_CLIENT") = Txt_AjoutClient_Numero.Text Then
                nouvelle_fiche_client = False
            End If
        rs.MoveNext
        Wend
    End If
   rs.Close


        If nouvelle_fiche_client = True Then
        'la fiche n'existe pas
            SQL = "INSERT INTO CLIENT [( N_CLIENT, CIVILITE_CLIENT, NOM_CLIENT, PRENOM_CLIENT, N_RUE_CLIENT, RUE_CLIENT, CODE_POSTAL_CLIENT, VILLE_CLIENT, TELEPHONE_CLIENT, LISTE_ROUGE_CLIENT, PORTABLE_CLIENT, FAX_CLIENT, EMAIL_CLIENT VALUES (Txt_AjoutClient_Numero.text, Comb_AjoutClient_Civilite.text, Txt_AjoutClient_Nom.text, Txt_AjoutClient_Prenom.text,  Text_AjoutClient_NumeroRue.text, Txt_AjoutClient_Rue.text, Txt_AjoutClient_Codepostal.text, Txt_AjoutClient_Ville.text, Txt_AjoutClient_Tel.text, Check_AjoutClient_Listerouge.value, Txt_AjoutClient_Portable.text, Txt_AjoutClient_Fax.text, Txt_AjoutClient_Mail.text)"
            With rs
            Set rs = db.OpenRecordset(SQL)
            
            .AddNew
            .Fields("CIVILITE_CLIENT") = Comb_AjoutClient_civilit&#233;.Text
            .Fields("NOM_CLIENT") = Txt_AjoutClient_Nom.Text
            .Fields("PRENOM_CLIENT") = Txt_AjoutClient_Prenom.Text
            .Fields("N_RUE_CLIENT") = Txt_AjoutClient_NumeroRue.Text
            .Fields("RUE_CLIENT") = Txt_AjoutClient_Rue.Text
            .Fields("CODE_POSTAL_CLIENT") = Txt_AjoutClient_Codepostal.Text
            .Fields("VILLE_CLIENT") = Txt_AjoutClient_Ville.Text
            .Fields("TELEPHONE_CLIENT") = Txt_AjoutClient_Tel.Text
            .Fields("PORTABLE_CLIENT") = Txt_AjoutClient_Portable.Text
            .Fields("FAX_CLIENT") = Txt_AjoutClient_Fax.Text
            .Fields("EMAIL_CLIENT") = Txt_AjoutClient_Mail.Text
            .Update
            .Close
            End With


       ' End If

cs_DARKSIDIOUS · Answer

Hum, pourquoi faire une requ&#234;te d'insertion si c'est pour ensuite ins&#233;rer un nouveau champ par le code ?



De plus, il faut que le chemin d'acc&#232;s &#224; ta base de donn&#233;es soit
complet. Par exemple, s'il ta base de donn&#233;es est dans le dossier de
ton application :



Set db = OpenDatabase(App.path & "\IGDEVIS2.mdb")
    
    'appelle de la procedure de verification pr savoir si la fiche est apte a etre enregistr&#233; ou non
    SQL = "SELECT * FROM CLIENT"
    Set rs = db.OpenRecordset(SQL)
    If rs.RecordCount > 0 Then
        rs.MoveFirst
        While Not rs.EOF
            If rs.Fields("N_CLIENT") = Txt_AjoutClient_Numero.Text Then
                nouvelle_fiche_client = False
            End If
        rs.MoveNext
        Wend
    End If
   rs.Close 
        If nouvelle_fiche_client = True Then
        'la fiche n'existe pas
           
SQL = "SELECT * FROM CLIENT"
            With rs
            Set rs = db.OpenRecordset(SQL)
            
            .AddNew
            .Fields("CIVILITE_CLIENT") = Comb_AjoutClient_civilit&#233;.Text
            .Fields("NOM_CLIENT") = Txt_AjoutClient_Nom.Text
            .Fields("PRENOM_CLIENT") = Txt_AjoutClient_Prenom.Text
            .Fields("N_RUE_CLIENT") = Txt_AjoutClient_NumeroRue.Text
            .Fields("RUE_CLIENT") = Txt_AjoutClient_Rue.Text
           
.Fields("CODE_POSTAL_CLIENT") = Txt_AjoutClient_Codepostal.Text
            .Fields("VILLE_CLIENT") = Txt_AjoutClient_Ville.Text
            .Fields("TELEPHONE_CLIENT") = Txt_AjoutClient_Tel.Text
            .Fields("PORTABLE_CLIENT") = Txt_AjoutClient_Portable.Text
            .Fields("FAX_CLIENT") = Txt_AjoutClient_Fax.Text
            .Fields("EMAIL_CLIENT") = Txt_AjoutClient_Mail.Text
            .Update
            .Close
            End With


 
        End If


Enfin, je te conseille d'utiliser ADO &#224; la place de DAO, qui commence &#224;
dater, et qui n'est pas forc&#233;ment compatible avec les derniers formats
de bases de donn&#233;es.

_____________________________________________________________________

rhumanuss · Answer

Je ne sais pas ce qu'est ADO, comment on l'active.lol. J'ai activ&#233; microsoft DAO 3.51 Object Library.

Je souhaite acc&#233;der &#224; une base acc&#232;s 2000, mais il ne reconnait pas le format. Je l'ai donc convertie en 97, et d&#233;sormais, quand je click sur enregistrer, il me marque une op&#233;ration non valide sur la commande 
set rs = db.OpenRecordset(SQL,dbOpenDynaset)

J'avoue que je ne comprend pas grand chose au probl&#232;me.

Connexion accès sous vb+ imprimer document

4 réponses

Discussions similaires