ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Unix + vbs
9 сообщений из 9, страница 1 из 1
Unix + vbs
    #35101154
allvlg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
allvlg
Гость
подскажите, или дайте ссылку по теме :
мне надо на vbs (wmi) залесть на unix овую машину, на определенной базе запустить выборку и т.п. как это сделать?
заранее благодарен!Ё
...
Рейтинг: 0 / 0
31.01.2008, 15:50
| Ответить | Цитировать | Написать  
Unix + vbs
    #35101160
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
База то какая ?
...
Рейтинг: 0 / 0
31.01.2008, 15:51
| Ответить | Цитировать | Написать  
Unix + vbs
    #35101183
allvlg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
allvlg
Гость
informix
если это поможет
...
Рейтинг: 0 / 0
31.01.2008, 15:56
| Ответить | Цитировать | Написать  
Unix + vbs
    #35101191
allvlg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
allvlg
Гость
allvlginformix
если это поможет
больше интересует общая схема подключения. лучше конечно если на примере, а там я думаю разберусь.
...
Рейтинг: 0 / 0
31.01.2008, 15:57
| Ответить | Цитировать | Написать  
Unix + vbs
    #35101328
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
А зачем через WMI запускать запрос ? На ADO разве нельзя к информиксу подключиться ?
...
Рейтинг: 0 / 0
31.01.2008, 16:24
| Ответить | Цитировать | Написать  
Unix + vbs
    #35101430
allvlg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
allvlg
Гость
ок! подскажи тогда как, или дай ссылку где можно почитать как это сделать, желательно конечно с примерами (в идеале)
...
Рейтинг: 0 / 0
31.01.2008, 16:44
| Ответить | Цитировать | Написать  
Unix + vbs
    #35101709
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Ищи odbc-драйвер для информикса. Называется Intersolv(е? а може и без е) Informix driver с какими-то цифрами.
...
Рейтинг: 0 / 0
31.01.2008, 17:53
| Ответить | Цитировать | Написать  
Unix + vbs
    #35101723
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
У тебя, на виндовой машине есть odbc или oledb драйвер для твоей базы данных? Если есть, то все элементарно:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.
128.
129.
130.
131.
132.
133.
134.
135.
136.
137.
138.
139.
140.
141.
142.
143.
144.
145.
146.
147.
148.
149.
150.
151.
152.
<!-- BeginMoveFirstVBS -->
<%@ Language=VBScript %>
<%' use this meta tag instead of adovbs.inc%>
<!--METADATA TYPE="typelib" uuid="00000205-0000-0010-8000-00AA006D2EA4" -->
<HTML>
<HEAD>
<TITLE>ADO MoveNext, MovePrevious, MoveLast, MoveFirst Methods</TITLE>

<SCRIPT LANGUAGE="VBScript">
<!--
   Sub cmdDown_OnClick
      'Set Values in Form Input Boxes and Submit Form
      Document.form.MoveAction.Value = "MovePrev"
      Document.Form.Submit
   End Sub

   Sub cmdUp_OnClick
      Document.form.MoveAction.Value = "MoveNext"
      Document.Form.Submit
   End Sub

   Sub cmdFirst_OnClick
      Document.form.MoveAction.Value = "MoveFirst"
      Document.Form.Submit
   End Sub

   Sub cmdLast_OnClick
      Document.form.MoveAction.Value = "MoveLast"
      Document.Form.Submit
   End Sub
//-->
</SCRIPT>
</HEAD>

<body bgcolor="white"> 
<h1 align="center">ADO MoveNext, MovePrevious <br> MoveLast & MoveFirst Methods</h1>
<% ' to integrate/test this code replace the 
   ' Data Source value in the Connection string%>
