Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Windows Windows Serveur SQL Serveur Creer une base SQL avec VB6

Creer une base SQL avec VB6

3 réponses
Avatar
Yves
Bonjour à tous,

Voici ma question:

J'ai fait une application en VB6 avec une base SQL Serveur
A l'installation je crée ma base SQL avec un script (Manuellement)

mais je voudrais pouvoir créer une autre base, et des tables pour pouvoir
faire de
l'épuration de mes enrégistrements vers les nouvelles tables

1. Comment créer une base SQL Server
2. Comment créer les tables SQL Server
3. Comment créer des champs SQL Server

en programmation VB6


--
Merci pour les réponse
--
Y. Kelley

voici mon code d'ouverture de la base Server SQL


'SQLOLEDB
If DB.State = adStateClosed Then
DB.Open "Provider=SQLOLEDB;Data Source=" & strSERVER &
";Initial Catalog=" & strDatabase & ";User Id=" & strUID
& ";Password=" & strMotDePasse
end if

Dim r As ADODB.Recordset
Set r = New ADODB.Recordset

r.Open "SELECT * FROM Externe where [No dossier] is null", DB,
adOpenStatic, adLockOptimistic
If r.RecordCount > 0 Then
Do While Not r.EOF
r.Delete
r.MoveNext
Loop
End If
r.Close
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
M.Sauve
Créer une BD ou des objets de la BD apartir d'une applicatiom ! je pense pas
que c'est une bonne idée.
DTS est un bon outil pour transferer les données entre BD
S'il faut vraiment le faire apartir de l'application vous pouvez le faire de
la meme facon que faire un Select ... ou un Update..., voir BOL pour Create
CREATE DATABASE et CREATE TABLE
DMO(SQL2000) ou SMO (SQL2005) est un puissant COM/assemblie pour ces genres
de manipulations


"Yves" wrote in message
news:
Bonjour à tous,

Voici ma question:

J'ai fait une application en VB6 avec une base SQL Serveur
A l'installation je crée ma base SQL avec un script (Manuellement)

mais je voudrais pouvoir créer une autre base, et des tables pour pouvoir
faire de
l'épuration de mes enrégistrements vers les nouvelles tables

1. Comment créer une base SQL Server
2. Comment créer les tables SQL Server
3. Comment créer des champs SQL Server

en programmation VB6


--
Merci pour les réponse
--
Y. Kelley

voici mon code d'ouverture de la base Server SQL


'SQLOLEDB
If DB.State = adStateClosed Then
DB.Open "Provider=SQLOLEDB;Data Source=" & strSERVER &
";Initial Catalog=" & strDatabase & ";User Id=" &
strUID
& ";Password=" & strMotDePasse
end if

Dim r As ADODB.Recordset
Set r = New ADODB.Recordset

r.Open "SELECT * FROM Externe where [No dossier] is null", DB,
adOpenStatic, adLockOptimistic
If r.RecordCount > 0 Then
Do While Not r.EOF
r.Delete
r.MoveNext
Loop
End If
r.Close







Avatar
Synopsis
A mon avis, il faut créer effectivement une procédure stockée que vous
lancer de votre application VB.

En SQL : le select into est très pratique...

BEGIN TRAN

SELECT *
INTO Table_Bak
FROM Table
WHERE Critere ....

DELETE FROM Table WHERE Critere ....

COMMIT TRAN


"M.Sauve" a écrit dans le message de
news:
Créer une BD ou des objets de la BD apartir d'une applicatiom ! je pense


pas
que c'est une bonne idée.
DTS est un bon outil pour transferer les données entre BD
S'il faut vraiment le faire apartir de l'application vous pouvez le faire


de
la meme facon que faire un Select ... ou un Update..., voir BOL pour


Create
CREATE DATABASE et CREATE TABLE
DMO(SQL2000) ou SMO (SQL2005) est un puissant COM/assemblie pour ces


genres
de manipulations


"Yves" wrote in message
news:
> Bonjour à tous,
>
> Voici ma question:
>
> J'ai fait une application en VB6 avec une base SQL Serveur
> A l'installation je crée ma base SQL avec un script (Manuellement)
>
> mais je voudrais pouvoir créer une autre base, et des tables pour


pouvoir
> faire de
> l'épuration de mes enrégistrements vers les nouvelles tables
>
> 1. Comment créer une base SQL Server
> 2. Comment créer les tables SQL Server
> 3. Comment créer des champs SQL Server
>
> en programmation VB6
>
>
> --
> Merci pour les réponse
> --
> Y. Kelley
>
> voici mon code d'ouverture de la base Server SQL
>
>
> 'SQLOLEDB
> If DB.State = adStateClosed Then
> DB.Open "Provider=SQLOLEDB;Data Source=" & strSERVER &
> ";Initial Catalog=" & strDatabase & ";User Id=" &
> strUID
> & ";Password=" & strMotDePasse
> end if
>
> Dim r As ADODB.Recordset
> Set r = New ADODB.Recordset
>
> r.Open "SELECT * FROM Externe where [No dossier] is null", DB,
> adOpenStatic, adLockOptimistic
> If r.RecordCount > 0 Then
> Do While Not r.EOF
> r.Delete
> r.MoveNext
> Loop
> End If
> r.Close
>
>
>
>
>




Avatar
AF
> mais je voudrais pouvoir créer une autre base, et des tables pour pouvoir
faire de
l'épuration de mes enrégistrements vers les nouvelles tables

1. Comment créer une base SQL Server
2. Comment créer les tables SQL Server
3. Comment créer des champs SQL Server



Bonjour,
Vous pouvez utiliser des requêtes SQL tout simplement.

1.
CREATE DATABASE mabase

2.
CREATE TABLE matable (
ID int NOT NULL IDENTITY PRIMARY KEY,
colonne varchar(50) NOT NULL,
colonne2 bigint NOT NULL
)

3.
lors de la création de la table.

Antonio