Base de donnée configuration et connexion

Version imprimable

4 pièce(s) jointe(s)

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:

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.

06/11/2012, 11h43
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 ;)
06/11/2012, 11h53
_PascalC_
Citation:
Envoyé par Hybride76

Bonjour,

Code:

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:

1 2 Dim Connexion As New SqlConnection("Data Source=localhost;Initial Catalog=VidGes; integrated security=sspi")
06/11/2012, 12h26
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.
08/11/2012, 22h00
Hybride76

Suite #1

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:

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:

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.
09/11/2012, 08h45
_PascalC_
Citation:

Envoyé par Hybride76

Code:

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:

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

1 pièce(s) jointe(s)

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:

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:

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

Suite #2

Bonsoir,

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

Code:

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:

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.

Citation:

Envoyé par Hybride76

Bonsoir,

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

Code:

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:

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.

essaie avec sa ... :

Code:

1
2
3
 
cmd = New MySqlCommand(req)
        cmd.Connection() = cnx