Neophyte : Probleme VB - ACCESS 2013

Neophyte : Probleme VB - ACCESS 2013 - VB/VBA/VBS - Programmation

Marsh Posté le 20-08-2015 à 21:34:40    

Bonjour,
 
Je bloque depuis quelques temps sur un projet personnel, j'aimerai en effet développer une interface sous VB pour gérer ma collection de mangas. ( nom, ,numéro tome, édition, ... ).
 
Je pense avoir réussi à créer une connexion à ma base de données Access sans soucis.
Le problème survient lorsque j'essaye de récupérer le résultat de ma requête, je me retrouve régulièrement avec un "nothing" entrainant un blocage du programme.
 
Je souhaiterai trouver enfaite un équivalent au "fetchall "( en python avcec mysql ) pour ensuite parcourir la collection ( chaque ligne du résultat ) pour l'afficher par exemple.
 
J'ai compris qu'il était nécessaire d'utiliser l'OLEDB étant donné que la base est  ACCESS. Pour obtenir un resultat semblable au fetchall, il serait nécessaire de passer par un adaptateur ?
Je ne vois vraiment pas comment l'utiliser.
 
 
 

Code :
  1. Imports System
  2. Imports System.Data
  3. Imports System.Data.OleDb
  4. Imports System.Data.SqlClient
  7. Public Class FrmGestMangas
  9.     Public MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data source=C:\Users\Kevin\Documents\Gestion_Perso\BDD\Mangas\BDD_Mangas.accdb" )
  10.     Public MyCommand As OleDbCommand = MyConnexion.CreateCommand()
  11.     Public Myadaptateur As OleDbDataAdapter
  12.     Public RequeteGlobal As String
  13.     Public mondataset As New DataSet
  14.     Public monview As New DataView
  16.     Public TypeRequete, TypeRequete2, StandardRequete As String
  17.     Public code As Int16
  19.  
  21.     Private Sub FrmGestMangas_Load_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  24.         For x = 0 To 100
  25.             CboxDu.Items.Add(x)
  26.             CboxAu.Items.Add(x)
  27.         Next
  29.         CboxDu.SelectedItem = 1
  30.         OptBtnUnique.Select()
  34.     End Sub
  36.     Private Sub BtnValidation_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnValidation.Click
  38.         Try
  39.             MyConnexion.Open()
  40.         Catch ex As Exception
  41.             MessageBox.Show("Failed to connect to data source" )
  42.         Finally
  43.             MsgBox("ok" )
  44.             If code = 1 Then
  45.                 Try
  48.                     MyCommand.CommandType = System.Data.CommandType.Text
  49.                     MyCommand.CommandText() = RequeteGlobal
  50.                     MyCommand.ExecuteNonQuery()
  53.                     Myadaptateur.SelectCommand = MyCommand
  54.                     Myadaptateur.Fill(mondataset, "MangasBDD" )
  58.                 Catch ex As Exception
  59.                     Console.WriteLine(ex.Message)
  60.                 End Try
  62. ' Je bloque à cette ligne là, j'ai essaye " rows" à la place du select mais rien a faire.
  64.                 For Each Ligne As DataRow In mondataset.Tables("MangasBDD" ).Select 
  66.                     Console.WriteLine(Ligne("Nom" ).ToString & " - " & Ligne("NumeroTome" ).ToString)
  67.                 Next
  68.             End If
  70.             MyCommand.Dispose()
  71.             MyConnexion.Close()
  73.         End Try
  74.         MsgBox("ok" )
  76.     End Sub
  78.     Private Sub BtnRecherche_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRecherche.Click
  81.         StandardRequete = IIf(TextBoxRecherche.Text <> "Recherche", TextBoxRecherche.Text & "= Nom", "" ) & "AND " & IIf(TextBoxEd.Text <> "Recherche", TextBoxEd.Text & "= Edition", "" ) & "AND"
  82.         StandardRequete = StandardRequete & IIf(OptBtnSerie.Checked = True, CboxDu.SelectedItem & ">= NumeroTome AND " & CboxAu.SelectedItem & "<=NumeroTome", CboxDu.SelectedItem & "= NumeroTome" )
  83.         TypeRequete = "Select * "
  84.         TypeRequete2 = "FROM MangasBDD WHERE"
  85.         code = 1
  86.         RequeteGlobal = TypeRequete & TypeRequete2 & StandardRequete
  87.         RequeteGlobal = "Select * from MangasBDD  "
  88.     End Sub
  89. End Class


 
 
Je vous remercie d'avance pour votre lecture et aide !


---------------
"Nous ne devons jamais verser de larmes. Les larmes ne sont rien d'autre que la défaite du corps sur le cœur. Elles constituent la preuve que garder un cœur ne sert à rien d'autre qu'à s'affaiblir"
Reply

Marsh Posté le 20-08-2015 à 21:34:40   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed