ReSQL.ru
     
powered by simpleCommunicator - 2.0.56     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / HTML формат
5 сообщений из 5, страница 1 из 1
HTML формат
    #39138431
User_New_Nov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
User_New_Nov
Гость
Привет, кто что подскажет.
Есть база, в ней хранится описание товара, которое используется для импорта описания на сайт компании, хотелось бы его - это описание использовать так же и в повседневной жизни, ну что бы не лезть в интернет и не гонять трафик :) к примеру можно использовать при выводе ценника на товар
Код: html
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
<table class="striped techpars">
									<tr>
										<th>
											Тип
										</th>
										<td>
												Шнур сетевой EURO
											</td>
									</tr>
								
									<tr>
										<th>
											Длина
										</th>
										<td>
												1.5 м
											</td>
									</tr>
								
							</table>


каким образом эти данные можно вывести в форме или в отчёте? ну что бы как в www.
...
Рейтинг: 0 / 0
25.12.2015, 19:09
| Ответить | Цитировать | Написать  
HTML формат
    #39138438
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Ну используй WebBrowser Control , например...
...
Рейтинг: 0 / 0
25.12.2015, 19:18
| Ответить | Цитировать | Написать  
HTML формат
    #39138501
HTML,
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HTML,
Гость
User_New_Nov,

Код: vbnet
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.
Sub test()
    Dim xml As MSXML2.DOMDocument
    Dim v
    Dim i As Long
    
    Const s = "<table class=""striped techpars"">" & _
                                    "<tr>" & _
                                        "<th>" & _
                                            "Тип" & _
                                        "</th>" & _
                                        "<td>" & _
                                                "Шнур сетевой EURO" & _
                                            "</td>" & _
                                    "</tr>" & _
                                    "<tr>" & _
                                        "<th>" & _
                                            "Длина" & _
                                        "</th>" & _
                                        "<td>" & _
                                                "1.5 м" & _
                                            "</td>" & _
                                    "</tr>" & _
                            "</table>"
    Set xml = CreateObject("MSXML2.DOMDocument")
    If xml.loadXML(s) Then
        For i = 0 To xml.selectNodes("/table/tr/th").length - 1
            Debug.Print xml.selectNodes("/table/tr/th/text()").Item(i).Text, xml.selectNodes("/table/tr/td/text()").Item(i).Text
        Next
    End If
    Set xml = Nothing
End Sub


Код: vbnet
1.
2.
Тип           Шнур сетевой EURO
Длина         1.5 м
...
Рейтинг: 0 / 0
25.12.2015, 23:04
| Ответить | Цитировать | Написать  
HTML формат
    #39138577
User_New_Nov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
User_New_Nov
Гость
HTML,,

с WebBrowser Control всё понятно, размещаем на форме контрол и передаём в него значение.
А как применить код:
Код: vbnet
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.
Sub test()
    Dim xml As MSXML2.DOMDocument
    Dim v
    Dim i As Long
    
    Const s = "<table class=""striped techpars"">" & _
                                    "<tr>" & _
                                        "<th>" & _
                                            "Тип" & _
                                        "</th>" & _
                                        "<td>" & _
                                                "Шнур сетевой EURO" & _
                                            "</td>" & _
                                    "</tr>" & _
                                    "<tr>" & _
                                        "<th>" & _
                                            "Длина" & _
                                        "</th>" & _
                                        "<td>" & _
                                                "1.5 м" & _
                                            "</td>" & _
                                    "</tr>" & _
                            "</table>"
    Set xml = CreateObject("MSXML2.DOMDocument")
    If xml.loadXML(s) Then
        For i = 0 To xml.selectNodes("/table/tr/th").length - 1
            Debug.Print xml.selectNodes("/table/tr/th/text()").Item(i).Text, xml.selectNodes("/table/tr/td/text()").Item(i).Text
        Next
    End If
    Set xml = Nothing
End Sub



что то не въеду, к примеру его нужно применить в отчёте, вывести данные этой таблицы в отчёт в некое поле Descr, командай me.Descr=test ничего не получается, подскажите....
...
Рейтинг: 0 / 0
26.12.2015, 11:38
| Ответить | Цитировать | Написать  
HTML формат
    #39140560
User_New_Nov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
User_New_Nov
Гость
Непонятен мне XML, подскажите, будьте людьми.
К примеру в форме есть список с полями Параметр;Значение как передать туда данные никак ни могу понять
видимо надо использовать что то вроде Me!Список.RowSource = значения.
...
Рейтинг: 0 / 0
30.12.2015, 12:24
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / HTML формат
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=39138438&tid=1614103]:
 0ms
get settings:
 11ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 37ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 16ms
total:  148ms
созд. / загр.: 148ms
x
x
Закрыть


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