Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
369 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Neophyte : Probleme VB - ACCESS 2013

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Neophyte : Probleme VB - ACCESS 2013

n°2264640
kiro40
Posté le 20-08-2015 à 21:34:40  profilanswer
 

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
  5. Public Class FrmGestMangas
  6.     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" )
  7.     Public MyCommand As OleDbCommand = MyConnexion.CreateCommand()
  8.     Public Myadaptateur As OleDbDataAdapter
  9.     Public RequeteGlobal As String
  10.     Public mondataset As New DataSet
  11.     Public monview As New DataView
  12.     Public TypeRequete, TypeRequete2, StandardRequete As String
  13.     Public code As Int16
  14.  
  15.     Private Sub FrmGestMangas_Load_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  16.         For x = 0 To 100
  17.             CboxDu.Items.Add(x)
  18.             CboxAu.Items.Add(x)
  19.         Next
  20.         CboxDu.SelectedItem = 1
  21.         OptBtnUnique.Select()
  22.     End Sub
  23.     Private Sub BtnValidation_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnValidation.Click
  24.         Try
  25.             MyConnexion.Open()
  26.         Catch ex As Exception
  27.             MessageBox.Show("Failed to connect to data source" )
  28.         Finally
  29.             MsgBox("ok" )
  30.             If code = 1 Then
  31.                 Try
  32.                     MyCommand.CommandType = System.Data.CommandType.Text
  33.                     MyCommand.CommandText() = RequeteGlobal
  34.                     MyCommand.ExecuteNonQuery()
  35.                     Myadaptateur.SelectCommand = MyCommand
  36.                     Myadaptateur.Fill(mondataset, "MangasBDD" )
  37.                 Catch ex As Exception
  38.                     Console.WriteLine(ex.Message)
  39.                 End Try
  40. ' Je bloque à cette ligne là, j'ai essaye " rows" à la place du select mais rien a faire.
  41.                 For Each Ligne As DataRow In mondataset.Tables("MangasBDD" ).Select 
  42.                     Console.WriteLine(Ligne("Nom" ).ToString & " - " & Ligne("NumeroTome" ).ToString)
  43.                 Next
  44.             End If
  45.             MyCommand.Dispose()
  46.             MyConnexion.Close()
  47.         End Try
  48.         MsgBox("ok" )
  49.     End Sub
  50.     Private Sub BtnRecherche_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRecherche.Click
  51.         StandardRequete = IIf(TextBoxRecherche.Text <> "Recherche", TextBoxRecherche.Text & "= Nom", "" ) & "AND " & IIf(TextBoxEd.Text <> "Recherche", TextBoxEd.Text & "= Edition", "" ) & "AND"
  52.         StandardRequete = StandardRequete & IIf(OptBtnSerie.Checked = True, CboxDu.SelectedItem & ">= NumeroTome AND " & CboxAu.SelectedItem & "<=NumeroTome", CboxDu.SelectedItem & "= NumeroTome" )
  53.         TypeRequete = "Select * "
  54.         TypeRequete2 = "FROM MangasBDD WHERE"
  55.         code = 1
  56.         RequeteGlobal = TypeRequete & TypeRequete2 & StandardRequete
  57.         RequeteGlobal = "Select * from MangasBDD  "
  58.     End Sub
  59. 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"
mood
Publicité
Posté le 20-08-2015 à 21:34:40  profilanswer
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Neophyte : Probleme VB - ACCESS 2013

 

Sujets relatifs
Problème de focus sur ma notationdéployer asp.net problème d'hébergement
[C#] Problème récup fabrique de la classe COMProbleme de validation CSS2.1) : balise <style> et autre
Problème d'envoi de mailsproblème GIT
Problème de données php dans envoi de mail htmlPetit problème Java
Requête mysql problemeProblème filtrage macro
Plus de sujets relatifs à : Neophyte : Probleme VB - ACCESS 2013


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR