Connection multi tables

Version imprimable

Bonjours, :D
J'aimerai connecter une base Access avec ADO.NET avec une reqête MultiTables.

Je me connect de cette facon :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
sSQL = "SELECT * FROM Tireurs T, Societe S WHERE T.T_IdSociete = S.S_IdSociete ORDER BY T_Nom, T_Prenom;"
Cl25m_Connection = New OleDbConnection
Cl25m_Connection''Ouvrir la connection
Cl25m_Connection.Open()
Cl25m_Command = New OleDbCommand(sSQL)
Cl25m_DataAdapter = New OleDbDataAdapter(Cl25m_Command)
Cl25m_Command.Connection = Cl25m_Connection
Cl25m_DataAdapter.Fill(Cl25m_DataSet, "Tireurs")
Cl25m_DataTable = Cl25m_DataSet.Tables("Tireurs")
 
''Ajout
Cl25m_Lignes = Cl25m_DataSet.Tables("Tireurs").NewRow()
Cl25m_Lignes("T_Nom") = Me.txtNom.Text
Cl25m_DataSet.Tables("Tireurs").Rows.Add(Cl25m_Lignes)
MONCommandBuilder = New OleDbCommandBuilder(Cl25m_DataAdapter)
Cl25m_DataSet.Clear()
Cl25m_DataAdapter.Fill(Cl25m_DataSet, "Tireurs")
Cl25m_DataTable = Cl25m_DataSet.Tables("Tireurs")

Lorsque je fais un ajout j'ai un message d'erreur qui me dit que le multitable n'est pas géré :roll:

Merci d'avance
FikoU

25/07/2007, 15h46
Pol63

le pauvre access ne doit pas trop s'y retrouver en effet
je sais meme pas si sql server gère l'ajout sur une "vue" ...

fai une requete d'insert ...
25/07/2007, 16h02
fikou

Merci,

Je débute en VB.NET
Avec ADODB sous VB6 le

Code:

"SELECT * FROM Tireurs T, Societe S WHERE T.T_IdSociete = S.S_IdSociete ORDER BY T_Nom, T_Prenom;"

fonctionnai

Comment dans mon cas tu applique une requête ?

FikoU

J'ai eu un doute et je suis allé revoir mon code VB6 de l'an passé

Requete :

Code:

1
2
3
4
sSql = sSql & "SELECT " & T_CibleVersoix
sSql = sSql & "FROM  Tireurs T, CibleVersoix A, Societe S "
sSql = sSql & "WHERE T.T_IdSociete = S.S_IdSociete AND T.T_IdTireur = A.CV_IdTireur "   ''AND A.CV_Distance = '" & sDistance & "'" & " "
sSql = sSql & "ORDER BY A.CV_Total DESC, A.CV_Cp1 DESC, A.CV_Cp2 DESC, A.CV_CP3 DESC, A.CV_CP4 DESC, A.CV_CP5, A.CV_CP6 DESC, A.CV_CP7 DESC, A.CV_CP8 DESC, T.T_Categorie ASC, T.T_DateNaiss ASC"

Ajout :

Code:

1
2
3
4
5
6
7
adoRSSoc.AddNew
adoRSSoc!CV_IdTireur = iIdTireur
adoRSSoc!CV_Cp1 = Val(txtCoup(0).Text)
........
adoRSSoc!CV_Appui = Val(txtAppui.Text)
adoRSSoc!CV_Licence = adoRSSoc!T_Licence
adoRSSoc.Update

Fonctionnai nickel en ADO.NET on ne peut pas faire ça :question:

:arf: FikoU

26/07/2007, 15h46
napegadie

Dans ta requête, * ne precise pas les champs de la table que tu desir avoir. Je pense qu'il faut preciser les champs comme ceci:

Citation:

sSQL = "SELECT T.T_Nom,S.S_IdSociete FROM Tireurs T, Societe S WHERE T.T_IdSociete = S.S_IdSociete ORDER BY T_Nom, T_Prenom;"
26/07/2007, 15h53
fikou

Salut et merci,
Je précise les champs dans la variable T_CibleVersoix.
FikoU
26/07/2007, 16h20
napegadie

Si je comprend bien, T_CibleVersoix n'est rien d'autre que la prescision de tes champ?
26/07/2007, 16h25
napegadie

Je suppose que c'est un enregistrement tu veux faire. Pourquoi ne pas utiliser un update dans ce cas?

Oui,

Code:

1
2
3
 
