Discussion :

[jibou]

Bonjour à tous,

J'ai un problème tout simple que j'aimerais résoudre à l'aide de VB Express Edition. Je pratique ADO depuis longtemps et je n'ai jamais fait le pas de passer à ADO.NET. Mais là je suis super motivé alors j'ai cherché la soluce à ce truc de newbie un peu près partout, hélas sans succès.

Basiquement, j'ai une table Access généré par un logiciel de supervision industrielle (PCVUE), dont j'aimerais transférer le contenu, à intervalle régulier (à l'aide du task scheduler), dans un serveur SQL express que je viens d'installer. En ado pas de problème c'est facile, je l'ai fait en 2 coups de cuillères à pot et ça marche. Mais en ADO.NET, je ne sais pas quoi utiliser (datareader, dataadapter, datatable, datasets, je suis perdu...).

Les tables ont la même structure et l'enregistrement dans la table ACCESS doit être supprimé. Merci d'avance pour votre aide.

Jibou.

[The_badger_man]

En ADO ça donne quoi ?

[JPelli]

Bonsoir,
C'est pas simple car ado.net est totalement différent de ado.
en bref
il faut un objet connection pour te connecter à ta source
Pour extraire les données il faut un dataadapter ou un datareader
si tu veux afficher les enregistrements il faut un dataset et un datagridview

Pour envoyer dans sql il te faut une connection
et au minimum un objet command.

le plus simple serait d'utiliser les assistants qui vont créer connection, dataadapter et dataset.

Je peux t'envoyer des exemples.
Jean

[jibou]

Merci de vos réponses. Mes deux tables ont la même structure et je veux uniquement faire un programme de type console qui sera lancé à intervalle régulier sur un serveur.

En ado, ça me donnerait basiquement (je vous filtre les gestions d'erreur):

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
dim cnSource as new adodb.connection
dim cnDestination as new adodb.connection
dim rsSource as new adodb.recordset
dim rsDestination as new adodb.recordset
 
cnSource.open strChaineConnectionSource
cnDestination.open strChaineConnectionDestination
 
rsSource.open "SELECT * FROM tblSource", cnSource, adopenstatic, adlockoptimistic
 
rsDestination.open "SELECT * FROM tblDestination", cnDestination, adopenstatic, adlockoptimistic
 
 
do until rsSource.eof<div style="margin-left:40px">rsDestination.addnew</div><div style="margin-left:40px">rsDestination(0)=rsSource(0)</div><div style="margin-left:40px">rsDestination(1)=rsSource(1)</div><div style="margin-left:40px">rsDestination(2)=rsSource(2)</div>...<div style="margin-left:40px">rsSource.delete</div><div style="margin-left:40px">rsSource.movenext</div>loop
 
rsDestination.update
rsDestination.close
rsSource.update
rsSource.close
 
cnSource.close
cnDestination.close

[JPelli]

Bonjour,
en ado.net

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
54
55
56
57
 
    Dim cnSource As New SqlClient.SqlConnection
    Dim SCmd As String
    Dim SQLCMD As New SqlClient.SqlCommand
    Dim SQLRDR As SqlClient.SqlDataReader
    Dim DS As New DSBd 'remplacer par le nomdu dataset créé avec l'assistant
    Dim DTAR As DataRow
    Dim SQLDA As SqlClient.SqlDataAdapter 'Utiliser le dataadapter créé avec l'assistant
    Dim NbMaj As Integer        'nombre de mise à jour
    ' Dim cnDestination As New adodb.connection
    'Dim rsSource As New adodb.recordset
    'Dim rsDestination As New adodb.recordset
    'Pour les recordsets , créer avec l'assistant le dataset et datatable, les commandes de mise à jour seront générées automatiquement
    cnSource.ConnectionString = "chaine de connection suivant le type de BDR"
    cnSource.Open()
    SCmd = "SELECT * FROM tblSource"
    'rsSource.open("SELECT * FROM tblSource", cnSource, adopenstatic, adlockoptimistic)
    SQLCMD.CommandText = SCmd
    SQLCMD.CommandType = CommandType.Text
    SQLCMD.Connection = cnSource
    SQLRDR = SQLCMD.ExecuteReader(CommandBehavior.CloseConnection)
    'rsDestination.open("SELECT * FROM tblDestination", cnDestination, adopenstatic, adlockoptimistic)
    'Do Until rsSource.eof
    'boucle sur les enregistrements du datareader et ajoute chaque enregistrements dans la table du dataset
    While SQLRDR.Read
      'rsDestination.addnew()
      'rsDestination(0) = rsSource(0)
      'rsDestination(1) = rsSource(1)
      'rsDestination(2) = rsSource(2)
      'rsSource.delete()
      'rsSource.movenext()
      DTAR = DS.Albums.NewRow
      DTAR.Item(0) = SQLRDR.GetString(0) 'suivant le type de données
      DTAR.Item(1) = SQLRDR.GetInt16(1)
      '...
      dataset.datatable.Rows.Add()  'TonDataset.Tatable
      'Loop
    End While
    '    rsDestination.update()
    SQLRDR.Close()
    'on peut utiliser un objet command pour effectuer la mise à jour manuelle avec une requête sql
    SQLDA.Update(Dataset.datatable)    'mise à jour automatique dans la BDR, les commandes update,delete,insert ont étés générées par l'assistant
    'ou
    NbMaj = SQLDA.Update(dataset.datatable)
    'rsDestination.close()
    'rsSource.update()
    'rsSource.close()
    'cnSource.Close()
    'cnDestination.close()
    SQLCMD.Dispose()
    SQLCMD = Nothing
    If cnSource.State = ConnectionState.Closed Then
    Else
      cnSource.Close()
    End If
    cnSource.Dispose()
    cnSource = Nothing

Bon boulot
Jean

[jibou]

Merci JPelli, c'est exactement ce que je cherchais. Il me manque juste l'équivalent de mon rsSource.Delete, qui doit intervenir juste après l'insertion (sans erreur) de l'enregistrement dans la table de destination. Comment s'assure-t-on de ce point en ADO.NET ?

Merci encore
Jibou

[Midou]

bonjour

Voici une autre solution sans DataReader (en C# mais pareil en VB)
Tu crée un dataadapter, un dataset , deux datatables que tu mes dans le dataset et tu rempli le premier datatable avec source et le second avec destination après tu transfert source vers destination (en supprimant au fure et à mesure la source) et tu fait un update.

Voici un exemple d'une table BD (table noms) avec 3 champs (int,string,string)

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
 
try
{
     string strsource = "Select * from noms"; // même requete pour les deux BD
     string s = cn.ConnectionString; // Conserver pour update
     cn.Open(); // connection par l'assistant
     OleDbDataAdapter da = new OleDbDataAdapter(strsource,cn); 
     OleDbCommandBuilder builder = new OleDbCommandBuilder(da);
     DataSet ds = new DataSet();
     DataTable tblSource = new DataTable("Source");
     DataTable tblDestination = new DataTable("Destination");
    ds.Tables.Add(tblSource);
    da.Fill(ds,"Source");
    cn.Close();
 
    cn.ConnectionString  = "ConnectionS source"; //change rde connection
    cn.Open();
    ds.Tables.Add(tblDestination);
    da.Fill(ds,"Destination");
    cn.Close();
 
foreach (DataRow row in ds.Tables["Source"].Rows)
{
     DataRow row1 = ds.Tables["Destination"].NewRow();
     row1["num"] = row["num"];
     row1["nom"] = row["nom"];
     row1["prenom"] = row["prenom"];
     tblDestination.Rows.Add(row1);
     row.Delete();
}
    dg.DataSource = ds;
    da.Update(ds,"Destination");
 
    cn.ConnectionString = s; 
    da.Update(ds,"Source");
}
 
catch (Exception ex)
{
     MessageBox.Show("Problème !!! " + ex.Message);
}
 
}

C'est sur que ce n'est pas la meilleur solution mais ça marche

Bonne chance

[JPelli]

Bonsoir,
le datareader lit les enregistrements un à un et en avant (je crois qu'en ado = snapshot) seulement donc pas besoin de supprimer car il ne traite qu'un enregistrement à la fois.
Bon boulot
Jean

[jibou]

Merci pour votre aide.