SQL et VBNET?

**Juho06** · 26/02/2007, 18h01

Bonjour!

J'ai une appli VBNET basée sur une base de données MDB (Access) qui est stockée dans le repertoire de l'install, les users modifient, rajoutent et suppriment des entrées dans leur base en local sans problème.

Je souhaiterais maintenant (et c'est la le problème) que tous les users puissent se connecter à une seconde base (qui sera donc commune à tout le monde), qui sera en SQL stockée sur le serveur de mon site, et y rajouter des données, pour que ces données puissent ensuite etre téléchargées par tout le monde à partir de l'application, et inserées dans la base MDB de l'user qui l'a téléchargé.

Cela pose donc deux problèmes :

1. Comment faire pour connecter VBNET au SQL et inserer des données dans la base SQL à partir du MDB?

2. Comment faire pour afficher les résultats de la base SQL avec possibilité de télécharger certaines valeur dans la base mdb?

Pour l'instant je laisse un peu de coté le second problème, chaque chose en son temps. Pour commencer, je voudrais donc savoir comment connecter VBNET à une SQL sur un serveur distant?

Merci d'avance pour vos réponses

**More** · 26/02/2007, 18h31

salut,

voici un petit code qui sert a se connecter a Sql via Vb.net :

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
'À chaque fois que vous manipulez du sql, que se soit l'objet connexion ou une requête, faites les IMPORTS suivants
Imports System.Data
Imports System.Data.SqlClient
 
'Dans un module à part
Public nom_connexion As New SqlConnection
 
'À l'ouverture de la première fenêtre du projet
nom_connexion.ConnectionString = "Persist Security Info=False;Integrated Security=SSPI;database=nom_base;server=nom_serv"
nom_connexion.Open()
 
'Exécution d'une requête SELECT
Dim myCommand As New SqlCommand(texe_requete, nom_connexion)
Dim myReader As SqlDataReader = myCommand.ExecuteReader()
 
myReader.Read()
'Traitement
 
myReader.Close()
 
'Réutiliser le reader pour une autre requête
myCommand.ComandText = nouveau_texte_requete
myReader = myCommand.ExecuteReader()
 
'Récupérer les valeurs du SELECT
'Les numéros de colonnes du SELECT commence à 0 et non à 1
variable_texte = myReader.GetString(num_colonne)
variable_numérique = myReader.GetValue(num_colonne)

Bonne chance

**Juho06** · 26/02/2007, 18h36

Merci More, je vais tester ca

**Juho06** · 26/02/2007, 19h10

J'ai mis donc ce code (en ayant bien fait les imports requis) :

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
 connection.ConnectionString = "Persist Security Info=False;Integrated Security=SSPI;database='nom_de_ma_base';server='http://www.monsite.com'"
        connection.Open()
 
        Dim Command_count_albums_gbu As New SqlCommand("SELECT COUNT(*) FROM ALBUMS", connection)
        Dim myReader As SqlDataReader = Command_count_albums_gbu.ExecuteReader()
 
        myReader.Read()
        'Traitement
 
        myReader.Close()
 
        'Récupérer les valeurs du SELECT
        'Les numéros de colonnes du SELECT commence à 0 et non à 1
 
        Dim text As String
        text = myReader.GetString(1)
        Dim num As Decimal
        num = myReader.GetValue(2)

Et j'obtient cela :

Une erreur s'est produite lors de l'établissement d'une connexion au serveur. Lors de la connexion à SQL Server 2005, cet échec peut être dû au fait que les paramètres par défaut de SQL Server n'autorisent pas les connexions à distance. (provider: Fournisseur de canaux nommés, error: 40 - Impossible d'ouvrir une connexion à SQL Server)

Je précise que ma base requiert un login et un password, or, je n'ai pas vu d'endroit ou les placer dans le code donc je ne les ai pas mis, c'est peut etre pour ca? Sinon, j'ai mis le nom de la base et l'adresse entre guillemets, je ne sais pas s'il fallait? Quant au serveur je ne sais pas sous quelle forme il faut l'indiquer alors je l'ai mis en http://.. mais je ne sais pas si c'est ce qu'il fallait faire...

Merci pour vos réponses