Wolfsoftonline Ответов: 0

Как я могу получить данные с моей веб-страницы Php в vb.net


я не знаю, чтобы получить информацию из этого php-скрипта и вставить в listviwe intem




<?php
include 'conf.php';
    $result = mysql_query("SELECT * FROM sales");
    while($row = mysql_fetch_array($result)){
                echo  $row['s_number'] ;
                echo  $row['product_name'];
                echo  $row['goods_number'];
                echo  $row['sold_date'] ;
                echo  $row['time_sold'];
                echo  $row['customer_name'];
                echo  $row['customer_addr'] ;
                echo  $row['moved_status'];
                echo  $row['report'];
                echo  $row['update_note'] ;
                }
?>

enhzflep

Вы "скачиваете" php-скрипт, то есть загружаете содержимое файла по адресу (скажем) "localhost/nameOfPhpScript.php" - вместо того, чтобы вернуть исходный код php, вы получаете обратно результат запуска php.

Если есть какой-то разбор JSON для VB.NET (что, я был бы удивлен, если бы их не было) было бы проще вернуть массив в кодировке JSON. Затем вы можете проанализировать это в своей программе, чтобы получить легкий для обхода массив, вместо того чтобы самостоятельно анализировать текстовый вывод скрипта.

Michael_Davies

Что вы пробовали на VB .Чистая сторона? Вы смотрели на использование WebRequest?

Надеюсь, вы используете HTTPS. Это плохая практика, чтобы просто иметь сценарий выполнения на стороне сервера, который возвращает данные без какой-либо проверки, любой получает имя сценария получить данные...

Wolfsoftonline

я позабочусь об этом позже

Michael_Davies

хорошо, вот модифицированный образец кода, который я использую, сторона PHP, которую я позволю вам проработать, но вам понадобится JSON.

При выполнении переменная responseFromServer будет содержать ответ в любой форме, в какой бы PHP его ни вернул, опять же я рекомендую JSON для кодирования ответа.

Dim responseFromServer в виде строки
Dim myRequester как WebRequest
Dim myRequestPayload As Dictionary(Of String, String)

myRequestPayload = новый словарь(Of String, String)
myRequestPayload.Добавить("ключ", HashKey) ' добавляем "ключ" переменная величина которого проверяется на php скрипт
myRequestPayload.Add("Customer", 1) ' Добавить идентификатор клиента для PHP, который будет использоваться в SQL-запросе.

Dim postData As String = "полезная нагрузка=" + Uri.EscapeUriString(JsonConvert.SerializeObject(myRequestPayload)).Заменить("&", "%26").заменить(";", "%3B")
Дим объекта ByteArray, как Byte() = кодировка.Кодировке utf8.GetBytes(postData)

myRequester = WebRequest.Создать(<site link="">)
мой запрос.Метод = "сообщение"
мой запрос.ContentType = "application/x-www-form-urlencoded"
мой запрос.ContentLength = byteArray.Длина

Дим поток данных, а поток = myRequester.Метод getrequeststream()
поток данных.Напишите(byteArray, 0, byteArray.Длина)
поток данных.Закрывать()

Попробуй
response = CType(myRequester.GetResponse(), HttpWebResponse)
Поймать ex как исключение
Ответ = ctype для(например, система.Нет.Веб-исключение).Ответ
Конец Попытки

Если Ответ.StatusCode = HttpStatusCode.Тогда ладно
Dim reader как новый StreamReader(ответ.GetResponseStream())

responseFromServer = reader.ReadToEnd()

читатель.Закрывать()

...

Wolfsoftonline

большое спасибо что прекрасно я понятия не имел о json

Wolfsoftonline

я хотел бы знать, как связаться с вами на facebook skype name или любом другом контакте, который вы можете поблагодарить

Wolfsoftonline

но я получаю ошибку, которую не могу решить, как мне заполнить listviw его данными с веб-страницы php

Michael_Davies

вам нужно показать свой VB-код, иначе это бесполезно.

ZurdoDev

Просто google how to use ListView in VB.NEt. Простой.

Richard MacCutchan

Поздновато, старина Боб.

ZurdoDev

"26 февраля-15" - или очень рано? 15 февраля 2026 года?

:)

Richard MacCutchan

:))

0 Ответов