Lecture dans une base de donnée SQL en VBS
Bonjour,
Je souhaite lire dans une BDD SQL en vbs, je suis vraiment novice et j'aimerai des conseils qui m'explique, je ne cherche pas "juste un code tout fait" ^^
J'ai trouvé ca:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| dim ConnDataBase
dim TablES1
dim CheminNomDelabase
dim NomDeLaTable
dim SQL
'***** à adapter ***************************************
CheminNomDelabase = "C:\PersoFrancis\BDpourEssais.mdb"
NomDeLaTable = "Principal"
'***** fini à adapter **********************************
Set ConnDataBase = createobject("ADODB.Connection")
SQL="PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source= " & CheminNomDelabase & ";"
ConnDataBase.open SQL
Set TablES1 = CreateObject("ADODB.Recordset")
SQL= NomDeLaTable
TablES1.open SQL, ConnDataBase, 3, 2
.........
TablES1.Close
ConnDataBase.Close |
Je pense avoir compris cette parti :
Code:
1
2
3
| Set ConnDataBase = createobject("ADODB.Connection")
SQL="PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source= " & CheminNomDelabase & ";"
ConnDataBase.open SQL |
Initialise une connection à une BDD
Défini le type de BDD, son emplacement et se connecte
Est ce bien ca ?
Ensuite,
Code:
1
2
3
4
5
6
| Set TablES1 = CreateObject("ADODB.Recordset")
SQL= NomDeLaTable
TablES1.open SQL, ConnDataBase, 3, 2
.........
TablES1.Close
ConnDataBase.Close |
Vous pouvez mm'expliquer ?
Merci d'avance
Maxime
