essai avec ado.net en vb.net

Question

Bonjour, je suis débutant en ado.net avec vb.net avec access ça marche bien mais c est pas le cas avec sql server.
voila j ai un code de vb.net dont je veux connecter à ma base de données en sql server mais lors de l'exécution
le programme est échoué et il s'arrête à la commande (MyConnexion.Open()) est il m'informe que: 
Une erreur liée au réseau ou spécifique à l'instance s'est produite lors de l'établissement d'une connexion à SQL Server.
 Le serveur est introuvable ou n'est pas accessible. Vérifiez que le nom de l'instance est correct et que SQL Server est configuré pour autoriser les connexions distantes. (provider: Fournisseur de canaux nommés, error: 40 - Impossible d'ouvrir une connexion à SQL Server)

en + avant de l'exécution j'ai choisi sur la barre de menu de vb.net le menu outil et je clique sur se connecter à la base de données et je poursuis les étapes jusqu'à l'apparition de Northwind.sdf 

dans l explorateur des bases de données mais la base de donnée que j ai fait sur sql server s appel examen

alors je sais pas comment se connecter à cette BD

VOILA MON CODE: 
Imports System
Imports System.Data.SqlClient
Imports System.IO

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


        Dim MyConnexion As SqlConnection = New SqlConnection("Data Source=localhost;" & "Integrated Security=SSPI;Initial Catalog=northwind")

        Dim Mycommand As SqlCommand = MyConnexion.CreateCommand()
        Mycommand.CommandText = "SELECT COUNT(*) FROM QUESTIONS"
        MyConnexion.Open()...(ici le programme s'arrête)...

        Dim myReader As SqlDataReader = Mycommand.ExecuteReader()
        Do While myReader.Read()
            ListBox1.Items.Add(myReader.GetString(0))
        Loop
        myReader.Close()
        MyConnexion.Close()

        
    End Sub
End Class
s il vous plait conseillez moi pour sortir de cette impasse.
vu que j ai fais une documentation pas malle .

nhervagault · Answer

Salut,

Utilises


Public Sub CreateCommand(ByVal queryString As String, _
  ByVal connectionString As String)
    Using connection As New SqlConnection(connectionString)
        Dim command As New SqlCommand(queryString, connection)
        command.Connection.Open()
        'command.ExecuteNonQuery()
        Dim myReader As SqlDataReader = command.ExecuteReader()
        Do While myReader.Read()
            ListBox1.Items.Add(myReader.GetString(0))
        Loop
        myReader.Close()
    End Using
End Sub


A la place du createcommand

Essai avec ado.net en vb.net

1 réponse

Votre réponse

Discussions similaires