<% 
   ' connection and recordset variables
   Dim Cnxn, strCnxn
   Dim rsEmployees, strSQLEmployees

   ' open connection
    Set Cnxn = Server.CreateObject("ADODB.Connection")
    strCnxn = "Provider='sqloledb';Data Source=" & _
            Request.ServerVariables("SERVER_NAME") & ";" & _
            "Integrated Security='SSPI';Initial Catalog='Northwind';"
    Cnxn.Open strCnxn
      
    ' create and open Recordset using object refs
   Set rsEmployees = Server.CreateObject("ADODB.Recordset")
   strSQLEmployees = "Employees"
   
   rsEmployees.ActiveConnection = Cnxn
   rsEmployees.CursorLocation = adUseClient
   rsEmployees.CursorType = adOpenKeyset
   rsEmployees.LockType = adLockOptimistic
   rsEmployees.Source = strSQLEmployees
   rsEmployees.Open

   rsEmployees.MoveFirst

   If Not IsEmpty(Request.Form("MoveAction")) Then
      strAction = Request.Form("MoveAction")
      varPosition  = Request.Form("Position")
      
      rsEmployees.AbsolutePosition = varPosition
      
      Select Case strAction
      
        Case "MoveNext"
        
         rsEmployees.MoveNext
         If rsEmployees.EOF Then
            rsEmployees.MoveLast
            strMessage = "Can't move beyond the last record."
         End If
        
        Case "MovePrev"
        
         rsEmployees.MovePrevious
         If rsEmployees.BOF Then
            rsEmployees.MoveFirst
            strMessage = "Can't move beyond the first record."
         End If

        Case "MoveLast"
      
         rsEmployees.MoveLast
      
        Case "MoveFirst"
      
         rsEmployees.MoveFirst
      
      End Select
   End If
      
%>

<!-- Display Current Record Number and Recordset Size -->
<h2>Record Number <%=rsEmployees.AbsolutePosition%> of <%=rsEmployees.RecordCount%></H2>
<hr>
<table cellpadding= 5  border= 0 >
<!-- BEGIN column header row for Customer Table-->
<tr>
   <th>Name</th>
   <th>Hire Date</th>
</tr>

<!--Display ADO Data from Customer Table-->
<tr>
  <td><%= rsEmployees("LastName") & ", " %> 
      <%= rsEmployees("FirstName") & " " %></td>
  <td><%= rsEmployees("HireDate")%></td>
</tr> 
<tr>
  <td colspan= 2 ><%=strMessage%></td>
</tr>
</table>

<hr>

<form Name="Form" Method="Post" Action="MoveFirstVbs.asp">
<Input Type=Button Name=cmdDown Value="<">
<Input Type=Button Name=cmdUp Value=">">
<BR>
<H3>Click Direction Arrows to Use MovePrevious or MoveNext</H3>
<Input Type=Button Name=cmdFirst Value="First Record">
<Input Type=Button Name=cmdLast Value="Last Record">


<!-- Use Hidden Form Fields to record values to send to Server -->

<input Type="Hidden" Size="4" Name="MoveAction" Value="Move">
<input Type="Hidden" Size="4" Name="Position" Value="<%= rsEmployees.AbsolutePosition%>">
</form>

<HR>
</BODY>

<%
    ' clean up
    If rsEmployees.State = adStateOpen then
        rsEmployees.Close
    End If
    If Cnxn.State = adStateOpen then
        Cnxn.Close
    End If
%>
</HTML>
<!-- EndMoveFirstVBS -->
И вообще, иди на msdn, выкачивай MDAC, в нем есть полная документация на ADO со всеми описаниями и примерами (этот пример как раз из нее и выдран)
...
Рейтинг: 0 / 0
31.01.2008, 17:57
| Ответить | Цитировать | Написать  
Unix + vbs
    #35114712
allvlg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
allvlg
Гость
ок! огромный сенкс!!!
...
Рейтинг: 0 / 0
06.02.2008, 17:37
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Unix + vbs
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=202&tid=2162730]:
 0ms
get settings:
 11ms
get forum list:
 20ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 54ms
get topic data:
 14ms
get forum data:
 2ms
get page messages:
 56ms
get tp. blocked users:
 2ms
others: 240ms
total:  407ms
созд. / загр.: 407ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]