Discussion :

[monfiston]

Bonjour
Je souhaite interroger une base de données domoticzs
J arrive à le faire avec des bases de données access via sql, mais la je sèche....
Voici une explication de la base


https://www.dekloo.net/projets/domot...ification/2169

Pouvez vous m aider ?

[mfoxy]

Bonjour,

Gloups, je ne connais absolument pas ce program, peut-être posé la question au fournisseur ?

Tu dois certainement avoir moyen d exporter ta table vers Excel, ou peut être même lier la db en temps réel dans access et faire des requête dans celui-ci.

Désolé de ne pouvoir t aider plus

[monfiston]

ce que je souhaite c'est de connaitre les lignes de codes pour me connecter à cette base, pour le reste, je pense me débrouiller

actuellement j'essaye ceci, mais c'est pour des bases sous access

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
'Connection
Set cn = New ADODB.Connection
With cn
 .Provider = "Microsoft.ACE.OLEDB.12.0"
 .ConnectionString = "Data Source=" & ThisWorkbook.Path & "\" & ThisWorkbook.Worksheets("table3").Range("t38") & "" & ";Persist Security Info=False;"
 .Open
End With
'Définit la requête.
Set rst = New ADODB.Recordset

une idée?

[monfiston]

je viends de trouver,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub test()
Dim conn As Object, rst As Object
 
Set conn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")
 
' OPEN CONNECTION
conn.Open "DRIVER=SQLite3 ODBC Driver;Database=d:\domoticz.db;"
 
strSQL = "SELECT * FROM multiMeter;"
 
' OPEN RECORDSET
rst.Open strSQL, conn
 
' OUTPUT TO WORKSHEET
Range("A1").CopyFromRecordset rst
rst.Close
 
' FREE RESOURCES
Set rst = Nothing: Set conn = Nothing
End Sub