[debutant]inserer des données dans une table

**khayate** · 22/05/2007, 16h35

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** · 22/05/2007, 17h19

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** · 22/05/2007, 18h45

Envoyé par dubidon

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

+1

**olsimare** · 22/05/2007, 23h01

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** · 23/05/2007, 10h49

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** · 23/05/2007, 17h22

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** · 23/05/2007, 17h57

s'il vous plait juste un petit coup de main c'est important et urgent.merci

**khayate** · 24/05/2007, 12h01

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** · 24/05/2007, 12h29

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** · 24/05/2007, 12h42

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** · 24/05/2007, 14h11

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** · 24/05/2007, 14h23

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.

**issam_eddine** · 25/05/2007, 09h58

Excuse moi mais se que tu utilise dans les requete sql avec les crocher vb ne peut le connaite parce qu'il prend tous la requete comme une chaine de caractere qui se situe toujours entre "chaine de caractere" tu comprend mnt se que e veux dire de ça.

**loverdev** · 04/06/2007, 10h46

Voici un exemple d'ajout de données dans une table :

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
 
Imports System.Data.OleDb
Imports System.Data
Imports System.Data.OleDb.OleDbType
 
Public Class Frmajoutab
    Public sql As String
 
    Private Sub Btnvalider_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnvalider.Click
        Dim cn As New OleDb.OleDbConnection
        Dim command As OleDbCommand = New OleDbCommand("insert into Abonnement (Num_abonnement, Lib_abonnement, Date_debut_ab, Date_fin_ab, Montant_ab, Num_frs, Nom_frs) values (@numab, @libab, @Dates, @Datef, @montantab, @numfrs, @Cbxfrs) ")
 
        If Txtnumab.Text = "" Or Txtlibab.Text = "" Or Txtmontantab.Text = "" Or Txtnumfrs.Text = "" Then
            MsgBox("Vous devez saisir des valeurs non nulles.", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly)
            Exit Sub
        End If
        sql = "select count * from Abonnement where Num_abonnement ='" & Txtnumab.Text & "'"
        command.Parameters.Add(New OleDbParameter("@numab", OleDbType.Char, 50))
        command.Parameters("@numab").Value = Txtnumab.Text
        command.Parameters.Add(New OleDbParameter("@libab", OleDbType.Char, 255))
        command.Parameters("@libab").Value = Txtlibab.Text
        command.Parameters.Add(New OleDbParameter("@dates", OleDbType.Date))
        command.Parameters("@dates").Value = CType(Dates.Text, Date)
        command.Parameters.Add(New OleDbParameter("@datef", OleDbType.Date))
        command.Parameters("@datef").Value = CType(Datef.Text, Date)
        command.Parameters.Add(New OleDbParameter("@montantab", OleDbType.Decimal, 15))
        command.Parameters("@montantab").Value = MonFormat(Txtmontantab.Text, 3)
        command.Parameters.Add(New OleDbParameter("@numfrs", OleDbType.Integer, 10))
        command.Parameters("@numfrs").Value = CInt(Txtnumfrs.Text)
        command.Parameters.Add(New OleDbParameter("@cbxfrs", OleDbType.Char, 50))
        command.Parameters("@cbxfrs").Value = Cbxfrs.Text
 
        Try
            cn.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source=C:\Documents and Settings\Administrateur.STANDARD\Mes documents\Projet Budget\Budget\Budget\Marches.mdb"
            cn.Open()
            command.Connection = cn
            command.ExecuteNonQuery()
            MsgBox("Votre opération a été effectuée avec succès.", MsgBoxStyle.Information + MsgBoxStyle.OkOnly)
        Catch ex As Exception
            MsgBox("Le numéro d'abonnement existe déjà")
        Finally
            If Not (cn Is Nothing) Then
                cn.Close()
            End If
        End Try
        Me.Dispose()
        Frmprincipale.Show()
    End Sub
End Class