Dim rs As New ADODB.Recordset
Dim comm As New ADODB.Command
comm.ActiveConnection = "Driver={SQL Server};Server=(Server);Database=master;Uid=(Name);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
Workbooks("Кника1.xls").Worksheets("Лист1").Range("A5").Value = rs.Fields(0).Value
Workbooks("Книга.xls").Worksheets("Лист1").Range("B5").Value = rs.Fields(1).Value
Workbooks("Книга.xls").Worksheets("Лист1").Range("C5").Value = rs.Fields(2).Value
End If
rs.MoveNext
Loop
Вывод в каждую строку, а не в одну???
Код:
Вот код он работает, но выводит данные в одну строку, а мне нужно чтобы он выводил в каждую строку свою имя сервера!!!Ни хрена не могу ни чего сделать:)
[QUOTE=Urfen_Djus]
Вот код он работает, но выводит данные в одну строку, а мне нужно чтобы он выводил в каждую строку свою имя сервера!!!Ни хрена не могу ни чего сделать:)[/QUOTE]
Код:
Dim rs As New ADODB.Recordset
Dim comm As New ADODB.Command
comm.ActiveConnection = "Driver={SQL Server};Server=(Server);Database=master;Uid=(Name);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
Workbooks("Кника1.xls").Worksheets("Лист1").Range("A5").Value = rs.Fields(0).Value
Workbooks("Книга.xls").Worksheets("Лист1").Range("B5").Value = rs.Fields(1).Value
Workbooks("Книга.xls").Worksheets("Лист1").Range("C5").Value = rs.Fields(2).Value
End If
rs.MoveNext
Loop
Dim comm As New ADODB.Command
comm.ActiveConnection = "Driver={SQL Server};Server=(Server);Database=master;Uid=(Name);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
Workbooks("Кника1.xls").Worksheets("Лист1").Range("A5").Value = rs.Fields(0).Value
Workbooks("Книга.xls").Worksheets("Лист1").Range("B5").Value = rs.Fields(1).Value
Workbooks("Книга.xls").Worksheets("Лист1").Range("C5").Value = rs.Fields(2).Value
End If
rs.MoveNext
Loop
Вот код он работает, но выводит данные в одну строку, а мне нужно чтобы он выводил в каждую строку свою имя сервера!!!Ни хрена не могу ни чего сделать:)[/QUOTE]
Код:
Workbooks("Книга.xls").Worksheets("Лист1").Range("A5").Value = rs.Fields(0).Value
Workbooks("Книга.xls").Worksheets("Лист1").Range("A6").Value = rs.Fields(1).Value
Workbooks("Книга.xls").Worksheets("Лист1").Range("A7").Value = rs.Fields(2).Value
Workbooks("Книга.xls").Worksheets("Лист1").Range("A6").Value = rs.Fields(1).Value
Workbooks("Книга.xls").Worksheets("Лист1").Range("A7").Value = rs.Fields(2).Value
Спасибо!!!Выручаешь меня!!! =)))
[QUOTE=Urfen_Djus]Спасибо!!!Выручаешь меня!!! =)))[/QUOTE]
только этот вариан от Ashton-на лучше
только этот вариан от Ashton-на лучше
Код:
Dim lngI As Long
lngI = 5
Do Until rs.EOF
If rs.Fields(5).Value Like "*Status=ONLINE*" Then
Workbooks("Книга1.xls").Worksheets("Лист1"). _
Range("A" & lngI).Value = rs.Fields(0).Value
Workbooks("Книга1.xls").Worksheets("Лист1"). _
Range("B" & lngI).Value = rs.Fields(1).Value
Workbooks("Книга1.xls").Worksheets("Лист1"). _
Range("C" & lngI").Value = rs.Fields(2).Value
End If
rs.MoveNext
lngI = lngI + 1
Loop
lngI = 5
Do Until rs.EOF
If rs.Fields(5).Value Like "*Status=ONLINE*" Then
Workbooks("Книга1.xls").Worksheets("Лист1"). _
Range("A" & lngI).Value = rs.Fields(0).Value
Workbooks("Книга1.xls").Worksheets("Лист1"). _
Range("B" & lngI).Value = rs.Fields(1).Value
Workbooks("Книга1.xls").Worksheets("Лист1"). _
Range("C" & lngI").Value = rs.Fields(2).Value
End If
rs.MoveNext
lngI = lngI + 1
Loop