iHistorian实时数据库连接示例与命令执行

Private Sub Command1_Click()
   
    
    Dim connection1 As New ADODB.Connection
    Dim recset1 As New ADODB.Recordset
    Dim iCount&
    Dim strConnectionString$
        
    On Error GoTo ErrorHandler

    ' connect to default iHistorian server with default credentials
    strConnectionString$ = "Provider=ihOLEDB.iHistorian.1;User Id=;Password="
    
    ' uncomment this if you want to connect to specific iHistorian server with a username and password
    'strConnectionString$ = "Provider=ihOLEDB.iHistorian.1;Data Source=MYSERVER;User Id=user1;Password=password1"
    
    ' open connection
    connection1.ConnectionString = strConnectionString$
    connection1.Open

    ' do the select.  There are multiple ways to execute a command in ADO, this is just one
    recset1.Open "SELECT * FROM ihTags", connection1
    
    ' print the output
    iCount = 0
    Do While Not recset1.EOF
        Debug.Print recset1.Fields(0)
        recset1.MoveNext
        iCount = iCount + 1
    Loop