Creer une fonction qui Fusionne 3 colonnes en Une seule

narutoverse -  
jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   -
Bonjour la communauté,
j'ai un Probleme, j'aimerai crée une fonction, qui fusionne trois colonnes en une seule. Cette foction dois a chaque fois verifier, si la elles sont vides où pas.
Le champ de chaque colonne doit être separé par un ; où une parenthese.




A voir également:

1 réponse

Réponse 1 / 1
jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   4 752
 
Bonjour,

j'ai un Probleme,

Nous aussi ..... ta question n'est pas assez précise !

Sous QUEL LANGAGE ?
Des colonnes de quoi ? des colonnes de direction d'une Audi A3 ? Un datagridview ? un Fichier Excel ? ?? ( ;-) )
Tu as commencé à écrire du code ? si oui .. montre le nous !

Et enfin :

j'aimerai crée une fonction, qui fusionne trois colonnes en une seule

Ok .. et quelle est la question exactement ?
Quel est le problème ? Sur quoi bloques tu ?




Cordialement,
Jordane
0
narutoverse
 
j'aimerai crée une fonction sous microsoft SQl server, qui fusion 3 colonnes en une seule, qui separe le contenu de la premiere de la deuxieme par un point virgule et de troisieme par des paranthese. et a chaque fois, la fonction doit dabord verifier,
si le contenu des colonnes sont vide ou pas
0
jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   4 752 > narutoverse
 
Donc ta question concerne microsoft SQl server ??
Je déplace la discussion dans la bonne section du forum alors.
0
narutoverse
 
J'ai pu le faire sous VBA, mais je veux migrer vers MS SQL Server 2008
voici le code en VBA: 

Function concRefKat2(IDTXSSystem As Integer, IDTXSRefKat1 As Integer)
    Dim rs As New ADODB.Recordset
    Dim sqlString As String
    Dim concString As String
    Dim currentString As String
    Dim FirstEntry As Boolean
    sqlString = "SELECT tblTXSSystem.IDTXSSystem, tblTXSSystemToTXSRefKat.IDTXSRefKat1, tblTXSSystemToTXSRefKat.IDTXSRefKat2, tblTXSRefKat2.txtEN, tblTXSSystemToTXSRefKat.txtTXSRefKat2NoteEN " & _
    "FROM (tblTXSSystem INNER JOIN tblTXSSystemToTXSRefKat ON tblTXSSystem.IDTXSSystem = tblTXSSystemToTXSRefKat.IDTXSSystem) INNER JOIN tblTXSRefKat2 ON tblTXSSystemToTXSRefKat.IDTXSRefKat2 = tblTXSRefKat2.IDTXSRefKat2 " & _
    "WHERE tblTXSSystem.IDTXSSystem = " & IDTXSSystem & " AND tblTXSSystemToTXSRefKat.IDTXSRefKat1 = " & IDTXSRefKat1 & ";"
    rs.Open sqlString, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    If (rs.EOF = False) Then
        rs.MoveFirst
        concString = ""
        FirstEntry = True
    Else
        concString = ""
        concRefKat2 = concString
        Exit Function
    End If
    Do Until (rs.EOF = True)
        If rs![txtTXSRefKat2NoteEN] <> "" Then
            currentString = rs![txtEN] & " (Note: " & rs![txtTXSRefKat2NoteEN] & ")"
        Else
            currentString = rs![txtEN]
        End If
        If FirstEntry Then
            concString = currentString
            FirstEntry = False
        Else
            concString = concString & "; " & currentString
        End If
        rs.MoveNext
    Loop
    concRefKat2 = concString
    rs.Close
End Function
0

Discussions similaires

Ca veut dire quoi :3
Moi -
Adraen -

3 réponses