Discussion :

[Hybride76]

Bonjour,

Je viens vers vous car j'ai quelques soucis au niveau des base de donnée.

J'ai cherché des informations et méthodes, j'arrive a créer une BDD, mais je n'arrive pas a me connecter, ni insérer des informations.

Je ne sais pas si c'est ma méthode qui ne va pas ou si c'est autre chose.

Code pour demande connexion :

Code :

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

1
2
3
4
5
6
7
8
 
        Dim Connexion As New SqlConnection("Data Source=localhost;Initial Catalog=VidGes")
        Connexion.Open()
        Try
            Connexion.Open()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

Divers captures d'écran présent.

Si quelqu'un peu m'orienter ou me guider pour réussir.

Merci d'avance.

Cordialement.

[supermouton]

Bonjour Hybride76,

Peux-tu juste nous donner le résultat de ta demande de connexion ? As-tu un message d'erreur ou l'exception est-elle lancée ? tous se passe-t-il bien ?

Merci, et bon appétit

[_PascalC_]

Bonjour,

Code :

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

1
2
 
Dim Connexion As New SqlConnection("Data Source=localhost;Initial Catalog=VidGes")

Tu ne donne aucune information sur l'utilisateur (SQL ou Windows) dans ta chaine de connexion.
En partant du principe que ton utilisateur Windows est autorisé à se connecter à SQL Server essaie ceci :

Code :

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

1
2
 
Dim Connexion As New SqlConnection("Data Source=localhost;Initial Catalog=VidGes; integrated security=sspi")

[Kropernic]

De toute façon, le code donné lèvera une exception car il y a 2 ouvertures consécutives pour la même connexion.

Le mieux à faire, est d'aller lire ceci. Il s'y trouve toute une section sur les bases de données et comment les utiliser en .NET.

[Hybride76]

Bonjour,

Tout a d'abord désolés pour ma réponse tardive.

Alors voici quelques réponse.

Avec le code suivant j'obtiens le message d'erreur
"Echec de l'ouverture de session de l'utilisateur".
Code

Code :

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

Dim Connexion As New SqlConnection("Data Source=localhost; Initial catalog=database1 integrated security=sspi")

Le code suivant ne donne aucun message d'erreur, mais ne permet pas d'implanter des valeur dans la base.

Code :

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

  Dim Connexion As New SqlConnection("Data Source=localhost;  integrated security=sspi")

Nota : J'ai refait la base pour les essais avec deux champs "Id" en key primaire et "nom". Avec le nom de base "Database1".

Le but est de pouvoir se connecter directement avec l'identifiant windows.

La connexion est en configuré en Microsoft SQL Server Compact 3.5 (Fournisseur de données .NET Framework pour Microsoft SQL Server Compact 3.5)

Sinon je te remercie Kropernic pour l'adresse du site, mais je me sert déjà de tutoriel.
Dans mon premier post j'avais d’ailleurs fait un liens sur ce tutoriel.

Personnellement j'ai un peu de mal a capter le principe d'implantation d'une bdd en vb.

Du point de vue SQL, je comprend un peu mieux car j'ai des bases en PHP/SQL et gestion de données avec My sql et phpmyadmin.

Encore merci pour votre aide. En espérant que les informations fournis permettons de trouver un début de réponse.

Merci.

Cordiallement.

[_PascalC_]

Code :

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

Dim Connexion As New SqlConnection("Data Source=localhost; Initial catalog=database1 integrated security=sspi")

Il y a déjà une erreur ici, car il manque un point virgule entre "database1" et "integrated security=sspi". Mais bon ça ne changera rien à ton problème...

En effet la classe SqlConnection sert à se connecter à un SQL Server 2005, 2008... etc et non à un SQL Server Compact Edition.
Pour cela il faut que tu utilises les classes SqlCeConnection, SqlCeCommand... etc. La chaine de connexion est aussi assez différente.
Exemple :

Code :

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

1
2
3
4
5
6
7
 
Using c As New SqlCeConnection("Data Source=TaBase.sdf;Persist Security Info=False;")
   c.Open()
   Using cmd As SqlCeCommand = c.CreateCommand()
      '...
   End Using
