Debutant prob ADO SQL

Question

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	ravail\VB\TEST_BASE1	est.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

cs_Crazyht · Answer

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é

Debutant prob ADO SQL

1 réponse

Discussions similaires