wacssine
Messages postés59Date d'inscriptionsamedi 13 octobre 2007StatutMembreDernière intervention 1 décembre 2013
-
22 févr. 2008 à 12:02
wacssine
Messages postés59Date d'inscriptionsamedi 13 octobre 2007StatutMembreDernière intervention 1 décembre 2013
-
22 févr. 2008 à 19:45
Bonjour,
Voici mon code où j'ai l'erreur :
Imports
System.Data.Odbc
Module
Module1
Sub Main()
Dim constr
As
String =
"dsn=joc"
Dim con
As
New OdbcConnection(constr)con.Open()
'création des dataadapter
Dim daclients
As
New OdbcDataAdapter(
"select * from dbo_CLIENTS", con)
Dim daappels
As
New OdbcDataAdapter(
"select * from dbo_APPELS", con)
Dim ds
As
New DataSet
'chargement du datasetdaclients.Fill(ds,
"dbo_CLIENTS")daappels.Fill(ds,
"dbo_APPELS")con.Close()
'préparation des colonnes clé primaire et clé etrangère
Dim parentcol
As DataColumn = ds.Tables(
"dbo_CLIENTS").Columns(
"INDICE")
Dim childcol
As DataColumn = ds.Tables(
"dbo_APPELS").Columns(
"INDICE")
'création de la relation
Dim dr
As
New DataRelation(
"APPELS_APPELS", parentcol, childcol)
'ajout de la relation dans le datasetds.Relations.Add(dr)
Dim première_ligne
As DataRow = ds.Tables(
"dbo_CLIENTS").Rows(0)
Dim clientsrow
As DataRow = ds.Tables(
"dbo_CLIENTS").Rows(0).GetChildRows(dr).GetValue(0)
Dim appelsrow
As DataRow = ds.Tables(
"dbo_APPELS").Rows(0).GetParentRow(dr)Console.WriteLine(clientsrow(
"INDICE"))Console.WriteLine(clientsrow(
"VILLE"))clientsrow(
"VILLE") =
"COUTANCES"
'Dim mycommandbuilder1 As OdbcCommandBuilder = New OdbcCommandBuilder(daappels)
'Dim mycommandbuilder2 As OdbcCommandBuilder = New OdbcCommandBuilder(daclients)
'daappels.Update(ds, "dbo_APPELS")
'daclients.Update(ds, "dbo_CLIENTS")
End
SubEnd
Module
l'erreur qui me donne se trouve dans cette ligne Console.WriteLine(clientsrow("VILLE"))
le contenu de l'erreur est : La colonne 'VILLE' n'appartient pas à la table dbo_APPELS.
mais je veus qu'il me donne la colonne VILLE qui est dans la table dbo_CLIENTS.
Merci.