joujouth
Messages postés24Date d'inscriptionlundi 15 mars 2010StatutMembreDerniè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