Remplissage de 2 tables via Dataset et position curseur

Version imprimable

23/01/2012, 18h11
Awesome99

Remplissage de 2 tables via Dataset et position curseur

Bonsoir alors voilà je me connecte via une base de donnée Access, je travaille en ADO.net sur VB 2010.

J'arrive à me connecter, me déplacer via des boutons suivant, précédent,.. mais lorsque je dois ajouter ou supprimer un enregistrement il me choisit toujours le premier des enregistrements, j'aimerais pouvoir comme avec les recordset en ADO simple lui dire d'effacer l'enregistrement sur lequel je me trouve lorsque je parcours via mes boutons de déplacements.

L'autre petit problème c'est me connecter à 2 tables via un dataset, dois-je créer un dataview obligatoirement?

Voilà, si vous avez des questions par rapport à mon code n'hésitez pas à demander!
23/01/2012, 23h23
MABROUKI
bonjour Awesome99.
Comme awesome peut signifier dans la douce langue de Shakespear à la fois dement et genial(ambiguite specifique au caractere retors des anglais) ce doit etre le cas de ton code ..........que l'on ne vois pas d'ailleurs et que seul toi connait?......

En tout cas tu peux uiliser autant de tables que tu pourrais avec un DataSet.Il suffit de les ajouter au DataSet avec le code
Code:

1 2 3 tonDataSet.Tables.Add("nomdetaDataTable")
Avec de plus amples informations sur ton code de navigation on pourrait peut etre t'aider............
bon code

Tout d'abord merci de votre réponse ! pour la première partie de mon code je l'ai résolu mais en ce qui concerne le dataset et le nombre de tables qu'il contient toujours un petit problème voici mon code :

Code:

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
 
 Dim firstSql As String
 Dim secsql As String
 
            adapt.SelectCommand = New OleDbCommand(firstSql, connec)
            adapt.Fill(ds, "patient")
 
 
            adapt.SelectCommand.CommandText = secsql
            adapt.Fill(ds, "docteur")
 
            mybbase = Me.BindingContext(ds, "patient")
            mybbase = Me.BindingContext(ds, "docteur")
 
            txt_nom.DataBindings.Add(New Binding("text", ds, "patient.nom_patient"))
            txt_id_patient.DataBindings.Add(New Binding("text", ds, "patient.id_patient"))
 
            txt_nom_doc.DataBindings.Add(New Binding("text", ds, "docteur.nom_doc"))
            txt_id_docteur.DataBindings.Add(New Binding("text", ds, "docteur.id_docteur"))
 
            'Pour le bouton ajouter
 
        LaLigne = ds.Tables("patient").NewRow()
        LaLigne = ds.Tables("uf").NewRow()
 
        LaLigne("Nom_patient") = txt_nom.Text
        LaLigne("Nom_doc") = txt_doc_nom.Text
 
        ds.Tables("patient").Rows.Add(LaLigne)
        ds.Tables("docteur").Rows.Add(LaLigne)
 
        CmdBuild = New OleDbCommandBuilder(adapt)
 
        adapt.Update(ds, "patient")
        adapt.Update(ds, "docteur")
 
        adapt.Fill(ds, "patient")
        adapt.Fill(ds, "docteur")

Alors voilà j'utilise donc BindingManagerBase pour mes textbox, et pour ce qu'il en ai de l'ajout je n'y arrive pas de cette manière, il me dit par exemple qu'une telle table n'appartient pas à cette colonne.

bonjour Awesome99
Ton code a besoin d'etre serieusement lifte pour ce qui de l'utilisation de variables et vers quoi elles pointent.Faut faire attention.
Ensuite mauvais 'utilsation de OleDbCommandBuilder avec 2 tables .
-Il pointe toujours vers la derniere table utilisee et il faut le rediriger sur la table desiree avec le Texte de ta commande avant de l'executer(myCmd.CommandText=strSQL1,myCmd.CommandText=strSQL2 etc....)
Pour cela declare une variable Commande au niveau form pour pouvoir faire la redirection.
Pour le manager un seul suffit sur un form .Il coordonne tous les controles du form lies à ton datasource(ds).
ton code relifte:

