Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / HTML формат / 5 сообщений из 5, страница 1 из 1
25.12.2015, 19:09
    #39138431
User_New_Nov
User_New_Nov
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HTML формат
Привет, кто что подскажет.
Есть база, в ней хранится описание товара, которое используется для импорта описания на сайт компании, хотелось бы его - это описание использовать так же и в повседневной жизни, ну что бы не лезть в интернет и не гонять трафик :) к примеру можно использовать при выводе ценника на товар
Код: 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:18
    #39138438
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HTML формат
Ну используй WebBrowser Control , например...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.12.2015, 23:04
    #39138501
HTML,
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
| Ответить | Цитировать | Написать  
26.12.2015, 11:38
    #39138577
User_New_Nov
User_New_Nov
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HTML формат
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
| Ответить | Цитировать | Написать  
30.12.2015, 12:24
    #39140560
User_New_Nov
User_New_Nov
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HTML формат
Непонятен мне XML, подскажите, будьте людьми.
К примеру в форме есть список с полями Параметр;Значение как передать туда данные никак ни могу понять
видимо надо использовать что то вроде Me!Список.RowSource = значения.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / HTML формат / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 148ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1614103]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 45ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 14ms
total:  148ms
x
x
Закрыть


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