Créer un nouveau champs dans un fichier SQL

Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Entraide Développement Développement Visual Basic Créer un nouveau champs dans un fichier SQL

1 réponse

louise desbiens

31/01/2006 à 16:45

Bonjour à tous,

Comment créer un nouveau champs dans un fichier SQL ?

'Connexion de la base
'Microsoft ActiveX Data Objects 2.1 Library

Public DB As New ADODB.Connection

DB.Open "Provider=SQLOLEDB;Data Source=" & strSERVER &
";Initial Catalog=" & strDatabase & ";User Id=" & strUID & ";Password=" &
strMotDePasse

********************************************************************
Je peut créer des tables avec leur champs mais pas r'ajouter un champ dans
une table créer
*********************************************************************

Public Sub CreateTableEpurationSQL(strNomBaseEpuration As String,
strNomDeLaTable As String)
Dim cnn1 As ADODB.Connection
Set cnn1 = New ADODB.Connection

On Error GoTo err_CreateTableEpurationSQL
cnn1.Open DB

'*****************************************
'*** Creer les tables dans la base archive
'*****************************************
'lblBar.Caption = "Création des tables"

Call cnn1.Execute("CREATE TABLE [dbo].[ArchiveRapJ] (" & _
"[Date] [smalldatetime] NULL ," & _
"[Repert] [nvarchar] (255) COLLATE
SQL_Latin1_General_CP1_CI_AS NULL ," & _
"[Fichier] [nvarchar] (255) COLLATE
SQL_Latin1_General_CP1_CI_AS primary key not NULL" & _
") ON [PRIMARY]")

cnn1.Close

1 réponse

Josselin JOUANNET

01/02/2006 à 12:20

bonjour,

je vais te répondre en sql 92

ALTER TABLE <nom de la table>
ADD { <nom de chanp><type> BEFORE <nom de chanp>}+
DROP <nom de chanp>
MODIFY {<nom de chanp><type> +}

toutefois certain sgbr sont capricieux et peuvent avoir leur propres
spécificités.
-----------------
Cordialement
Joss

"louise desbiens" a écrit :

Bonjour à tous,

Comment créer un nouveau champs dans un fichier SQL ?

'Connexion de la base
'Microsoft ActiveX Data Objects 2.1 Library

Public DB As New ADODB.Connection

DB.Open "Provider=SQLOLEDB;Data Source=" & strSERVER &
";Initial Catalog=" & strDatabase & ";User Id=" & strUID & ";Password=" &
strMotDePasse

********************************************************************
Je peut créer des tables avec leur champs mais pas r'ajouter un champ dans
une table créer
*********************************************************************

Public Sub CreateTableEpurationSQL(strNomBaseEpuration As String,
strNomDeLaTable As String)
Dim cnn1 As ADODB.Connection
Set cnn1 = New ADODB.Connection

On Error GoTo err_CreateTableEpurationSQL
cnn1.Open DB

'*****************************************
'*** Creer les tables dans la base archive
'*****************************************
'lblBar.Caption = "Création des tables"

Call cnn1.Execute("CREATE TABLE [dbo].[ArchiveRapJ] (" & _
"[Date] [smalldatetime] NULL ," & _
"[Repert] [nvarchar] (255) COLLATE
SQL_Latin1_General_CP1_CI_AS NULL ," & _
"[Fichier] [nvarchar] (255) COLLATE
SQL_Latin1_General_CP1_CI_AS primary key not NULL" & _
") ON [PRIMARY]")

cnn1.Close

Créer un nouveau champs dans un fichier SQL

1 réponse

Veuillez sélectionner un problème