Discussion :

[roidavidou]

Bonjour,

voila un moment que je parcours la toile mais en vain. Je cherche la syntaxe afin de me connecter à un serveur sql 2008 via une application vb avec visual studio 2008.

Cordialement,

David

[ben et nuts]

Bonjour,
si vous chercher la synthaxe de connexion ADO.NET, vous la trouverez ici : http://dotnet.developpez.com/articles/ado1/vbnet/ , dans l'un des tutos de ce site.

Quant à la chaîne de connexion vers sql server 2008, je vous conseille de mettre ce site dans vos favoris : http://www.connectionstrings.com, vous y trouverez votre bonheur.

++

[roidavidou]

Merci, comment faire maintenant pour éxécuter une requete ? et envoyer des données sur la base ?

[mikedavem]

Bonjour,

Pour cela il faut utiliser les méthodes fournis par les bibliothèques de classes livrées avec votre fournisseur de données .NET Framework pour SQL Server.

Par exemple avec l'espace de nom System.Data.SqlClient du provider .NET vous pouvez utiliser :

- SQLConnexion
- SQLCommand
- SQLDataAdapter

etc ...

++

[ben et nuts]

Tu trouveras la synthaxe d'execution de requete dans le premier lien que je t'ai donné, le paragraphe en dessous de celui à propos de la connexion.

[roidavidou]

Merci beaucoup de votre aide !!

[roidavidou]

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
Dim strConnexion As String = "Data Source=localhost; Integrated Security=SSPI;" & "Initial Catalog=mabase"
'On fait la requête
Dim strRequete As String = "insert into essai VALUES ('" & TextBox1.Text & "');"
MsgBox(strRequete)
 
Try
MsgBox(TextBox1.Text)
Dim oConnection As SqlConnection = New SqlConnection(strConnexion)
Dim oCommand As New SqlCommand(strRequete, oConnection)
 
oConnection.Open()
MsgBox("Etat de la connexion : " & oConnection.State)
oConnection.Close()
 
Catch dss As Exception
 
MsgBox("L'erreur suivante a été rencontrée :" & dss.Message)
End Try

Sauf que lorsque je fais apparaître ma requête et que je l'insère en commande dans ma base cela fonctionne, mais cela ne fonctionne pas automatiquement en appliquant cette procédure.

Pourquoi ?

[ben et nuts]

Normal, il te manque toute la partie 'execution' de ta requête là où tu utilises une msgbox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim oCommand As New SqlCommand(strRequete , oConnection)
oConnection.Open()
oCommand.ExecuteNonQuery()
oConnection.Close()

voili voilà !

[roidavidou]

Merci beaucoup !!

et maintenant pour faire dans l'autre sens c'est à dire avoir une table qui contient toutes les lettres de l'alphabet et les mettre dans une listbox.

Il faut utiliser datareader ?

[ben et nuts]

Oui, exact !
Un datareader que tu vas parcourir une fois ta requête select executée.

[roidavidou]

Imaginons que je veuille compter le nombre d'occurrence contenant une valeur avec un count.

Je fais comment ?

[roidavidou]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim strConnexion As String = "Data Source=SERVER; Integrated Security=SSPI;" & "Initial Catalog=BDD"
'Cette requete permet de savoir si le numéro existe déja ou non'
Dim strRequeteVerif As String = "select count(*) from codif where numero='" & resultat & "';"
MsgBox(strRequeteVerif)
Try
Dim connexion As New SqlConnection(strConnexion)
Dim requete As New SqlCommand(strRequeteVerif)
connexion.Open()
Dim lecture As SqlDataReader = requete.ExecuteReader
connexion.Close()
MsgBox(lecture)
Catch ex As Exception
MsgBox("Erreur")
End Try

ne fonctionne pas pourquoi ?

la variable resultat regroupe plusieurs variable et la concaténation fonctionne correctement car j'affiche le resultat avant.

[ben et nuts]

S'il s'agit d'une requête sql 'count', ça reste un select.
Donc une fois la datareader ouvert, tu en récupères le contenu avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
oReader.Read() 
oReader.GetInt32(0)
oReader.Close()

[roidavidou]

Pourquoi GetInt32 ? car c'est un entier ? sinon string ?