Base de données SQL et combobox

Version imprimable

08/05/2012, 22h36
fireman59

Base de données SQL et combobox

Bonsoir,

Je suis tout nouveau sur le forum. Je viens de m'inscrire mais je suivais le forum régulièrement pour piocher quelques infos quand j'en avais besoin.

Cependant je n'ai pas trouvé de solution à mon problème actuel.

J'expose ce que je veux faire :

Je suis entrain de réaliser un programme d'aide à la conception permettant de calculer divers éléments (ex : durée de vie de roulement). Voilà j'ai une base de données Roulement.
Cet base de données est constituée de plusieurs tables.

J'ai créé deux combobox dans un userform et j'aimerai le remplir avec ma base de données roulement. Le premier combobox doit prendre les items d'une certaine table au moment de l'ouverture de la userform et la seconde doit se remplir en fonction du résultat de la première.

Voici mon problème :
Je n'arrive pas du tout à utiliser les base de données et les requêtes. De ce fait je n'arrive pas à charger les éléments dans ma combobox.

Quelqu'un pourrait il m'aider pour remplir ma combobox svp ?

J'ai trouvé quelques éléments sur le forum et sur d'autres supports mais pas assez pour me sortir de ce problème.

Voici le lien qui pourrait le plus m'aider :
http://faqvbnet.developpez.com/?page...ill_dataReader

Le problème c'est que je ne sais pas quoi mettre dans : Dim cs As String = " la chaine de connexion SQL".

Merci d'avance

Gautier.
08/05/2012, 22h53
Sankasssss

Bonsoir,

Pour savoir quoi mettre dans la chaîne de connexion il faut savoir a quelle type de base de donnée on veut se connecter.

Un bon lien pour savoir quoi mettre dedans : http://www.connectionstrings.com/
08/05/2012, 23h25
fireman59

Citation:

Envoyé par Sankasssss

Bonsoir,

Pour savoir quoi mettre dans la chaîne de connexion il faut savoir a quelle type de base de donnée on veut se connecter.

Un bon lien pour savoir quoi mettre dedans : http://www.connectionstrings.com/

Ok pour moi c'est SQL server compact 3.5.
08/05/2012, 23h42
fireman59

Si j'ai bien compris le lien que tu m'as donné :

Je dois mettre à la place de :

Code:

Dim cs As String = " la chaine de connexion SQL"

ceci :

Code:

Dim cs As String = "Data Source=myServerAddress;Initial Catalog=myDataBase;"

Cependant dans Data Source= je mets quoi ?
Même question pour catalogue ? Le nom de ma Base de données donc dans mon cas Roulement ?
09/05/2012, 08h36
-N4w4k-

Salut,

Citation:

Envoyé par fireman59

Ok pour moi c'est SQL server compact 3.5.

Quand je regarde la chaîne correspondante sur le site, j'ai:

Citation:

Data Source=MyData.sdf;Persist Security Info=False;

J'utilise aussi une bdd locale dans un de mes projets et ma chaîne de connexion (générée par le designer) ne renseigne pas le "Persist Security"..
Un exemple:

Citation:

Data Source=C:\Users\..\MyDataBase.sdf
09/05/2012, 09h19
fireman59

Merci pour ta réponse.

Et dans :

Code:

Initial Catalog= ""

Je dois mettre quoi ?
09/05/2012, 09h42
-N4w4k-

Je te propose de pas renseigner le champ Initial Catalog:

Code:

Dim cs As String = "Data Source=C:\Users\..\MyDataBase.sdf"

Si ça ne marche pas essaie de mettre juste le nom de ta base de données sans l'extension (d'après ce que je vois sur le site connectionStrings) pour le champ Initial Catalog.

PS: Attention, dans mon exemple, c'est un chemin absolu. Peut être qu'un chemin relatif te conviendrait mieux..

J'ai réussi à faire ce que je voulais avec l'aide d'un ami plus expérimenté que moi.

J'ai créé une base locale et créer un TableAdaptater.
Je vais chercher chaque valeur d'une certaine colonne et l'ajoute dans une combobox.

Donc voici le code que j'utilise :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
'Création d'une instance de notre TableAdapter.
        Dim Table_type_adaptater As New RoulementDataSetTableAdapters.TypeTableAdapter
 
 
        'Création d'une instance de notre table associé.
        Dim Table_type As New RoulementDataSet.TypeDataTable
 
        'Appel de la méthode GetData de notre instance de TableAdapter pour le
        'remplissage de la table.
        Table_type = Table_type_adaptater.GetData
 
 
        For i = 0 To Table_type.Rows.Count - 1
            ComboBox1.Items.Add(Table_type.Rows(i).Item("Type de roulement"))
        Next

09/05/2012, 16h42
-N4w4k-

En effet quand on ajoute la base de donnée avec le designer, ça génère la connection string automatiquement (dans My.Settings...). Si en plus tu as généré le TableAdapter, tu n'as même plus à t'en soucier :ccool:

Ton problème est il résolu ?
09/05/2012, 16h48
fireman59

Citation:

Envoyé par -N4w4k-

En effet quand on ajoute la base de donnée avec le designer, ça génère la connection string automatiquement (dans My.Settings...). Si en plus tu as généré le TableAdapter, tu n'as même plus à t'en soucier :ccool:

Ton problème est il résolu ?

Oui il l'est. Merci pour votre aide.