Debutant prob ADO SQL

Messages postés
1
Date d'inscription
samedi 29 décembre 2001
Statut
Membre
Dernière intervention
29 décembre 2001
-
Messages postés
1522
Date d'inscription
mardi 18 décembre 2001
Statut
Membre
Dernière intervention
21 août 2010
-
Salut, Je suis debutant en VB (3j) et j'ais un prob : je n'arrive pas a envoyer une requette sql, j'utilise une table ACCESS avec ADO

Voici mon code Merci

Option Explicit

'
' Variables globales
'
Dim Connect As New Connection
Dim Comm As New Command
Dim Record As Recordset
Dim Sql As String
Dim bSelect As Boolean
Dim sKeySelect As String
Dim bTri As Boolean

Private Sub Command2_Click()
'
' Lecture de toute la base
'

Dim ListItem As ListItem
Dim Compt1 As Integer
'
' Definition de la requête
'
Sql = "SELECT * from User WHERE Nom LIKE 'A%' ORDER BY Nom ASC"
'
' Préparation de la commande
'
Comm.CommandText = Sql
'
' Execution de la commande
'
Set Record = Comm.Execute <<-- ERREUR

'
' Recuperation du resultat
'

Private Sub Form_Load()
'
' Chargement de la feuille
'

'
' Definition de la chaine de connection avec le path
'
Connect.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Perso\travail\VB\TEST_BASE1\test.mdb;Persist Security Info=False"
'
' Connection a la base
'
Connect.Open
'
' Affectation de commandes a la connection active
'
Comm.ActiveConnection = Connect
'
' Affectation des collones a la list
'
List1.ColumnHeaders.Add , , "Nom", 3000, lvwColumnLeft
List1.ColumnHeaders.Add , , "Prenom", 3000, lvwColumnLeft
List1.View = lvwReport
End Sub

1 réponse

Messages postés
1522
Date d'inscription
mardi 18 décembre 2001
Statut
Membre
Dernière intervention
21 août 2010
8
Je ne sais pas pourquoi il y a une erreur car moi je fairt comme ça :

Set Record = openrecordset ( sql , dbopen... )

pour les requêtes renvoyant qq chose et

connect.execute Sql

pour celle qui ne renvoie rien

A++
Hervé