1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| Dim Password As String
Dim SQLStr As String
Dim Server_Name As String
Dim User_ID As String
Dim Database_Name As String
Dim table_name As String
Set Rs = CreateObject("ADODB.Recordset")
Server_Name = "localhost"
Database_Name = "espaces_verts"
User_ID = "fmarguer"
Password = "fmarguer"
Driver = "FMA PCF"
Set cn = CreateObject("ADODB.Connection")
cn.Open "Driver=FMA PCF;Server=" & _
Server_Name & ";Database=" & Database_Name & _
";Uid=" & User_ID & ";Pwd=" & Password & ";"
SQLStr = "select * from liste_auteurs"
Rs.Open SQLStr, cn, adOpenStatic |
Partager