copier des données entre deux table access (vb2005)

**solid_sneak06** · 06/07/2008, 18h15

voila, je veux fais faire un copier coller d'une colonne (n_facture) de la table "D_F", vers la table "numero" mais je c pas comment faire.

voila ce que j'ai pu faire, je sais pas quoi faire après

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
 
Imports System
Imports System.Data
Imports System.Data.OleDb
Imports Microsoft.VisualBasic
 
 
Public Class Form1
    Dim cnn1, cnn2 As New OleDb.OleDbConnection
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cnn1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\~~\Bureau\BP\facturation.mdb;Persist Security Info=False"
        cnn2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\~~\Bureau\BP\tmp.mdb;Persist Security Info=False"
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        cnn1.Open()
        Dim sqlcomand As New OleDb.OleDbCommand
        sqlcomand.Connection = cnn1
        sqlcomand.CommandText = "select n_facture from D_F GROUP BY n_facture"
        Dim resultat = sqlcomand.ExecuteScalar
    End Sub
End Class

help

**bidou** · 06/07/2008, 19h25

Après il faut une autre requête (Command) pour insérer les valeurs dans l'autre table

**solid_sneak06** · 06/07/2008, 19h27

Envoyé par bidou

Après il faut une autre requête (Command) pour insérer les valeurs dans l'autre table

merci pour ta reponse mais je c qu'il faut un insert mais comment je vais metre le resultat dans ce INSERT??
merci

**bidou** · 06/07/2008, 19h32

Avec un paramètre

**solid_sneak06** · 06/07/2008, 19h36

Envoyé par bidou

Avec un paramètre

oui mais comment?

**bidou** · 06/07/2008, 20h10

un exemple tiré de MSDN

Code :

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

1
2
3
4
5
6
command = New OleDbCommand( _
        "INSERT INTO Customers (CustomerID, CompanyName) " & _
        "VALUES (?, ?)", connection)
command.Parameters.Add("CustomerID", OleDbType.Char, 5, "CustomerID")
command.Parameters.Add("CompanyName", OleDbType.VarChar, 40, "CompanyName")
command.ExecuteNonQuery()

**solid_sneak06** · 06/07/2008, 20h16

Envoyé par bidou

un exemple tiré de MSDN

Code :

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

1
2
3
4
5
6
command = New OleDbCommand( _
        "INSERT INTO Customers (CustomerID, CompanyName) " & _
        "VALUES (?, ?)", connection)
command.Parameters.Add("CustomerID", OleDbType.Char, 5, "CustomerID")
command.Parameters.Add("CompanyName", OleDbType.VarChar, 40, "CompanyName")
command.ExecuteNonQuery()

Merci mais je vois pas où est le rapport! ce code permet de faire un INSERT simple et cela je sais le faire; mon problème c'est comment insérer les données que j'ai exporter de ma table de base!!!

**bidou** · 06/07/2008, 20h27

sensiblement il n'y a que deux méthodes, injecter les données une à une à l'aide d'une commande, injecter toutes les données avec un dataset et un dataadapter ce qui reviendra au même tout en utilisant inutilement un dataset et un dataadapter. Il n'existe pas de commande SQL magique pour coller un morceau de table dans un autre.

**peregna2007** · 12/07/2008, 13h10

Bonjour,

J'ai essayé de faire quelque chose pour toi mais je n'ai pas eu le temps de tester. Seulement je peux te dire que je l'ai déjà fait et ça marche.
Dans ce que que je te propose, je suppose que dans ta deuxième base de données, se trouve la table D_F avec le champ n_facture.

Voici donc la recette à ton problème.

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
Imports System.Data
Imports System.Data.OleDb
Imports Microsoft.VisualBasic
Public Class Form1
 
Dim cnn1, cnn2 As New OleDb.OleDbConnection
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
cnn1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\~~\Bureau\BP\facturation.mdb;Persist Security Info=False"
cnn2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\~~\Bureau\BP\tmp.mdb;Persist Security Info=False"
End Sub
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim custConn As OleDb.OleDbConnection = New OleDb.OleDbConnection(connectstr)
Dim sqlcomand1 As New OleDb.OleDbCommand
Dim sqlcomand2 As New OleDb.OleDbCommand
Dim LeRead As OleDb.OleDbDataReader
Dim LeNFacture As String
 
 
'On ouvre la premiere connection
cnn1.Open()
'On ouvre la deuxieme connection
cnn2.Open()
 
'NB: j'ouvre en même temps la deuxieme connection ici car les ouvertures
' et les fermetures de connection prennent du temps.
' c'est donc pour optimiser le tps
 
sqlcomand1.Connection = cnn1
sqlcomand1.CommandType = CommandType.Text
sqlcomand1.CommandText = "select n_facture from D_F GROUP BY n_facture"
LeRead = sqlcomand1.ExecuteReader()
Do While LeRead.Read
LeNFacture = LeRead!n_facture
'On rentre la deuxieme connection
'cnn2.Open()
 
sqlcomand2.Connection = cnn2
sqlcomand2.CommandType = CommandType.Text
sqlcomand2.CommandText = " INSERT INTO D_F (n_facture) VALUES ('" & LeNFacture & "')"
sqlcomand2.ExecuteNonQuery()
 
'cnn2.Close()
Loop
 
LeRead.Close()
cnn1.Close()
cnn2.Close()
 
End Sub
End Class

**peregna2007** · 12/07/2008, 13h20

Je n'avais pas vu que ta deuxième table se nommait NUMERO.

Si c'est le cas tu devra prendre ceci :

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
Imports System.Data
Imports System.Data.OleDb
Imports Microsoft.VisualBasic
Public Class Form1
 
Dim cnn1, cnn2 As New OleDb.OleDbConnection
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
cnn1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\~~\Bureau\BP\facturation.mdb;Persist Security Info=False"
cnn2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\~~\Bureau\BP\tmp.mdb;Persist Security Info=False"
End Sub
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim custConn As OleDb.OleDbConnection = New OleDb.OleDbConnection(connectstr)
Dim sqlcomand1 As New OleDb.OleDbCommand
Dim sqlcomand2 As New OleDb.OleDbCommand
Dim LeRead As OleDb.OleDbDataReader
Dim LeNFacture As String
 
 
'On ouvre la premiere connection
cnn1.Open()
'On ouvre la deuxieme connection
cnn2.Open()
 
'NB: j'ouvre en même temps la deuxieme connection ici car les ouvertures
' et les fermetures de connection prennent du temps.
' c'est donc pour optimiser le tps
 
sqlcomand1.Connection = cnn1
sqlcomand1.CommandType = CommandType.Text
sqlcomand1.CommandText = "select n_facture from D_F GROUP BY n_facture"
LeRead = sqlcomand1.ExecuteReader()
Do While LeRead.Read
LeNFacture = LeRead!n_facture
'On rentre la deuxieme connection
'cnn2.Open()
 
sqlcomand2.Connection = cnn2
sqlcomand2.CommandType = CommandType.Text
sqlcomand2.CommandText = " INSERT INTO NUMERO (n_facture) VALUES ('" & LeNFacture & "')"
sqlcomand2.ExecuteNonQuery()
 
'cnn2.Close()
Loop
 
LeRead.Close()
cnn1.Close()
cnn2.Close()
 
End Sub
End Class

J'espère que cela pourra t'aider à avancer.

copier des données entre deux table access (vb2005)

VB.NET

Discussions similaires

Partager

Partager