Discussion :

[naza-dvp]

j'aimerai bien savoir comment ajouter dans une base de donnée access au niveau de vb.net, si jamais l'application vb contient des radiobutton.
aussi comment puis je afficher le contenu de ces radiobotton sur l'applicaation vb.net?
par ex :
dans la base de donnée j'ai " habité prêt" "oui" ou "non" alors comment puis je afficher cela sur lapp vb.net?
merci

[The eye]

1- Tu extrais tes données, par exemple comme ceci :

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
 
Dim sql As Text.StringBuilder = New Text.StringBuilder("")
        sql.Append("SELECT * FROM maTable")
        If _clauseWhere = "" Then
            'On ne complètepas la requête
        Else
            sql.Append(_clauseWhere)
        End If 'Fin si clause WHERE vide
 
        'Connexion à la BDD
        Dim strConnexion As String = connectionString
        Dim oConnexion As New System.Data.SqlClient.SqlConnection(strConnexion)
        Dim openConnectionError As Boolean = False
        Try
            oConnexion.Open()
        Catch ex As Exception
            openConnectionError = True
        End Try
 
        'Si l'ouverture de la connexion s'est bien passée on exécute la requête
        If Not openConnectionError Then
            Dim oCommand As New System.Data.SqlClient.SqlCommand(sql.ToString)
            oCommand.Connection = oConnexion
            Dim oDataAdapter As New System.Data.SqlClient.SqlDataAdapter(oCommand)
            Dim dtResult As New System.Data.DataTable()
            Try
                oDataAdapter.Fill(dtResult)
            Catch ex As Exception
            Finally
                oConnexion.Close()
                oCommand.Dispose()
            End Try
 
            'On renseigne les propriétées de l'objet l'objet
            If dtResult.Rows.Count = 0 Then
                distributeurs = Nothing
            Else
                For Each row As Data.DataRow In dtResult.Rows
                    distributeurs.Add(New AjaxControlToolkit.CascadingDropDownNameValue(row("libelle"), row("id_distributeur")))
                Next
            End If 'Fin si dataTable non vide
            dtResult.Dispose()
        End If 'Fin si connection OK

2 - Tu affiche tes données dans ta page... alors là tu as environ 2000 possibilitées...

- AJAX (voir AJAXtoolKit sur http://asp.net)
- Javascript
- redirection

enfin là faut potasser un peu...