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

Version imprimable

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:

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

06/07/2008, 19h25
bidou

Après il faut une autre requête (Command) pour insérer les valeurs dans l'autre table
06/07/2008, 19h27
solid_sneak06

Citation:

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
06/07/2008, 19h32
bidou

Avec un paramètre
06/07/2008, 19h36
solid_sneak06

Citation:

Envoyé par bidou

Avec un paramètre

oui mais comment?

un exemple tiré de MSDN

Code:

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()

Citation:
Envoyé par bidou
un exemple tiré de MSDN
Code:

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!!!

06/07/2008, 20h27
bidou

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.

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:

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

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

Si c'est le cas tu devra prendre ceci :

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
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.