Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel, ADO, Update / 3 сообщений из 3, страница 1 из 1
21.02.2006, 18:34:57
    #33559241
zodchiy_gigas
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel, ADO, Update
выбрать ячейку b9:
select * from [str1$B9:B10]

а вот обновить?

UPDATE [str1$B9:b9] SET [b9] = 1
UPDATE [str1$B9:b9] SET [str1$B9:b9] = 1

пишет: Слишком мало параметров. Требуется 1.
...
Рейтинг: 0 / 0
21.02.2006, 23:21:12
    #33559574
Excel, ADO, Update
Я так понял, ты хочешь обновить данные Excel используя ADO через ASP.

Так, как ты хочешь не получится, попробуй так.

Код: 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.
<%@LANGUAGE="VBSCRIPT"%>
<%Option Explicit%>
<html>
<head>
<title>Test</title>
</head>
<body>
<%
    Const adOpenStatic =  3 
    Const adLockPessimistic =  2 

    Dim cnn
    Dim rst
    Dim xlSource
    
    Set cnn = Server.CreateObject("ADODB.Connection")
    Set rst = Server.CreateObject("ADODB.Recordset")
    
    xlSource = Server.MapPath("1.xls")
    
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
      & xlSource & ";Extended Properties=""Excel 8.0;HDR=No"""
    rst.Open "SELECT * FROM [Sheet1$B9:B9]", cnn, _
      adOpenStatic, adLockPessimistic
    
    Response.Write("Исходные данные: ")
    Response.Write(rst.Fields( 0 ))

    ' Меняем данные.

    rst.Fields( 0 ).Value = "ChangedData"
    rst.Update
    
    ' Выводим результат.

    Response.Write("<p>")
    Response.Write("Измененные данные: ")
    Response.Write(rst.Fields( 0 ))

    rst.Close
    Set rst = Nothing
    
    cnn.Close
    Set cnn = Nothing
%>
</body>
</html>
...
Рейтинг: 0 / 0
22.02.2006, 11:32:31
    #33560256
zodchiy_gigas
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel, ADO, Update
спасибо.
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel, ADO, Update / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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