vb, afficher une requete dans un textbox Résolu/Fermé

Question

Bonjour, 
Je travaille sur VB avec une base de données SQL, j'aimerai savoir comment afficher une requête dans un TextBox?? 

Merci D)

Polux31 · Answer

Bonjour,

C'est le résultat de ta requête ou la commande SQL que tu veux afficher ?

;o)

Nabla's · Answer

matextbox.text=requeteSQL ....

Nabla's · Answer

ben il a sa requete sql dans uen variable requeteSQL, et il affiche le contenu ´dans la textbox ...
ceci dit, je recommanderai plutot l utilisation del aocnsole de debugage:
debug.print requeteSQL
 --
periphérique marche pas? detection auto sur touslesdrivers.com !
n oubliez pas d aller sur google avant de poser vos questions...

Polux31 · Answer

Ah ! et tu es sûr que c'est ça qu'il veut ?

Ca ne serait pas plutôt le résultat d'une requête ? ou bien construire une requête qui s'affiche dans un textbox ?

Nabla's · Answer

je ne suis sur de rien. si monsieur revient, il nous expliquera ses souhaits

roros · Answer

Je vais vous envoyer le code et vous expliquerer en détail, d'ici 1h de temps car la je n'ai pas le code devant moi.
Merci de votre patience:)

Polux31 · Answer

C'est ce que je veux dire également ... trop peu d'explication dans la demande pour intervenir efficacement.

;o)

roros · Answer

Voici le code:


Private Sub Afficher_PF_Click ()

Adodc1.ConnectionString = CxBase 

'Requete qui affiche tout les informations concernant la GAMME

Adodc1.RecordSource = "SELECT  TU_BU_GAMME.TUBG_OP as 'Numéro Opération    ', TU_BU_GAMME.TUBG_CC '    Centre de Charges    ',
TU_BU_GAMME.TUBG_DESC_OP '  Description Opération  ',TU_BU_COUTS.TUBC_CODE_ENT as '    Code Entretien    ' , TU_BU_COUTS.TUBC_CODE_ELEC as '    Code Electricité    ' 
FROM TU_BU_GAMME INNER JOIN
 SC010100 ON TU_BU_GAMME.TUBG_PF = SC010100.SC01001 INNER JOIN TU_BU_COUTS ON dbo.TU_BU_GAMME.TUBG_CC = dbo.TU_BU_COUTS.TUBC_CC AND TU_BU_GAMME.TUBG_ANNEE = TU_BU_COUTS.TUBC_ANNEE
 Where TUBG_PF = '" & DataCombo1 & "' and TUBG_ANNEE= '" & Annee_Gam.Text & "'"

Set DataGrid1.DataSource = Adodc1
Adodc1.Refresh

Jusqu’ici touts fonctionne

'Requete qui affiche la Designation du Produit Finie

Dim cmd1 As ADODB.Command
Dim rdset1 As Recordset
Set cmd1 = New ADODB.Command
Set cmd1.ActiveConnection = CxBase

ReqSQL1 = " select SC01002 FROM SC010100 WHERE SC01001 = '" & Mid (DataCombo1, 1, InStr (1, DataCombo1, " ")) & "';"

cmd1.CommandText = ReqSQL1

Debug.Print ReqSQL1

Ici ca bug
Set rdset1 = cmd1.Execute (ReqSQL1)

If rdset1.EOF = False Then
    Desc_PF.Text = rdset1! SC01002
End If

Moi je veux afficher la requête ReqSQL1 dans le textBox Desc_PF.text

Nabla's · Answer

si Desc_PF.text=ReqSQL1 ne passe pas, je ne sais pas quoi te dire

Polux31 · Answer

peux-tu nous donner le message d'erreur stp ?

roros · Answer

en fait l'erreur c'est type incompatbile

si le code n'était pas clair, je l'ai un peu modifié le voici avec des commentaires plus détaillés à la fin
Private Sub Afficher_PF_Click ()

Dim cmd1 As ADODB.Command
Dim rdset1 As Recordset
Set cmd1 = New ADODB.Command
Set cmd1.ActiveConnection = CxBase

