Création d'une table à partir d'une autre table en VB6
bonjour mes amis,
le but c'est de créer une table table1 à partir de la table teble2,dont je vais stocker des enregistrement selons des critères ,
j'ai fait un petit recherche sur le Forum et j'ai trouvé un exemple mais quand je le applique ça marche pas ,merci si vous avez une idée,
je signal que la table créer par foxPro (dbf)
Code:
1
2
3
4
5
6
7
8
9
10
11
12
|
Dim Conn As ADODB.Command
Dim sSQL As String
Dim Cmd As ADODB.Command
'Conn.Open "provider=vfpoledb;data source=C:\;"
Set Cmd = New ADODB.Command
Cmd.ActiveConnection = Conn
sSQL = " INSERT INTO c:\table2.dbf SELECT * FROM c:\table1.dbf "
Cmd.Execute sSQL
sSQL = "DELETE * FROM c:\table2.dbf"
Cmd.Execute sSQL
Set Cmd = Nothing |
