If DB.State = adStateClosed Then
Select Case UCase(strBaseDeDonnéeType)
Case "ACCESS"
DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " &
strCheminBase & strNomBase
Case "ODBC"
DB.Open "Provider=MSDASQL.1;Persist Security Info=False;Data
Source=surgest;Initial Catalog=" & strCheminBase & strNomBase
Case "SQLOLEDB"
strSERVER = LireDansINI(strFichierINI, "Configuration",
"SERVER", "*AUCUN")
If strSERVER = "*AUCUN" Then
Call MsgBox("Veuillez configurer les paramètres dans le
fichier .ini " & vbCrLf & "Driver=, Serveur=,Database=, UID=,
MotDePasse=, dans la section CONFIGURATION et redémmarer ", vbCritical,
"Configuration de votre serveur SQL sans DSN")
End
End If
strDatabase = LireDansINI(strFichierINI, "Configuration",
"DATABASE", "*AUCUN")
strUID = LireDansINI(strFichierINI, "Configuration", "UID",
"*AUCUN")
strMotDePasse = LireDansINI(strFichierINI, "Configuration",
"motdepasse", "*AUCUN")
Dim r As ADODB.Recordset
Set r = New ADODB.Recordset
'****************************************************************
'*********************************** Fichier restaurer
'****************************************************************
On Error GoTo err_restaurer
r.Open "SELECT * FROM [Fichier restaurer]", DB, adOpenStatic,
adLockOptimistic
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
Zoury
Salut Yves! :O)
Peut-on creer une base SQL avec VB 6 en programmation ?
Oui.
Note aussi que l'installation d'MSDE fournit un utilitaire nommé OSQL, qui te permet d'exécuter des requêtes sur le serveur sans passer par VB. C'est ce que j'utilise pour lancer le script SQL de création de base de données.
Regarde ce lien pour plus de détails : Using the osql utility (regarde aussi le lien osql utility pour les paramètres) http://msdn.microsoft.com/library/en-us/acdata/ac_8_mta_01_5cmk.asp
Comment ?
Tu peux employer la librairie ADODB ou encore son extension nommé ADOX.
exemple en ADODB <non testé>: '*** Dim cn As ADODB.Connection Set cn = New ADODB.Connection
' on se connecte sur la bd Master Call cn.Open("Provider=SQLOLEDB;Data Source=NomDeVotreMachineFABSQL;Initial Catalog=master;UID=sa;")
' on call la requête de création de BD Call cn.Execute("create database mybase;")
' on ferme la connexion.. après ça tu devrais pouvoir te connecter à la nouvelle base de données :O) Call cn.Close() '***
ADOX API reference http://msdn.microsoft.com/library/en-us/ado270/htm/admscadoapireference.asp
voici un exemple créant une BD access. http://msdn.microsoft.com/library/en-us/ado270/htm/admscdatabasecreationexample.asp
Que dois-je ecrire pour ouvrir la base dans le ID ? Voici mon code Source=NomDeVotreMachineFABSQL Initial Catalog=c:Ma Base User Id==? Password="SA"
Étant donné que tu viens de faire l'installation, le UID devrait être "sa" et il ne devrait pas y avoir de mot de passe.
n'hésite pas si tu as d'autres questions -- Cordialement Yanick MVP pour Visual Basic
Salut Yves! :O)
Peut-on creer une base SQL avec VB 6 en programmation ?
Oui.
Note aussi que l'installation d'MSDE fournit un utilitaire nommé OSQL, qui
te permet d'exécuter des requêtes sur le serveur sans passer par VB. C'est
ce que j'utilise pour lancer le script SQL de création de base de données.
Regarde ce lien pour plus de détails :
Using the osql utility (regarde aussi le lien osql utility pour les
paramètres)
http://msdn.microsoft.com/library/en-us/acdata/ac_8_mta_01_5cmk.asp
Comment ?
Tu peux employer la librairie ADODB ou encore son extension nommé ADOX.
exemple en ADODB <non testé>:
'***
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
' on se connecte sur la bd Master
Call cn.Open("Provider=SQLOLEDB;Data Source=NomDeVotreMachineFABSQL;Initial
Catalog=master;UID=sa;")
' on call la requête de création de BD
Call cn.Execute("create database mybase;")
' on ferme la connexion.. après ça tu devrais pouvoir te connecter à la
nouvelle base de données :O)
Call cn.Close()
'***
ADOX API reference
http://msdn.microsoft.com/library/en-us/ado270/htm/admscadoapireference.asp
voici un exemple créant une BD access.
http://msdn.microsoft.com/library/en-us/ado270/htm/admscdatabasecreationexample.asp
Que dois-je ecrire pour ouvrir la base dans le ID ? Voici mon code
Source=NomDeVotreMachineFABSQL
Initial Catalog=c:Ma Base
User Id==?
Password="SA"
Étant donné que tu viens de faire l'installation, le UID devrait être "sa"
et il ne devrait pas y avoir de mot de passe.
n'hésite pas si tu as d'autres questions
--
Cordialement
Yanick
MVP pour Visual Basic
Peut-on creer une base SQL avec VB 6 en programmation ?
Oui.
Note aussi que l'installation d'MSDE fournit un utilitaire nommé OSQL, qui te permet d'exécuter des requêtes sur le serveur sans passer par VB. C'est ce que j'utilise pour lancer le script SQL de création de base de données.
Regarde ce lien pour plus de détails : Using the osql utility (regarde aussi le lien osql utility pour les paramètres) http://msdn.microsoft.com/library/en-us/acdata/ac_8_mta_01_5cmk.asp
Comment ?
Tu peux employer la librairie ADODB ou encore son extension nommé ADOX.
exemple en ADODB <non testé>: '*** Dim cn As ADODB.Connection Set cn = New ADODB.Connection
' on se connecte sur la bd Master Call cn.Open("Provider=SQLOLEDB;Data Source=NomDeVotreMachineFABSQL;Initial Catalog=master;UID=sa;")
' on call la requête de création de BD Call cn.Execute("create database mybase;")
' on ferme la connexion.. après ça tu devrais pouvoir te connecter à la nouvelle base de données :O) Call cn.Close() '***
ADOX API reference http://msdn.microsoft.com/library/en-us/ado270/htm/admscadoapireference.asp
voici un exemple créant une BD access. http://msdn.microsoft.com/library/en-us/ado270/htm/admscdatabasecreationexample.asp
Que dois-je ecrire pour ouvrir la base dans le ID ? Voici mon code Source=NomDeVotreMachineFABSQL Initial Catalog=c:Ma Base User Id==? Password="SA"
Étant donné que tu viens de faire l'installation, le UID devrait être "sa" et il ne devrait pas y avoir de mot de passe.
n'hésite pas si tu as d'autres questions -- Cordialement Yanick MVP pour Visual Basic