ReqSQL1 = " select Desc_Gamme FROM GAMME WHERE Code_PF = '" & Mid (DataCombo1, 1, InStr (1, DataCombo1, " ")) & "';"

cmd1.CommandText = ReqSQL1

Debug.Print ReqSQL1

Set rdset1 = cmd1.Execute (ReqSQL1)

If rdset1.EOF = False Then
    Desc_PF.Text = rdset1! Desc_Gamme
End If


Commentaire
Au début il ya un DataCombo qui contient des items. Il faut quand  je choisis un item  il faut que j’appuie sur le bouton Afficher_PF pour afficher la description de l’item que j’ai choisi dans un textbox.


Moi je veux afficher la requête ReqSQL1 dans le textBox Desc_PF.text

Polux31 · Answer

Essaies ça :

Dim cnx As ADODB.Connection
Dim rs As ADODB.Recordset
Dim ReqSQL1 As String
    
    ReqSQL1 = " select Desc_Gamme FROM GAMME WHERE Code_PF = '" & Mid (DataCombo1, 1, InStr (1, DataCombo1, " ")) & "';" 

    Set rs = New ADODB.Recordset
    Set cnx = New ADODB.Connection
    cnx.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CxBase
    
    rs.Open ReqSQL1, cnx.Open
    rs.MoveFirst
    Desc_PF.Text = rs.Fields(0)

    rs.Close
    cnx.Close
    Set rs = Nothing
    Set cnx = Nothing

roros · Answer

Ok, je vais essayer le code, je te tiendrai au courant cet aprem,

Merci

roros · Answer

J'ai essayé ca ne marche pas 

 

Dim cnx As ADODB.Connection

Dim rs As ADODB.Recordset

Dim ReqSQL1 As String

    

    ReqSQL1 = " select Desc_Gamme FROM GAMME WHERE Code_PF = '" & Mid (DataCombo1, 1, InStr (1, DataCombo1, " ")) & "';" 

 

    Set rs = New ADODB.Recordset

    Set cnx = New ADODB.Connection

    cnx.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CxBase

    

    rs.Open ReqSQL1, cnx.Open   

« Erreur de compilation : Function ou variable attendue »

    rs.MoveFirst

    Desc_PF.Text = rs.Fields(0)

 

    rs.Close

    cnx.Close

    Set rs = Nothing

    Set cnx = Nothing

Polux31 · Answer

Set rs = New ADODB.Recordset 

Set cnx = New ADODB.Connection 

cnx.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CxBase 

cnx.Open 

rs.Open ReqSQL1, cnx

je viens de faire un test chez moi, ça fonctionne, je récupère bien le recordset ... as-tu bien inclus la référence :
Microsoft ActiveX Data Objects Library x.x dans ton projet ?

roros · Answer

Il me donne une autre erreur maintenant
 

Dim cnx As ADODB.Connection

Dim rs As ADODB.Recordset

Dim ReqSQL1 As String

    

    ReqSQL1 = " select SC01002 FROM SC010100 WHERE SC01001 = '" & Mid(DataCombo1, 1, InStr(1, DataCombo1, " ")) & "';"

 

    Set rs = New ADODB.Recordset

    Set cnx = New ADODB.Connection

    cnx.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CxBase

 

    cnx.Open

« Une opération OLE-DB en plusieurs étapes a généré des erreurs. Vérifiez chaque valeur d’état OLE-DB disponible .Aucun travail n’a été effectué »

 

    rs.Open ReqSQL1, cnx

    rs.MoveFirst

    Desc_PF.Text = rs.Fields(0)

 

    rs.Close

    cnx.Close

    Set rs = Nothing

    Set cnx = Nothing

 

 

Moi j’ai crée un module public et j’ai mis dedans et ca marche pour tout les requetes select:

' Déclaration de l'object connection pointant vers la base en cours

' -----------------------------------------------------------------

Public CxBase As ADODB.Connection

 

' Procédure de connection aux bases de données

Public Sub ConnecBdd()

 

    Set CxBase = New ADODB.Connection

       

    ' Lecture du  fichier CRSS58.INI

    Call Lec_BUDGETini

     

    ' Initialisation de la variable qui pointe vers la base Access

    LaBase = CheminAccesBase

    

    ' Paramétrage de la connexion

    Select Case ConnectionActiveLue

        Case "ConnectionAccess": CxBase.ConnectionString = ConnectionActive

                                 CxBase.Open LaBase

        Case "ConnectionOracle": CxBase.Open ConnectionActive

        Case "ConnectionSQLServer": CxBase.Open ConnectionActive

    End Select

