Discussion :

[Tchicken]

Bonjour à tous,

je suis en train de migrer mon code VB en C# ( Super outil https://github.com/icsharpcode/CodeC...ster/README.md)
je coïnce sur l'exécution d'une requête SQL avec ADODB : Comment dois-je faire s.v.p. ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
        public static void Insertions(string MyFile)
        {
            string MyString;

            // demande de connexion accessmatic
            Gestion.Cn=new ADODB.Connection();
            Gestion.Cn.Open("Provider=Microsoft.ACE.OLEDB.16.0;Data Source=ACCESSMATIC.ACCDB;Persist Security Info=True", "", "", -1);
            Gestion.Cns=new ADODB.Connection();
            Gestion.Cns.Open("Provider=Microsoft.ACE.OLEDB.16.0;Data Source=STATSHIPPODROMES.ACCDB;Persist Security Info=True", "", "", -1);
            var monStreamReader = new StreamReader(MyFile, Encoding.Latin1);
            MyString=monStreamReader.ReadLine();
            do
            {
                if (Conversions.ToBoolean(Strings.InStr(MyString, "DatesHippodromes")|Strings.InStr(MyString, "DatesChevaux")))
                {
                    Gestion.Cns.Execute(MyString);
                }
                else
                {
                    Gestion.Cn.Execute(MyString);
                }

                MyString=monStreamReader.ReadLine();
            }
            while (MyString is not null);
            monStreamReader.Close();
            Gestion.Cns.Close();
            Gestion.Cns=null;
            Gestion.Cn.Close();
            Gestion.Cn=null;
        }

[popo]

Un message d'erreur ?

[Tchicken]

Bonjour popo,
Oui à la compilation :

Gravité Code Description Projet Fichier Ligne État de la suppression
Erreur CS1501 Aucune surcharge pour la méthode 'Execute' n'accepte les arguments 1 GenTurfEvoConsole C:\NewTurf\GenTurfEvoConsole\Modules\ChargeBDD.cs 115 Actif

Je ne trouve pas comment exécuter une requête ADODB en C#
En VB pas de soucis :

Code VB :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
    Public Shared Sub Insertions(MyFile As String)
        Dim MyString As String
 
        'demande de connexion accessmatic
        Gestion.Cn = New ADODB.Connection
        Gestion.Cns = New ADODB.Connection
        Gestion.Cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.16.0;Data Source=ACCESSMATIC.ACCDB;Persist Security Info=True"
        Gestion.Cns.ConnectionString = "Provider=Microsoft.ACE.OLEDB.16.0;Data Source=STATSHIPPODROMES.ACCDB;Persist Security Info=True"
        Gestion.Cn.Open()
        Gestion.Cns.Open()
 
        Dim monStreamReader As New StreamReader(MyFile, Encoding.Latin1)
        MyString = monStreamReader.ReadLine()
        Do
            If InStr(MyString, "DatesHippodromes") Or InStr(MyString, "DatesChevaux") Then
                Gestion.Cns.Execute(MyString)
            Else
                Gestion.Cn.Execute(MyString)
            End If
            MyString = monStreamReader.ReadLine()
        Loop Until MyString Is Nothing
 
        monStreamReader.Close()
 
        Gestion.Cns.Close()
        Gestion.Cns = Nothing
        Gestion.Cn.Close()
        Gestion.Cn = Nothing
 
    End Sub

[popo]

Ton message d'erreur est tronqué

[Tchicken]

J'ai trouvé une solution en changeant ADODB en OleDB :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
        public static void Insertions(string MyFile)
        {
            string MyString;
 
            // demande de connexion accessmatic
            OleDbConnection cn = new OleDbConnection(@"Provider=Microsoft.ACE.OLEDB.16.0;Data Source=ACCESSMATIC.ACCDB");
            OleDbConnection cns = new OleDbConnection(@"Provider=Microsoft.ACE.OLEDB.16.0;Data Source=STATSHIPPODROMES.ACCDB");
            var monStreamReader = new StreamReader(MyFile, Encoding.Latin1);
            MyString=monStreamReader.ReadLine();
            do
            {
                if (Conversions.ToBoolean(Strings.InStr(MyString, "DatesHippodromes")|Strings.InStr(MyString, "DatesChevaux")))
                {
                    try
                    {
                        OleDbCommand cmd = new OleDbCommand(MyString, cns);
                        cns.Open();
                        cmd.ExecuteNonQuery();
                    }
                    catch (
                    SqlException se)
                    {
                        Console.WriteLine(se.Message);
                    }
 
                    finally { cns.Close(); }
                }
                else
                {
                    try
                    {
                        OleDbCommand cmd = new OleDbCommand(MyString, cn);
                        cn.Open();
                        cmd.ExecuteNonQuery();
                    }
                    catch (
                    SqlException se)
                    {
                        Console.WriteLine(se.Message);
                    }
 
                    finally { cn.Close(); }
                }
                MyString=monStreamReader.ReadLine();
            }
            while (MyString is not null);
            monStreamReader.Close();
            Gestion.Cns.Close();
            Gestion.Cns=null;
            Gestion.Cn.Close();
            Gestion.Cn=null;
        }