说明: 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 strConnectionStri <chongchongfanshen> 上传 | 大小:1kb