Discussion :

[chagala]

salut a touts les programmeurs
alors j'ai une table 'analyse' et une colonne 'code' tel que :
OG
OS3.6.9
R1.1.35
R1.2.3
OS4
R2.1
R2.1.1.2

je veut pour chaque valeurs de la colonne 'code' qui commence par OS ex remplacer OS par NIV1 exemple:
OS3.6.9 ==> NIV13.6.9

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
UPDATE analyse
SET code=??????????
WHERE code='OS%'

et merci d'avance

[Vesta]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
UPDATE analyse
SET code=replace(code, 'OS', 'NIV1')
WHERE code='OS%'

[SfJ5Rpw8]

tu as fais le tour des forums ? tu n'est pas sur le bon à priori ! , puis ton titre ne nous dit pas avec quoi tu travaille [VB6] ... [VBA-A]

[AlainTech]

Si tu avais un peu cherché au lieu de passer ton temps à nous reposer plusieurs fois la même question, tu aurais trouvé ça:
http://sql.developpez.com/sqlaz/dml/ en plus du lien que je t'ai donné dans le MP.

[chagala]

Alain j'ai pas trouver ton e-mail priver
alors mon code est entre vos mains (piece jointe) mais il faut changer l'extention de .txt .frm ok
trouver moi une sol

rq: stp tu peut me dire en 2 mots comment rendre mes titres comme les votres et merci l'amie

[AlainTech]

Voici le contenu du fichier de chagala:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   5490
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   9930
   LinkTopic       =   "Form1"
   ScaleHeight     =   5490
   ScaleWidth      =   9930
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   615
      Left            =   7680
      TabIndex        =   2
      Top             =   2280
      Width           =   1695
   End
   Begin VB.TextBox Text1 
      Height          =   495
      Left            =   7560
      TabIndex        =   1
      Text            =   "Text1"
      Top             =   960
      Width           =   2055
   End
   Begin VB.ListBox List1 
      Height          =   450
      Left            =   1440
      TabIndex        =   0
      Top             =   1080
      Width           =   5055
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim cmd As New ADODB.Command
Dim connect As ADODB.Connection
Dim rec As ADODB.Recordset
 
 
Private Sub Form_Load()
 
    Set connect = New ADODB.Connection
    Set rec = New ADODB.Recordset
    ''Definition du pilote de connexion
    connect.Provider = "Microsoft.Jet.OLEDB.4.0"
    ''Definition de la chaine de connexion
    connect.ConnectionString = "C:\Documents and Settings\est\Bureau\nouv.mdb"
    ''Ouverture de la base de données
    connect.Open
    ''Exécution de la requete
    rec.CursorLocation = adUseClient
 
 
 
    cmd.CommandText = "Update mehdi SET code=Replace(code, 'OS', 'NIV') WHERE code LIKE 'OS%'"
'cmd.CommandText = "Update mehdi SET code='" & Replace(code, "OS", "NIV") & "' WHERE code LIKE 'OS%'"
'cmd.CommandText = "Update mehdi SET code='NIV1' + SubString(code, 3, 255)WHERE code LIKE 'OS%'"
    cmd.ActiveConnection = connect
    Set rec = cmd.Execute
 
    connect.Close
End Sub

[AlainTech]

Pour les messages privés, regarde en haut, à droite du forum.
Tu vois:
Bienvenue, chagala.
Votre dernière...

En dessous, il y a un lien: Messages privés.
Clique dessus.

Pour le titre, il suffit de l'écrire correctement.

[SfJ5Rpw8]

bon chagala bravo je vois que tu t'améliore sur ta façon de poster...
tu n'as toujours pas répondu à une question que je t'ai posé sur l'un de tes premiers posts ...

Ta base de donnée c'est bien Access 2000 ?