Discussion :

[Crachover]

Bonjour,

J'aimerais au démarrage afficher une fenêtre affichant le nombre d'enregistrements d'une table si évidemment elle n'est pas à zéro...

J'ai essayé ceci, mais rien ne fonctionne...

Code :

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

1
2
3
4
Dim rs As New ADODB.Recordset
        rs = cn.Execute("SELECT COUNT(*) FROM ATRAITER")
        i = rs(0).Value
        MsgBox(i)

ou encore...

Code :

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

1
2
 Dim intCount As Integer
        intCount = ds.Tables("ATRAITER").Rows.Count

[ProgElecT]

Salut

Code :

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

1
2
3
4
5
6
7
Dim rs As New ADODB.Recordset
        rs = cn.Execute("SELECT COUNT(*) FROM ATRAITER")
        rs.MoveLast
        rs.MoveFirst
        i = rs.RecordCount 
        'i = rs(0).Value
        MsgBox(i)

[Crachover]

Bonjour et merci pour votre réponse, mais... le code ne fonctionne pas. Il semble y avoir des problèmes de déclarations et surtout un problème avec ADODB.Recordset

Code :

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

1
2
3
4
5
6
7
Dim rs As New ADODB.Recordset
        rs = cn.Execute("SELECT COUNT(*) FROM ATRAITER")
        rs.MoveLast
        rs.MoveFirst
        i = rs.RecordCount 
        'i = rs(0).Value
        MsgBox(i)

Les messages dans la liste d'erreurs sont :

• Pour ADODB.Recordset - il n'est pas définit
• Pour cn - n'est pas déclaré. Il peut être inaccessible en raison de son niveau de protection. Idem pour i

Pour info, voici mon code à l'ouverture :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
    Private Sub Menu_principal_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: cette ligne de code charge les données dans la table 'MembresDataSet.ASBL'. Vous pouvez la déplacer ou la supprimer selon les besoins.
        Me.ASBLTableAdapter.Fill(Me.MembresDataSet.ASBL)
 
        ToolStripStatusLabel2.Text = FormatDateTime(Now, vbShortTime)
        ' ToolStripStatusLabel2.Text = Format(Now, "hh:mm")
        ToolStripStatusLabel3.Text = Format$(Now, "dd/MM/yy")
 
        Dim rs As New ADODB.Recordset
        'Dim cn As String
        'Dim i As String
        rs = cn.Execute("SELECT COUNT(*) FROM ATRAITER")
        rs.MoveLast
        rs.MoveFirst
        i = rs.RecordCount
        'i = rs(0).Value
        MsgBox(i)
    End Sub

Belle journée

[Crachover]

Bonjour,

A mon avis, il manque un morceau de code au début qui définirait la base de données à utiliser...

Code :

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

1
2
3
4
5
6
7
8
9
  Dim rs As New ADODB.Recordset
        'Dim cn As String
        'Dim i As String
        rs = cn.Execute("SELECT COUNT(*) FROM ATRAITER")
        rs.MoveLast
        rs.MoveFirst
        i = rs.RecordCount
        'i = rs(0).Value
        MsgBox(i)

[Thumb down]

bonjour,

1. ADODB est obsolète
2. il faut ouvrir la connexon ADODB!
3. rs.RecordCount ne retourne qu'un seul enregistrement vu que la requête est select Count(*)
   en revanche la requête par définition contient le nombre d'enregistrement!

4. Code :

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

   1
   2
   3
    Dim i As long=0
   rs = cn.Execute("SELECT COUNT(*) as Nb FROM ATRAITER")  
   if not rs.eof then  i = rs("Nb").value

[Crachover]

Bonjour,

Merci, mais je suis super débutant et je ne comprends pas...

Dans votre dernier message "ADODB est obsolète" et puis ensuite "il faut ouvrir la connexion ADODB!" ?

Mon problème est là justement...

J'ai une base de données Membres.accdb, dans cette base de données il y a une table ATRAITER.

J'aimerais avoir un test lors de l'ouverture du programme sur cette table. Si elle ne contient pas d'enregistrements, ne rien faire, si elle contient des enregistrement, afficher une MsgBox contenant le nombre d'enregistrements.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
  Private Sub Menu_principal_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: cette ligne de code charge les données dans la table 'MembresDataSet.ASBL'. Vous pouvez la déplacer ou la supprimer selon les besoins.
        Me.ASBLTableAdapter.Fill(Me.MembresDataSet.ASBL)
 
        ToolStripStatusLabel2.Text = FormatDateTime(Now, vbShortTime)
        ' ToolStripStatusLabel2.Text = Format(Now, "hh:mm")
        ToolStripStatusLabel3.Text = Format$(Now, "dd/MM/yy")
 
        ' Affichage du Logo
        PictureBox1.ImageLocation = Windows.Forms.Application.StartupPath & "\Logo.png"
 