Code:

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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
 
Imports System.Data.OleDb
 
Public Class FormAwesome
	Private firstSql As String
	Private secSQL As String
	Private myConnection As OleDbConnection
	'declare ici une variable commande en portee class (ton form) 
	Private myCmd As OleDbCommand
	Private adapt As OleDb.OleDbDataAdapter
	'declare ici le builder en porte class
	Private CmdBuild As OleDb.OleDbCommandBuilder
	Private ds As DataSet
	'un seul manager suffit pour tous les controles lies de la forme
	Private myManager As BindingManagerBase
 
	Private Sub FormAwesome_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
	End Sub
	Private Sub btnLoadData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoadData.Click
		myConnection = New OleDb.OleDbConnection
		myConnection.ConnectionString = My.Settings.MEDECINECnStr
		'init adapter
		adapt = New OleDb.OleDbDataAdapter
		'init commande avec connection
		myCmd = New OleDbCommand
		myCmd.Connection = myConnection
 
		'init ds
		ds = New DataSet
 
		'fill "patient"
		firstSql = "SELECT * FROM Patient"
		myCmd.CommandText = firstSql
		adapt.SelectCommand = myCmd
		adapt.Fill(ds, "patient")
 
		'fill "docteur"
		secSQL = "SELECT * FROM Docteur"
		myCmd.CommandText = secSQL
		adapt.Fill(ds, "docteur")
 
		myManager = Me.BindingContext(ds, "patient")
 
 
		txt_nom.DataBindings.Add(New Binding("text", ds, "patient.nom_patient"))
		txt_id_patient.DataBindings.Add(New Binding("text", ds, "patient.id_patient"))
		Me.DataGridViewPatient.DataSource = Me.ds
		Me.DataGridViewPatient.DataMember = Me.ds.Tables("patient").TableName
 
		txt_doc_nom.DataBindings.Add(New Binding("text", ds, "docteur.nom_docteur"))
		txt_id_docteur.DataBindings.Add(New Binding("text", ds, "docteur.id_docteur"))
		Me.DataGridViewDocteur.DataSource = Me.ds
		Me.DataGridViewDocteur.DataMember = Me.ds.Tables("docteur").TableName
 
	End Sub
	'Pour le bouton ajouter
	Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
 
		' Abus dans le nom des variables :
		'ta variable ligne contient n'importe n'importe quoi
		Dim LaLigne As DataRow
 
 
		'ajout ligne à table "patient" 
		'ta variable LaLigne pointe maintenant pointe vers "patient"
		LaLigne = ds.Tables("patient").NewRow()
		LaLigne("nom_patient") = Trim(txt_nom.Text)
		LaLigne("id_patient") = Trim(txt_id_patient.Text)
		ds.Tables("patient").Rows.Add(LaLigne)
 
		'init builder 
		CmdBuild = New OleDbCommandBuilder(adapt)
 
		'builder doit pointer sur table "patient" en reinitialisant commandText 
		myCmd.CommandText = firstSql
		CmdBuild.GetInsertCommand()	'utilise ca (& update,ou delete suivant le cas)
		adapt.Update(ds, "patient")
 
		'ta variable LaLigne pointe maintenant pointe vers "docteur"
		LaLigne = ds.Tables("docteur").NewRow()
		LaLigne("nom_docteur") = Trim(txt_doc_nom.Text)
		LaLigne("id_docteur") = Trim(txt_id_docteur.Text)
		ds.Tables("docteur").Rows.Add(LaLigne)
 
		'builder pointe sur "docteur" en reinitialisant commandText 
		myCmd.CommandText = secSQL
		CmdBuild.GetInsertCommand()	'utilise ca & update,ou delete suivant le cas
		adapt.Update(ds, "docteur")
 
 
 
		'code inutile.pourquoi?
		'adapt.Fill(ds, "patient")
		'adapt.Fill(ds, "docteur")
 
	End Sub
 
 
End Class

Bon code..........