End Using

[planeurbret]

Alors, j'ai aussi longtemps galérer pour trouver une solution qui fonctionne.
J'utilise en fait des fonctions pour faire mes requetes (les fonctions sont toutes dans un module auquel hje fait appel.).

Pour une connexion a MySQL, il faut télécharger 2DLL afin de pouvoir autoriser VB.Net à se connecter à la base de données.

Ensuite, voila le code de mon module

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
 
Imports MySql.Data.MySqlClient
 
Module RequetesSQL
 
    Public Function ReqSelection(ByVal req As String) As DataTable
        Dim cnx As MySqlConnection
        Dim cmd As MySqlCommand
        Dim ds As DataSet  ' va être utilisé dans plusieurs procédures 
        Dim da As MySqlDataAdapter
 
        ' instanciation et ouverture d'une connexion
        cnx = New MySqlConnection("Database=" & NomBDD & ";Data Source=" & hostBDD & ";User Id= " & identifiantBDD & " ;Password=" & passwordBDD & "")
        cnx.Open()
        'instanciation d'un objet Command
        cmd = New MySqlCommand(req)
        cmd.Connection() = cnx
        ' instanciation d'un DataSet
        ds = New DataSet
        'instanciation d'un DataAdapter
        '  Déclaration Objet DataAdapter
        da = New MySqlDataAdapter
        da.SelectCommand = cmd 'l'objet Command contient l'instruction SQL
        da.Fill(ds, "TableDataSet")  ' Remplissage d'un conteneur table dans le  DataSet à partir du DataAdapter
        Return ds.Tables("TableDataSet")
    End Function ' requête de sélection
 
    Public Function reqMAJ(ByVal req As String) As Integer
        Dim cnx As MySqlConnection
        Dim cmd As MySqlCommand
        Dim res As Integer
 
        ' instanciation et ouverture d'une connexion
        cnx = New MySqlConnection("Database=" & NomBDD & ";Data Source=" & hostBDD & ";User Id= " & identifiantBDD & " ;Password=" & passwordBDD & "")
        cnx.Open()
        'instanciation d'un objet Command
        cmd = New MySqlCommand(req)
        cmd.Connection() = cnx
        res = cmd.ExecuteNonQuery()
        cnx.Dispose()
        Return res
    End Function 'requete de mise à jour
End Module

Et l'appel dans une page, pour une simple requête de sélection par exemple :

Code :

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

1
2
3
4
 
Requete = "select count(*) FROM Adhérent"
Données = RequetesSQL.ReqSelection(Requete)
'traitement des résultats par la suite...

[Hybride76]

Bonsoir,

Merci pour votre aide.
Voila la mise à jour faite suite a votre post

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
   Using c As New SqlCeConnection("data source=Database1.sdf; persist security info=false;")
            c.Open()
            Using cmd As SqlCeCommand = c.CreateCommand
 
                Try
                    Sql = "INSERT INTO Table1 (Id, Nom) VALUES('', 'Of the gang')"
                                       Dim command As New SqlCeCommand(Sql, c)
                    MsgBox("Il y a eu " & command.ExecuteNonQuery & " ligne mises à jour")
                    'MsgBox("Ajout utilisateur terminé", MsgBoxStyle.Information, "Vérfification d'utilisateur")
                    command.Dispose()
                    c.Close()
                Catch ex As System.Data.SqlClient.SqlException
                    MsgBox(ex.Message, MsgBoxStyle.Critical)
                End Try
            End Using

Il semble qu'une création de connexion se fait, par contre l'insertion passe aussi, mais je ne trouve aucune table de remplis. La table1 n'est pas remplis, ce que je ne comprends pas.

La ligne

Code :

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

MsgBox("Il y a eu " & command.ExecuteNonQuery & " ligne mises à jour")

Indique bien l'implantation d'une ligne.

Je pense qu'il y a un paramètre que je n'ai pas configuré correctement mais quoi?

Je continue mes recherche.

Encore merci.

Cordialement.