Public Const T_CibleVersoix = "T_IdTireur, T_IdSociete, T_Nom, T_Prenom, T_DateNaiss, T_Licence, T_Categorie, CV_IdTireur, " & _
      "CV_Cp1, CV_Cp2, CV_Cp3, CV_Cp4, CV_Cp5, CV_Cp6, CV_Cp7, CV_Cp8, CV_Total, CV_Cat, CV_Appui, CV_Licence, S_IdSociete, S_NomSociete "

FikoU

26/07/2007, 16h38
napegadie

Dans

Citation:

Public Const T_CibleVersoix = "T_IdTireur, T_IdSociete, T_Nom, T_Prenom, T_DateNaiss, T_Licence, T_Categorie, CV_IdTireur, " & _
"CV_Cp1, CV_Cp2, CV_Cp3, CV_Cp4, CV_Cp5, CV_Cp6, CV_Cp7, CV_Cp8, CV_Total, CV_Cat, CV_Appui, CV_Licence, S_IdSociete, S_NomSociete "

Tu ne precise pas la table qui est rattachachée à chaque champ comme

Citation:

T.T_Nom

par exemple.
Et comme je l'ai dis plus haut dans le cas des enregistrements dans une base, le Update est mieux adapté et le select dans le cas de la lecture
26/07/2007, 17h17
fikou

OK et merçi,

Je vais tester tout ça.
Je dois dire que je nage avec ADO.NET et ses DataAdapter, DataSet ect.
J'ai vu sur ce site un bon tuto ADO.NET
Avec tout ça mon appli n'avance pas

Encore Merci

FikoU
26/07/2007, 18h07
napegadie

Citation:

sSQL = "SELECT * FROM Tireurs T, Societe S WHERE T.T_IdSociete = S.S_IdSociete ORDER BY T_Nom, T_Prenom;"
Cl25m_Connection = New OleDbConnection
Cl25m_Connection''Ouvrir la connection
Cl25m_Connection.Open()
Cl25m_Command = New OleDbCommand(sSQL)
Cl25m_DataAdapter = New OleDbDataAdapter(Cl25m_Command)
Cl25m_Command.Connection = Cl25m_Connection
Cl25m_DataAdapter.Fill(Cl25m_DataSet, "Tireurs")
Cl25m_DataTable = Cl25m_DataSet.Tables("Tireurs")

''Ajout
Cl25m_Lignes = Cl25m_DataSet.Tables("Tireurs").NewRow()
Cl25m_Lignes("T_Nom") = Me.txtNom.Text
Cl25m_DataSet.Tables("Tireurs").Rows.Add(Cl25m_Lignes)
MONCommandBuilder = New OleDbCommandBuilder(Cl25m_DataAdapter)

Cl25m_DataSet.Clear()
Cl25m_DataAdapter.Fill(Cl25m_DataSet, "Tireurs")
Cl25m_DataTable = Cl25m_DataSet.Tables("Tireurs")

Est-ce qu'il ne manque pas un update dans ton code?
Comme:

Citation:

Cl25m_DataAdapter.Update(Cl25m_DataSet, "Tireurs")

Ensuite ton enregistrement se fait uniquement sur T_Nom pourquoi ne pas faire simple comme ça:

Citation:

sSQL = "SELECT T_Nom FROM Tireurs ORDER BY T_Nom, T_Prenom;"

Cl25m_Connection = New OleDbConnection
Cl25m_Connection''Ouvrir la connection
Cl25m_Connection.Open()
Cl25m_Command = New OleDbCommand(sSQL)
Cl25m_DataAdapter = New OleDbDataAdapter(Cl25m_Command)
Cl25m_Command.Connection = Cl25m_Connection
Cl25m_DataAdapter.Fill(Cl25m_DataSet, "Tireurs")
Cl25m_DataTable = Cl25m_DataSet.Tables("Tireurs")

''Ajout
Cl25m_Lignes = Cl25m_DataSet.Tables("Tireurs").NewRow()
Cl25m_Lignes("T_Nom") = Me.txtNom.Text
Cl25m_DataSet.Tables("Tireurs").Rows.Add(Cl25m_Lignes)
MONCommandBuilder = New OleDbCommandBuilder(Cl25m_DataAdapter)
Cl25m_DataAdapter.Update(Cl25m_DataSet, "Tireurs")
Cl25m_DataSet.Clear()
Cl25m_DataAdapter.Fill(Cl25m_DataSet, "Tireurs")
Cl25m_DataTable = Cl25m_DataSet.Tables("Tireurs")
27/07/2007, 16h33
fikou

Bonjour,
OK je vais faire comme ça.
Une petit et dernière question :
Est il possible de récupérer le NumeroAuto avant le

Code:

Cl25m_DataSet.Clear()

FikoU