Public Function essai()
    Dim mdb As Database
    Dim strSQL As String
    Dim rs As Recordset
     
    Set mdb = OpenDatabase(App.path & "\Bibli.mdb" )
    strSQL = "SELECT * From Utilisateur"
    Set rs = mdb.OpenRecordset(strSQL)
     
    MsgBox rs.Fields(0) & " " & rs.Fields(1) & " " & rs.Fields(2)
End Function
 
Le message box me retourne uniquement la valeur du premier enregistrement. Comment je ferais si par exemple je voudrais accéder au dernier enregistrement trouvé ?!

J'ai trouvé réponse à ma question. Cependant j'en ai une autre !
 
Private Sub Command1_Click()
    Dim mdb As Database
    Dim strSQL As String
    Dim rs As Recordset
     
    Set mdb = OpenDatabase(App.path & "\Bibli.mdb" )
    strSQL = "INSERT INTO Utilisateur (IP,Taille,Nom_Fichier,Nick) VALUES('205.123.12.2',1234,'C:\allo.sys','Un4GivN';"
    Set rs = mdb.OpenRecordset(strSQL)
 
    rs.Close
    mdb.Close
    Set rs = Nothing
    Set mdb = Nothing
 
End Sub
 
L'instruction SQL ne fonctionne pas ! Pourtant, dans le "Visual Data Manager", elle fonctionne très bien. Qu'est-ce que je fais de pas correct !?

Essaie de mettre la taille entre '...' :
('205.123.12.2',[g]'1234'[
/g],'C:\allo.sys','Un4GivN
9

[jfdsdjhfuetppo]--Message édité par Harkonnen le 09-05-2002 à 12:02:38--[/jfdsdjhfuetppo]

Fonctionne po

Putain, j'ai trouvé..... une erreur trop con !!
 
C'est le ";" que tu as à la fin de ta requête SQL qui fout la merde ! Supprime le de suite  
 
Tu as du faire un copier/coller à partir d'Access j'imagine... je me suis fait avoir des dizaines de fois comme ça !!

Erreur 3219 : Opération non valide
 
Private Sub Command1_Click()
    Dim mdb As Database
    Dim strSQL As String
    Dim rs As Recordset
     
    Set mdb = OpenDatabase(App.path & "\Bibli.mdb" )
    strSQL = "INSERT INTO Utilisateur (IP,Taille,Nom_Fichier,Nick) VALUES('205.123.12.2',1234,'C:\allo.sys','Un4GivN'"
    Set rs = mdb.OpenRecordset(strSQL)
 
    rs.Close
    mdb.Close
    Set rs = Nothing
    Set mdb = Nothing
 
End Sub

Un4GivN a écrit a écrit : ('205.123.12.2',1234,' C:\allo.sys','Un4GivN'

 
je sais pas si c'est pas le "\" qui t'emmerde... en tout cas, le ";", faut le dégager
 
essaie 'C:\\allo.sys'
 
 
 

[jfdsdjhfuetppo]--Message édité par Harkonnen le 09-05-2002 à 20:08:33--[/jfdsdjhfuetppo]

Meme erreur...

je teste.... chelou ce truc  

SVP c'est urgent... c'est un projet à remettre pour demain matin 8h

j'ai créé une base chez moi et je lui ai appliqué la même requete via VBA, et ça marche sans pb....
 
une erreur 3219 pouvant venir d'une modification de base en lecture seule, vérifie, à tout hasard, si ta base n'est pas lockée, ou si l'attribut "lecture seule" n'est pas coché, suprime éventuellement le bibli.ldb, etc...
 
je peux pas t'aider davantage avec les données dont je dispose