Discussion :

[Invité]

Bonjour,
Je voudrais faire une connexion à une base de donnée sqlserver via visual studio. J'ai fait une connexion avec acces et ca marche bien le code est le suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
        Connection = New OleDbConnection() 
        Connection.ConnectionString = strConn
        Connection.Open() 'Ouvrir la connexion
        strSql = "SELECT * FROM compte" 'Instanciation d'un Objet Connexion
        Command = New OleDbCommand(strSql) 'Instancer un objet Commande
        DataAdapter = New OleDbDataAdapter(Command)  'Instancer un objet Adapter
        Command.Connection() = Connection 'initialiser l'objet Command
DataAdapter.Fill(DataSet, "dbo.compte")
            DataTable2 = DataSet.Tables("dbo.compte")
            If RowNumber < 0 Then Exit Sub
            If RowNumber > DataTable2.Rows.Count - 1 Then Exit Sub

Mais quand j'ai voulu transformer ce code pour faire la connexion a une base donnée sql server, j'ai rencontré des erreurs.
Est ce que vous avez une idée ?
Merci

[Invité]

voila le code que j'ai fait mais j'ai un probléme au niveau de l'adapter

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim Connection As New SqlConnection
            Connection.ConnectionString = "Persist Security Info=False;Integrated Security=SSPI;database=ConsortiumDataBaseSQL;server=rcham-pc"
            Connection.Open()
            Dim Command As New SqlCommand("SELECT * FROM dbo.compte", Connection)
            Dim DataAdapter As SqlDataAdapter(Command,Connection)
            Command.Connection() = Connection
 
            DataAdapter.Fill(DataSet, "dbo.compte")
            DataTable2 = DataSet.Tables("dbo.compte")
            If RowNumber < 0 Then Exit Sub
            If RowNumber > DataTable2.Rows.Count - 1 Then Exit Sub