Discussion :

[fikou]

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

Je me connect de cette facon :

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

Merci d'avance
FikoU

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

[fikou]

Merci,

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

Code :

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

"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

[fikou]

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

Requete :

Code :

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

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 :

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

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

FikoU

[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:

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;"

[fikou]

Salut et merci,
Je précise les champs dans la variable T_CibleVersoix.
FikoU