powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / HTML формат
5 сообщений из 5, страница 1 из 1
HTML формат
    #39138431
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
HTML формат
    #39138438
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну используй WebBrowser Control , например...
...
Рейтинг: 0 / 0
HTML формат
    #39138501
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
HTML формат
    #39138577
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
HTML формат
    #39140560
User_New_Nov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Непонятен мне XML, подскажите, будьте людьми.
К примеру в форме есть список с полями Параметр;Значение как передать туда данные никак ни могу понять
видимо надо использовать что то вроде Me!Список.RowSource = значения.
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / HTML формат
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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