Discussion :

[khayate]

bonjour,
voila il faut que j'insere des données dan une table Tombee après les avoir recupérée d'une autre Table Historique_courriers et voila le debut de mon code
je sais que j'ai plusieurs erreurs c'est pour ca que je vous demande de m'aider

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
Option Explicit On
Imports System.Data.SqlClient
Imports Microsoft.VisualBasic
Imports System
Imports System.Text
Imports System.CodeDom.Compiler
Imports System.Reflection
Imports System.Data
Imports Oracle.DataAccess.Client
Imports Oracle.DataAccess.Types
Module CodeFile1
    Function Tombee(ByVal imodule As String) As DataTable
        Dim connectionSQL As New SqlConnection
        Dim conn As New OracleConnection
        Dim TableTombee As SqlDataAdapter()
 
        connectionSQL.Open()
        TableTombee = "Tombee"
 
        TableTombee.insert("insert into Tombee(CODCLI,NUMCRE,NUMTIR)  SELECT CODCLI,NUMCRED,NUMTIR from HISTORIQUES_COURRIERS")
        executeRequete("SELECT ECHGLOB*1 ,AMORTISS*1 ,INTERETS*1 as ECHOGLOB ,AMORTISST ,INTERET from HISTOIQUES_COURRIERS where TOMBEE.CODCLI=HISTORIQUES_COURRIERS.CODCLI")
        connectionSQL.Close()
........

merci de votre aide

[dubidon]

Je suis pas un pro, mais a mon avis tu devrais utiliser deux objet commande auxquels tu attribut tes requêtes.

Le premier s'occupera du select et le deuxieme de l'insert, et il suffira de passer les paramètres du premier au deuxieme dans ton code si cela est possible directement, je ne l'ai jamais fait

pour la déclaration d 'un objet commande :

Code :

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

1
2
 
