Dim rs As New ADODB.Recordset
Dim comm As New ADODB.Command
comm.ActiveConnection = "Driver={SQL Server};Server=(Server);Database=master;Uid=(admin);Pwd=(*****);"
comm.CommandText = "exec sp_helpdb"
Set rs = comm.Execute
rs.MoveFirst
Do Until rs.EOF
If rs.Fields(5).Value Like "*Status=ONLINE*" Then
Debug.Print rs.Fields(1).Value, rs.Fields(2).Value, rs.Fields(3).Value ' ...
End If
rs.MoveNext
Loop
Set rs = Nothing
Set comm = Nothing
Помогите разобратся свыводом данных в ячейки
Код:
Помогите разобратся, он почему-то не выводит данные в ячейки!!!!!:confused:
[QUOTE=Urfen_Djus]
Помогите разобратся, он почему-то не выводит данные в ячейки!!!!!:confused:[/QUOTE]
А где по-твойму он должен выводить инфо в ячейке?
Этот кусок кода явно демострация возможностей, и вывод инфо происходит в объект Debug (в VBA Ctrl+G можно увидеть результат).
в ячейки вывод будет что-то типа
Код:
Dim rs As New ADODB.Recordset
Dim comm As New ADODB.Command
comm.ActiveConnection = "Driver={SQL Server};Server=(Server);Database=master;Uid=(admin);Pwd=(*****);"
comm.CommandText = "exec sp_helpdb"
Set rs = comm.Execute
rs.MoveFirst
Do Until rs.EOF
If rs.Fields(5).Value Like "*Status=ONLINE*" Then
Debug.Print rs.Fields(1).Value, rs.Fields(2).Value, rs.Fields(3).Value ' ...
End If
rs.MoveNext
Loop
Set rs = Nothing
Set comm = Nothing
Dim comm As New ADODB.Command
comm.ActiveConnection = "Driver={SQL Server};Server=(Server);Database=master;Uid=(admin);Pwd=(*****);"
comm.CommandText = "exec sp_helpdb"
Set rs = comm.Execute
rs.MoveFirst
Do Until rs.EOF
If rs.Fields(5).Value Like "*Status=ONLINE*" Then
Debug.Print rs.Fields(1).Value, rs.Fields(2).Value, rs.Fields(3).Value ' ...
End If
rs.MoveNext
Loop
Set rs = Nothing
Set comm = Nothing
Помогите разобратся, он почему-то не выводит данные в ячейки!!!!!:confused:[/QUOTE]
А где по-твойму он должен выводить инфо в ячейке?
Этот кусок кода явно демострация возможностей, и вывод инфо происходит в объект Debug (в VBA Ctrl+G можно увидеть результат).
в ячейки вывод будет что-то типа
Код:
Workbooks("...").Worksheets("...").Range("A1").Value = rs.Fields(1).Value
Workbooks("...").Worksheets("...").Range("B1").Value = rs.Fields(2).Value
Workbooks("...").Worksheets("...").Range("C1").Value = rs.Fields(3).Value
Workbooks("...").Worksheets("...").Range("B1").Value = rs.Fields(2).Value
Workbooks("...").Worksheets("...").Range("C1").Value = rs.Fields(3).Value
Спасибо!!!