Discussion :

[peacee]

bonjour

Je veux savoir comment lier les deux tables en vb En utilisant une base de données sql en mode déconnecte

je sais comment utiliser un seul tableau, mais je ne sais pas comment utiliser deux tables et les relier




et merci

[sisqo60]

Bonjour,

la solution c'est de faire un objet de classe A ayant une liste d'objets de classe B.

Exemple :

Table 1 (Parents) :
ID | Prenom
-------------
1 | Toto
2 | Tata
3 | Titi

Table 2
ID | Parent_ID | Prenom
---------------------------
4 | 1 | Bobo
5 | 1 | Coco
6 | 2 | Dada
7 | 2 | Fafa
8 | 2 | Gaga
9 | 3 | Hihi

Tu aurais donc une classe personne, tu crées la liste des personnes de la première table, puis dans cette classe tu as un propriété représentant la liste des enfants et tu remplie la liste avec les données de la table 2.

Sinon, tu peux faire un Left Join dans ta requete pour n'avoir qu'une seule table... Bref il y a beaucoup de solutions.

Bon dév.

[peacee]

merci mais j' ai déjà un base de donne sur sql

voila

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
create database Gestion_avion
go
use Gestion_avion
go
create table pilote (idpilote int primary key  ,nom varchar(10), codepostale char (10), ville char(25) ,dateN date, datedebactivite datetime , datefinactivite datetime, salairebrut money , sexe varchar (50) , photo varchar (250) )
insert into pilote values(025,'red1',19000,'Tanger','1950/11/01','1975/11/01','2035/11/01',15000,'homme','c:\photos\B.jpg')
insert into pilote values(063,'issam',20000,'tetouan','1960/11/01','1985/11/01','2045/11/01',20000,'homme','c:\photos\c.jpg')
insert into pilote values(045,'ayoub',21000,'targuist','1960/11/01','1985/11/01','2055/11/01',30000,'homme','c:\photos\d.jpg')
 
create table Avion (IdAvion int primary key ,Marque varchar(10),TypeAion varchar(10),capacite int,Localisation varchar(20),DatemiseService Date, heureDepart  time , heureArrivee time)
insert into Avion values(1457,'Boieng','tiyara',300,'Med 6','2012/09/15','13:00','19:00')
insert into Avion values(1354,'Airbus','likoptir',50,'Marsseille','2010/08/10','07:00','14:00')
insert into Avion values(1866,'Boieng','Hmama',600,'Amesterdam','2009/07/07','15:00','21:00')
 
create table vole(numvol int primary key ,idavion int foreign key references avion on delete cascade on update cascade ,idpilote int foreign key references pilote on delete cascade on update cascade,villedep varchar (15),villearr varchar(15),heuredep decimal (4,2),heurearr decimal (4,2))
insert into vole values(12,1457,025,'Tanger','Casa','12.00','16.00')
insert into vole values(15,1354,063,'Nice','Paris','15.00','20.00')
insert into vole values(18,1866,045,'Amesterdam','Rabat','10.00','16.00')

Je veux savoir comment lier les deux tables en vb en mode déconnecte

par exemple (pilote avec vol ) en vb

[sisqo60]

OK, tu as une base de données, c'est cool...

Tu as la requête SQL? tu as du code? Tu bloques où? Qu'est ce que tu entends par en mode déconnecté?

Mais mon précédent post, c'est un exemple, c'est pour te donner une idée...
Le but de ce forum n'est pas de te faire ton boulot, mais de t'aider.

[peacee]

voile mon code sur vb

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
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
 
 
Imports System.Data.SqlClient
Public Class Form3
    Dim cn As New SqlConnection("Data Source=.;Initial Catalog=Gestion_avion;Integrated Security=True")
    Dim com As New SqlCommand("select *     from pilote", cn)
    Dim com1 As New SqlCommand("select *     from vole", cn)
    Dim da As New SqlDataAdapter(com)
    Dim da1 As New SqlDataAdapter(com1)
    Dim ds As New DataSet
    Dim ds1 As New DataSet
    Dim dtE As DataTable
    Dim dtE1 As DataTable
    Dim mode As Char
    Dim r As DataRow
    Dim cb As New SqlCommandBuilder(da)
    Dim cb1 As New SqlCommandBuilder(da1)
 
 
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cn.Open()
        da.Fill(ds, "pilote")
        ComboBox1.DisplayMember = "nom"
        ComboBox1.ValueMember = "numvol"
        dtE = ds.Tables("pilote")
        ComboBox1.DisplayMember = "nom"
        ComboBox1.ValueMember = "numvol"
        ComboBox1.DataSource = dtE
        'enable(False)
 
 
        da1.Fill(ds1, "vole")
        ListBox1.DisplayMember = "numvol"
        ListBox1.ValueMember = "idpilote"
        dtE1 = ds1.Tables("vole")
        ListBox1.DisplayMember = "numvol"
        ListBox1.ValueMember = "idpilote"
        ListBox1.DataSource = dtE1
        'enable(False)
 
 
    End Sub
 
    Sub affictation()
        r(0) = TextBox1.Text
        r(1) = TextBox2.Text
        r(2) = TextBox3.Text
        r(3) = TextBox4.Text
        r(4) = TextBox5.Text
        r(5) = TextBox6.Text
        r(6) = TextBox7.Text
 
 
 
 
    End Sub
 
    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
 
        TextBox1.Text = dtE1.Rows(ListBox1.SelectedIndex)(0)
        TextBox2.Text = dtE1.Rows(ListBox1.SelectedIndex)(1)
        TextBox3.Text = dtE1.Rows(ListBox1.SelectedIndex)(2)
        TextBox4.Text = dtE1.Rows(ListBox1.SelectedIndex)(3)
        TextBox5.Text = dtE1.Rows(ListBox1.SelectedIndex)(4)
        TextBox6.Text = dtE1.Rows(ListBox1.SelectedIndex)(5)
        TextBox7.Text = dtE1.Rows(ListBox1.SelectedIndex)(6)
        r = dtE1.Rows(ListBox1.SelectedIndex)
 
    End Sub
 
    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
 
    End Sub
End Class

je veux quand je sélectionne un pilote... ila afficher tous les information de vol de cette pilote voila mon objective

[peacee]

??????