[debutant]inserer des données dans une table

Version imprimable

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:

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

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

1 2 Dim command As SqlCommand = New SqlCommand("Insert ...)
mais je pense que d'autres pourront confirmer ou infirmer mes dires

bon courage

@++
dubidon
22/05/2007, 18h45
SaumonAgile

Citation:

Envoyé par dubidon

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

+1
22/05/2007, 23h01
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.
23/05/2007, 10h49
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:

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

esque ce code est meilleur:

Code:

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

23/05/2007, 17h57
khayate

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

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:

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.

24/05/2007, 12h29
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
24/05/2007, 12h42
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.
24/05/2007, 14h11
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
24/05/2007, 14h23
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.
25/05/2007, 09h58
issam_eddine

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.

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

Code:

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

j'espère que ca t'aidera 8-)

06/06/2007, 00h57
Paul Van Walleghem

Merci

:salut:

Je te remercie beaucoup pour ton bout de code. Enfin des consignes claires et limpides!!!
06/06/2007, 09h02
loverdev

A votre service :king: