1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. VB.NET
Sujet Précédent Sujet Suivant

[Catégorie modifiée VB6 ->.Net] Programme qui ne marche pas

Résolu
tif27940 Messages postés 74 Date d'inscription lundi 24 janvier 2011 Statut Membre Dernière intervention 21 février 2012 - 30 déc. 2011 à 14:40
tif27940 Messages postés 74 Date d'inscription lundi 24 janvier 2011 Statut Membre Dernière intervention 21 février 2012 - 3 janv. 2012 à 09:43 
Dim nom As String
        Dim pnom As String
        Dim civ As String
        Dim tel As String
        Dim etab As String

        ' Lecture du fichier de configuration XML
        Dim i As Integer
        Dim startupPath As String
        Dim dsConfig As New DataSet
        Dim dsCommande As DataSet = New DataSet()
        Dim cSql As String


        startupPath = Assembly.GetExecutingAssembly().GetName().CodeBase

        startupPath = Path.GetDirectoryName(startupPath)

        dsConfig.ReadXml(startupPath + "" + "config.xml")

        If dsConfig.Tables.Count = 2 Then
            With dsConfig.Tables(0).Rows(0)
                configGene.databasemaillard = .Item("DATABASE-MAILLARD")
                configGene.smtphost = .Item("smtp.host")
                configGene.smtpport = .Item("smtp.port")
            End With
        End If
        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        Try

            'requete 6 mois''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

            cSql "select distinct Contact.Nom, Contact.Prenom, Contact.Civilite, Adresse.Tel, Etablissement.Etablissement from Contact, Adr_Contact, Adresse, Etablissement where Contact.Contact_Id Adr_Contact.Contact_Id and Adr_Contact.Adresse_Id=Adresse.Adresse_Id and Adresse.Adresse_Id=Etablissement.Adresse_ID and (Contact.Fonc_Id=39 or Contact.Fonc_Id=151 or Contact.Fonc_Id=108) and Contact.Contact_Id NOT IN (Select Contact_Id from Dossier where Dte_Ouverture <= dateadd(month,-6,getdate()) and Contact_Id is not null ) and Nom < > '(Décédé )' and Dte_Inactif IS NULL   order by Contact.Nom, Contact.Prenom asc; "
            Dim adapter = New OleDb.OleDbDataAdapter(cSql, configGene.databasemaillard)
            adapter.Fill(dsCommande, "list_contact")

            For i = 0 To dsCommande.Tables(0).Rows.Count - 1

                nom = Trim$(dsCommande.Tables(0).Rows(i).Item(0).ToString)
                pnom = Trim$(dsCommande.Tables(0).Rows(i).Item(1).ToString)
                civ = Trim$(dsCommande.Tables(0).Rows(i).Item(2).ToString)
                tel = Trim$(dsCommande.Tables(0).Rows(i).Item(3).ToString)
                etab = Trim$(dsCommande.Tables(0).Rows(i).Item(4).ToString)

                results = results & " " & civ & " " & nom & " " & pnom & "
 Téléphone : " & tel & "
 Etablissement : " & etab & "

"
            Next


            Dim cMsg As String
            cMsg = ""

            cMsg = "Bonjour,
"
            cMsg = cMsg & "Voici les notaires inactifs depuis 6 mois"
            cMsg = cMsg & "

" & results



            EnvoiMail("tgauthier@ciage.fr", "Etude maillard : Notaire inactif depuis 6 mois", cMsg, "tgauthier@ciage.fr")
            Console.WriteLine("Notaire inactif depuis 6 mois envoyés")



        Catch
            Console.WriteLine("Erreur dans le traitement : " & ErrorToString())
        End Try


le problème est que il va bien jusqu’à la ligne "adapter.Fill(dsCommande, "list_contact")" mais ensuite il va direct a "Console.WriteLine("Erreur dans le traitement : " & ErrorToString()" et me dit "Aucune message d'erreur disponible, code de résultat : DB_E_ERRORSOCCURRED(0x80040E21)."

je suis novice et je voit pas ou est l'erreur

merci de vos réponses
A voir également:

4 réponses

Réponse 1 / 4
tif27940 Messages postés 74 Date d'inscription lundi 24 janvier 2011 Statut Membre Dernière intervention 21 février 2012
3 janv. 2012 à 09:43
salut,

cela me mets le même message d'erreur que j'ai "Aucune message d'erreur disponible, code de résultat : DB_E_ERRORSOCCURRED(0x80040E21)"
3
Réponse 2 / 4
cs_Jack Messages postés 14007 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 79
30 déc. 2011 à 15:51
Pas bonjour non plus

Ce n'est pas du VB6 mais du VB.Net

Attention à ne pas laisser de données perso dans ces lignes (les robots se régalent à capturer les adresses mail)

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
0
Réponse 3 / 4
tif27940 Messages postés 74 Date d'inscription lundi 24 janvier 2011 Statut Membre Dernière intervention 21 février 2012
30 déc. 2011 à 15:58
bonjour,

désoler de ne peut l'avoir dit dans le premier message
0
Réponse 4 / 4
NHenry Messages postés 15048 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 19 mars 2023 156
30 déc. 2011 à 19:26
Bonjour,

Et si à la place de : 
        Catch
            Console.WriteLine("Erreur dans le traitement : " & ErrorToString())
        End Try

Tu mets : 
        Catch Ex As Exception
            Console.WriteLine("Erreur dans le traitement : " & Ex.ToString)
        End Try

ça donne quoi ?

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, ce lien ou encore celui-ci[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site
0
Rejoignez-nous