Base de données et vb.net

Fermé
joujouth Messages postés 24 Date d'inscription lundi 15 mars 2010 Statut Membre Dernière intervention 5 octobre 2012 - 4 mai 2011 à 12:18
Bonjour,
je suis entrain de programmer un logiciel avec VB.NET 2010 mais toujours j'ai un problème avec la base de données
bon j'ai arrivé à connecter à la base mais j'ai pas pu récupérer les données
voici le code que j'ai écris
Imports System.Data
Imports System.Data.OleDb
Imports System.Data.SqlClient
Imports Microsoft.VisualBasic
Imports System.Data.Sql
Imports System.IO
Imports System.ArgumentException
Imports System.DateTime
Imports System.Data.Common

Public Class Form2
Dim connexion As New SqlConnection

Public Sub connect()

connexion.ConnectionString = "Data Source=localhost;Initial Catalog=pfe;Integrated Security=True"
connexion.Open()
If connexion.State = ConnectionState.Open Then
MsgBox("Connexion reussite", MsgBoxStyle.Exclamation, "Status")
Else
MsgBox("Connexion non reussite", MsgBoxStyle.Critical, "Status")
End If
connexion.Close()
End Sub
Public Sub desconnect()

connexion.ConnectionString = "Data Source=localhost;Initial Catalog=pfe;Integrated Security=True"
'connexion.Open()
connexion.Close()
If connexion.State = ConnectionState.Open Then
MsgBox("Connexion reussite", MsgBoxStyle.Exclamation, "Status")
Else
MsgBox("Connexion non reussite", MsgBoxStyle.Critical, "Status")
End If

End Sub
Public Function authentification(ByVal id As String, ByVal mp As String) As Integer
connect()
Dim strreq As String = "select mp from utilisateur where id_utilisateur = " + id
Dim dtt As DataTable
Dim Odcomd As OleDbCommand("strreq",connect)
Dim odataset As New DataSet("utilisateur")
OleDbDataAdapter.Fill(odataset, "patient")
dtt = odataset.Tables("patient")
Dim x As Integer = 0

Return x
End Function
End Class

vraiment j'ai besoin d'aide SVP