End Sub

 

 

 et pour la connection je met ça par exemple:

Adodc2.ConnectionString = "Provider=sqloledb;Data Source=srv-scala;Initial Catalog=scalaDB;User Id=sa;Password=iscala22;"


 

 

 En fait Je ne sais pas ou il faut mettre ca «  Microsoft.Jet.OLEDB.4.0;Data Source »

Polux31 · Answer

eh ben j'ai imaginé que ta base était Access.

Alors on reprend tout :o)
Dim rs As ADODB.Recordset
Dim ReqSQL1 As String
    
    ReqSQL1 = " select Desc_Gamme FROM GAMME WHERE Code_PF = '" & Mid (DataCombo1, 1, InStr (1, DataCombo1, " ")) & "';" 

    Set rs = New ADODB.Recordset
    
    rs.Open ReqSQL1, moduleBdd.CxBase  'ici le module public qui contient l'objet connexion avec la base (CxBase)
    rs.MoveFirst
    Desc_PF.Text = rs.Fields(0)

    rs.Close
    Set rs = Nothing

roros · Answer

Toujours l'erreur dans la meme endroit
    
    Dim rs As ADODB.Recordset
    Dim ReqSQL1 As String
    Set cmd1 = New ADODB.Command
    Set cmd1.ActiveConnection = CxBase
    
    ReqSQL1 = " select SC01002 FROM SC010100 WHERE SC01001 = '" & Mid(DataCombo1, 1, InStr(1, DataCombo1, " ")) & "';"
    Set rs = New ADODB.Recordset
    
    
    message d'erreur : L'objet ne gère pas cette propriété ou cette méthode
    rs.Open ReqSQL1, cmd1.CxBase
    'ici le module public qui contient l'objet connexion avec la base (CxBase)
    rs.MoveFirst
    Desc_PF.Text = rs.Fields(0)
    rs.Close
    Set rs = Nothing

Polux31 · Answer

il ne faut pas mettre ça :
Set cmd1 = New ADODB.Command 
Set cmd1.ActiveConnection = CxBase 

Ensuite il faut que ta base soit ouverte pour passer la requête.

roros · Answer

toutjours le meme problème dans le meme endroit,je ne comprend pas ou est le problème
   
Dim rs As ADODB.Recordset
Dim ReqSQL1 As String
ConnectionString = "Provider=sqloledb;Data Source=srv-scala;Initial Catalog=scalaDB;User Id=sa;Password=iscala22;"
ReqSQL1 = " select SC01002 FROM SC010100 WHERE SC01001 = '" & Mid(DataCombo1, 1, InStr(1, DataCombo1, " ")) & "';"
   Set rs = New ADODB.Recordset
    
    
    ' qu'est ce que tu veut dire par objet connection ???
    rs.Open ReqSQL1, CxBase
    'ici le module public qui contient l'objet connexion avec la base (CxBase)
    rs.MoveFirst
    Desc_PF.Text = rs.Fields(0)
    rs.Close
    Set rs = Nothing

Je te remercie de me consacrer du temps :)

Polux31 · Answer

voilà le module que j'utilise pour gérer mes connexions à une base de données. Ici c'est Access mais il suffit de changer la connnectionString pour un autre type de base : https://www.cjoint.com/?gzpQCiKnJd

Pour ton cas, je déclare un objet recordset et je passe en paramètre à la fonction OpenRecordset le recordset et la commande SQL sous forme de string. Il te suffit de récupérer le recordset par getRs et de d'afficher son contenu.

;o)

roros · Answer

Un très grand MERCI! ca fonctionne! Merci pour vous tous et merci pour ta patience Polux31

Polux31 · Answer

oupss de rien ...

Bonne continuation

;o)

loverzzz · Answer

pouvez vous poster la solution, parce que le lien précédent est mort

Vb, afficher une requete dans un textbox

24 réponses

Discussions similaires