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

[napegadie]

Si je comprend bien, T_CibleVersoix n'est rien d'autre que la prescision de tes champ?

[napegadie]

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

[fikou]

Oui,

Code :

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

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

[napegadie]

Dans

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

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

[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

[napegadie]

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:

Cl25m_DataAdapter.Update(Cl25m_DataSet, "Tireurs")

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

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

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

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

Cl25m_DataSet.Clear()

FikoU