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