Dim command As SqlCommand = New SqlCommand("Insert ...)

mais je pense que d'autres pourront confirmer ou infirmer mes dires

bon courage

@++
dubidon

[SaumonAgile]

mais je pense que d'autres pourront confirmer ou infirmer mes dires

+1

[olsimare]

Bonjour.

A mon avis, tu devrais commencer par le commencement...

Du genre passer 10 minutes sur les tutoriels, tu gagnerais du temps et je pense et tu devrais trouver ce qu'il te faut assez facilement.

Cdt.

[Aspic]

Pour inserer des données dans une table y'a 10 000 codes deja sur le net qui te l'explique... et plein sur DVP. Il suffit d'utiliser la commande SQL suivante :

Code :

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

1
2
'syntaxe de la command insert
INSERT INTO Nom_De_Ta_Table (Champ1, Champ 2, .... Champ n) VALUES (Valeur1, Valeur2, ... Valeur n)

Cdl

[khayate]

esque ce code est meilleur:

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
Module CodeFile1
    Function TaTombee(ByVal Historiques_Courriers As String, ByVal EVENEMNT As String) As DataTable
 
        Dim connectionSQL As New SqlConnection
        Dim Mycommand As SqlCommand
        Dim maRequeteSql As String
        Dim conn As New OracleConnection
        Dim maRequeteOracle As String
        Dim TOMBEE As New SqlDataAdapter()
 
 
        Mycommand = New SqlCommand("delete from TOMBEE,insert into TOMBEE(CODCLI,NUMCRE,NUMTIR)  SELECT CODCLI,NUMCRED,NUMTIR from HISTORIQUES_COURRIERS")
        maRequeteSql = "SELECT ECHGLOB*1 ,AMORTISS*1 ,INTERETS*1 as ECHOGLOB ,AMORTISST ,INTERET from HISTOIQUES_COURRIERS where TOMBEE.CODCLI=HISTORIQUES_COURRIERS.CODCLI"
        Mycommand = New SqlCommand(maRequeteSql)
 
 
        Dim cmd As New OracleCommand
        cmd.Connection = conn
        cmd.CommandType = CommandType.Text
        cmd.CommandText = "insert into TOMBEE(CODCLI,NUMCRE) select EVENT_CLIENT,EVENT_CREDIT from EVENEMNT"
        maRequeteOracle = "select EVENMT_MONTANT*-1 as EVENMT_MONTANT from EVENEMNT where EVENEMNT.EVENMT_CLIENT= TOMBEE.EVENMT_CLIENT"

normalment le but c'est de rassembler des colonnes d'un tabaleau HISTORIQUES_COURRIERS qui est dans une base SQL et d'autres colonnes d'un tableau EVENEMNT qui est lui dans une base oracle et ensuite comprarer des données ,je n'ai pas encore fini le code mais je voulais savoir si jete sur le bon chemin merci de votre aide

[khayate]

bonjour c'est encore moi:voila j'ai fini le programme et bien sur comme il est cerit sur le topic je suis debutant voila mon code:

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
53
Imports System.Data.SqlClient
Imports Microsoft.VisualBasic
Imports System
Imports System.Text
Imports System.CodeDom.Compiler
Imports System.Reflection
Imports System.Data
Imports Oracle.DataAccess.Client
Imports Oracle.DataAccess.Types
Module CodeFile1
    Function TaTombee(ByVal Historiques_Courriers As String, ByVal EVENEMNT As String) As DataTable
 
        Dim connectionSQL As New SqlConnection
        Dim Mycommand As SqlCommand
        Dim maRequeteSql As String
        Dim conn As New OracleConnection
        Dim maRequeteOracle As String
        Dim TOMBEE As New SqlDataAdapter()
 
 
        connectionSQL.Open()
        Mycommand = New SqlCommand("delete from TOMBEE,insert into TOMBEE(CODCLI,NUMCRE,NUMTIR)  SELECT CODCLI,NUMCRED,NUMTIR from HISTORIQUES_COURRIERS")
        maRequeteSql = "SELECT ECHGLOB * 1 ,AMORTISS * 1 ,INTERETS * 1 as ECHOGLOB ,AMORTISST ,INTERET from HISTOIQUES_COURRIERS where TOMBEE.CODCLI=HISTORIQUES_COURRIERS.CODCLI"
        Mycommand = New SqlCommand(maRequeteSql)
        connectionSQL.Close()
 
 
        Dim cmd As New OracleCommand
        conn.Open()
        cmd.Connection = conn
        cmd.CommandType = CommandType.Text
        cmd.CommandText = "insert into TOMBEE(CODCLI,NUMCRE) select EVENT_CLIENT,EVENT_CREDIT from EVENEMNT"
        maRequeteOracle = "select EVENMT_MONTANT * -1 as EVENMT_MONTANT from EVENEMNT where EVENEMNT.EVENMT_CLIENT= TOMBEE.EVENMT_CLIENT"
        Mycommand = New SqlCommand(maRequeteOracle)
        conn.Close()
 
        Dim SOMME As New DataColumn()
        SOMME.ColumnName = "SOMM"
        SOMME.DataType = GetType(Double)
        SOMME.Expression = "select sum (ECHGLOB + EVENMT_MONTANT) as SOMM from TOMBEE where TOMBEE.CODCLI=TOMBEE.EVENMT_CLIENT "
 
 
        Dim sum As Double
        sum = "select SOMM from TOMBEE"
        If sum <> 0 Then
            Console.WriteLine("il ya un ecart")
 
        Else
            Console.WriteLine("il n'ya pas d'ecart")
        End If
 
    End Function
End Module

je voulais sa coir eske pour vous ki etes certainement plus fort,ce code peut marcher,en gros je voudrais savoir ce ke vous en pensez.

[issam_eddine]

Excuse moi mas j'ai lue ton code j'ai trouver une command qui permet de executer les requete que tu ecris alors je te conseil de faire
comme tu as etuliser
Dim TOMBEE As New SqlDataAdapter()pourquoi tu l'a pas etuliser
a mon avis il te foudra que tu fais
TOMBEE = New SqlDataAdapter(mycommand)
mais si tu veux faire ces requette direct dans la base de donne il te faut faire
cmd.executenonquery()

c'est ça mon point de vue alors essaie tu veras ça et choisi se que tu veux

[khayate]

le probleme c'est kan je mets:
TOMBEE = New SqlDataAdapter(mycommand)
il me met kil y'a une erreur et kil faut ke je declare TOMBEE alors que TOMBEE est une table qui existe deja dans ma base de donnée.

[issam_eddine]

si tu veux faire comme ça il faut que tu enleve le new du premier instruction et le mettre comme tu as fait dernierment

[khayate]

kan j'enleve le new,il me dit ke j'utilise pas la variable TOMBEE alors ke je l'utlise dans mes requete SQl comme c'est ecrit dans le code;je sais pas koi faire.