Dim i As long=0
rs = cn.Execute("SELECT COUNT(*) as Nb FROM ATRAITER")  
if not rs.eof then  i = rs("Nb").value
End Sub

Ps : j'ai du mal à comprendre la gestion des tables : ajout, lecture, filtres, supprimer etc...

J'ai par exemple un Form. avec d'un côté des TextBox reliés à une table "ADRESSES" (je peux grâce à des flèches faire défiler les enregistrements) et de l'autre côté une table contenant les enregistrements de la table ATRAITER

MANIPULATION :
J'ai donc :
d'un côté la table ATRAITER avec un enregistrement sélectionné - Exemple Champ1 : DUPONT Pierre - Champ 2 : 10
de l'autre côté, un enregistrement sélectionné dans la table ADRESSES - Exemple Champ2 : DUPONT Pierre - Champ 3 : 240

Et au clique sur un bouton, j'aimerais que le Champ 3 de la table ADRESSES passe à 240 + 10 = 250 ,s'enregistre, copie l'enregistrement de ATRAITER dans une table MOUVEMENTS et ensuite efface l'enregistrement de ATRAITER.

Si je ne trouve pas DUPONT Pierre dans la table ADRESSES pouvoir le créer avec le champ 3 : 10

J'ai l'impression que tout cela ne doit pas être très compliqué, mais voilà je suis débutant avec les bases de données en VB... Ha oui, ce n'est pas fini, la table ATRAITER doit être alimentée pas des fichiers CODA.

[ProgElecT]

Salut

Regardes du coté de cette discussion Pilotage base Access, Phil Rob donne plein de bons conseils pour ce connecter à la base est ouvrir une table.

[Thumb down]

J'ai dit ADODB est obsolète je n'ai pas dit qu'on ne pouvait plus l'utiliser même s'il est préférable d'utiliser System.Data.OleDb!


dans ton code tu utilises un objet dataset 'Me.MembresDataSet' pour lié ta base de données avec ton formulaire ce qui fonctionne mais fortement déconseillé!

tu utilises FormatDateTime fonction strictement ACCESS!

Format fonction VBA!
tu as le droits de panacher les langage mais tu ne développes pas en VB.NET ça peut être un choix je ne discute pas!
si tu vas dans les références que tu décoche la librairie Visual Basic ton code explose!

pour ce qui concerne les dataset je ne pourrais pas t'aider je me refuse de l'utiliser!

pour ta requête je te fourni un exemple avec System.Data.OleDb pas avec ADODB!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Imports System.Data.OleDb
 
Public Class Form1
    Private cnx As OleDbConnection = Nothing
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim i As Long = 0
        cnx = OpenConnexion("C:\Myrep\DBTest.accdb")
        Dim Sql As String = "Select COUNT(*) as Nb FROM ATRAITER"
        Dim T As DataTable = ToDatatable(Execute(Sql))
        If T.Rows.Count > 0 Then
            i = T.Rows(0).Item("nb")
        End If
    End Sub
    Private Function OpenConnexion(ByVal _Fichier As String) As OleDbConnection
        Dim GenereCSTRING As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _Fichier & ";"
        Dim cnx = New OleDbConnection(GenereCSTRING)
        Try
            cnx.Open()
            Return cnx
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Function
    Private Sub CloseConnexion()
        cnx.Close()
        cnx.Dispose()
        cnx = Nothing
    End Sub
    Public Function Execute(ByVal Sql As String) As Object
        Dim myObject As New Object
        Using cmd As New OleDb.OleDbCommand(Sql, cnx)
            Try
                Return cmd.ExecuteReader()
            Catch ex As Exception
                Return Nothing
            End Try
        End Using
    End Function
    Public Function ToDatatable(ByVal dr As OleDb.OleDbDataReader) As DataTable
        Dim dt As New DataTable()
        dt.Load(dr)
        Return dt
    End Function
End Class

[Crachover]

Merci pour le lien et vous explications

Thumb down : "dans ton code tu utilises un objet dataset 'Me.MembresDataSet' pour lier ta base de données avec ton formulaire ce qui fonctionne mais fortement déconseillé!", je n'utilise pas forcement cela, cela se fait tout seul lorsque je connecte une base de données Access via Visual Studio... Je suis débutant en VB, il faut m'excuser je cherche sur le web et je trouve des morceaux de code et...

C'est comme pour FormatDateTime, je l'utilise simplement parce que je n'ai rien trouvé de mieux pour afficher les heures en 24h...

Ps : j'essaie d'y arriver pour remplacer un petit logiciel de gestion de dons pour la comptabilité pour mon boulot (ASBL)... Elles ont un logiciel qui tourne sous Windows XP et obligatoirement Office 97, donc cela devient compliqué à utiliser... Cela serait encore plus simple pour moi si je trouvais quelqu'un pour me le faire ou faire une très grande partie

Bonne fin de week-end