Discussion :

[angelevil]

J'aimerais savoir quelle commande pour savoir si une colonne X existe dans une table.

Merci.

AngelEvil

[riesseg]

SELECT Colonne FROM table

et la, je sais pas si :

- il te fais une erreur
- il te dit qu'il n'y a rien trouvé...

ah si.

en fait, j'ai une idee en PHP dans la date, faut que je vois pour l'adapter en vb

quand tu fais ton datMessages.RecordSource = SQLString

essaye
If ( datMessages.RecordSource = SQLString ) Then
tu continue normalement

donc il ira dans le if que si il a reussi sa requete.
ca marche en php, mais en VB...

[angelevil]

j'ai entendu parlé de la commande tabledef en ADO....

Est-ce que ca vous dit de quoi ????

[SilkyRoad]

bonjour

J'espere que cette macro pourra t'aider

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
 
Private Sub Command1_Click()
'
'necessite d'activer la reference Microsoft ADO Ext. x.x for DDL and Security
'necessite d 'activer la reference Microsoft ActiveX Data Objects x.x Library
'
Dim Cat As ADOX.Catalog
Dim Champ As ADOX.Column
Dim Fichier As String
Dim Cn As ADODB.Connection
 
Fichier = ("C:\dataBase.mdb")
 
Set Cn = New Connection
With Cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Open Fichier
End With
Set Cat = CreateObject("ADOX.Catalog")
Set Cat.ActiveConnection = Cn
 
On Error Resume Next
Set Champ = Cat.tables("Table1").Columns("nomChamp")
 
If Champ Is Nothing Then
MsgBox "Le champ n'existe pas ."
Else
MsgBox "La champ existe ."
End If
'
'
'la suite de la procedure
'
 
Cn.Close
Set Cn = Nothing
Set Cat = Nothing
End Sub

bonne journée
michel