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

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  SQL + VB : Question simple...

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

SQL + VB : Question simple...

n°136574
Un4GivN
Posté le 09-05-2002 à 05:39:31  profilanswer
 

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é ?!

mood
Publicité
Posté le 09-05-2002 à 05:39:31  profilanswer
 

n°136579
Un4GivN
Posté le 09-05-2002 à 06:45:58  profilanswer
 

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 !?

n°136621
Harkonnen
Modérateur
Un modo pour les bannir tous
Posté le 09-05-2002 à 12:00:13  profilanswer
 

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]


---------------
J'ai un string dans l'array (Paris Hilton)
n°136745
Un4GivN
Posté le 09-05-2002 à 17:21:11  profilanswer
 

Fonctionne po :(

n°136783
Harkonnen
Modérateur
Un modo pour les bannir tous
Posté le 09-05-2002 à 19:10:21  profilanswer
 

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 !!


---------------
J'ai un string dans l'array (Paris Hilton)
n°136804
Un4GivN
Posté le 09-05-2002 à 19:56:40  profilanswer
 

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

n°136806
Harkonnen
Modérateur
Un modo pour les bannir tous
Posté le 09-05-2002 à 20:07:08  profilanswer
 

:heink:  

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'
 
 
 :heink:

 

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


---------------
J'ai un string dans l'array (Paris Hilton)
n°136808
Un4GivN
Posté le 09-05-2002 à 20:10:01  profilanswer
 

Meme erreur... :(

n°136809
Harkonnen
Modérateur
Un modo pour les bannir tous
Posté le 09-05-2002 à 20:13:06  profilanswer
 

je teste.... chelou ce truc  :heink:


---------------
J'ai un string dans l'array (Paris Hilton)
n°136832
Un4GivN
Posté le 09-05-2002 à 21:39:15  profilanswer
 

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

mood
Publicité
Posté le 09-05-2002 à 21:39:15  profilanswer
 

n°136840
Harkonnen
Modérateur
Un modo pour les bannir tous
Posté le 09-05-2002 à 21:54:50  profilanswer
 

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


---------------
J'ai un string dans l'array (Paris Hilton)

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

  SQL + VB : Question simple...

 

Sujets relatifs
SQL et ASP : Stockage d'une réponse à un Count (*)Question sur les CSS
[ASP SQL][SQL]Selectionnez le mois dans le datetime ?
[SQL] Remplacé une chaîne dans X champs{MySql] Question sur le tri d'une requete
Referencement de site!question???[FTP] question de norme ....svp aidez moi
[script bash] question toute simple 
Plus de sujets relatifs à : SQL + VB : Question simple...


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR