Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / WinForms, .Net Framework Новый топик    Ответить
 VB Express + XML  [new]
Zapekank0
Member

Откуда:
Сообщений: 37
Подскажите, пожалуйста, через какие элементы управления и как в Visual Basic Express можно работать с XML? (вывести содержимое файла в табличку, добавить данные ... )

Спасибо.
3 май 07, 15:58    [4095794]     Ответить | Цитировать Сообщить модератору
 Re: VB Express + XML  [new]
Zapekank0
Member

Откуда:
Сообщений: 37
Нашел...
Dim dsAgency As New DataSet("agency")

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim filePath As String
        filePath = "C:/_Projects/test.xml"
        dsAgency.ReadXml(filePath)
        With dg_test
            .DataSource = dsAgency
            .DataMember = "agency"
        End With
    End Sub

Только вот не все считывает...
исходный файл xml:
<Table>
	<agency>
		<agency_name>Агенство Х</agency_name>
		<agency_code>0001</agency_code>
		<Contract>
			<No_Contract>0001</No_Contract>
			<Person>
				<No_Person>1</No_Person>
				<Person_First_Name>Тучкин</Person_First_Name>
				<Person_Last_Name>Алексей</Person_Last_Name>
			</Person>
			<Person>
				<No_Person>2</No_Person>
				<Person_First_Name>Кошкин</Person_First_Name>
				<Person_Last_Name>Михаил</Person_Last_Name>
			</Person>	
			<Sum>0,1</Sum>
			<Empty_Sum>0.1</Empty_Sum>
			<consultant>
				<first_name>Петров</first_name>
				<middle_name>Василь</middle_name>
				<last_name>Иванович</last_name>
			</consultant>
		
		</Contract>
		<Contract>
			<No_Contract>0002</No_Contract>
			<consultant>
				<first_name>Петров</first_name>
				<middle_name>Василь</middle_name>
				<last_name>Иванович</last_name>
			</consultant>
		</Contract>
	</agency>
	
</Table>

выводит только
"Агенство Х" "0001"
остальных данных нет...
В чем причина?
3 май 07, 17:33    [4096427]     Ответить | Цитировать Сообщить модератору
 Re: VB Express + XML  [new]
winsky!
Member

Откуда: Киев
Сообщений: 5116
With dg_test
            .DataSource = dsAgency
            .DataMember = "Cotract"
        End With
With dg_test
            .DataSource = dsAgency
            .DataMember = "Person"
        End With
3 май 07, 18:56    [4096869]     Ответить | Цитировать Сообщить модератору
 Re: VB Express + XML  [new]
winsky!
Member

Откуда: Киев
Сообщений: 5116
Cotract читать как Contract
3 май 07, 18:57    [4096873]     Ответить | Цитировать Сообщить модератору
 Re: VB Express + XML  [new]
Zapekank0
Member

Откуда:
Сообщений: 37
А можно ли выводить инфу из XML-файлов в другие контролы, а также добавлять/удалять записи в этом файле?
Где можно об этом почитать?

Заранее спасибо!
4 май 07, 09:27    [4097742]     Ответить | Цитировать Сообщить модератору
 Re: VB Express + XML  [new]
asmod64
Member

Откуда: Minsk
Сообщений: 751
Imports System.Xml
там есть все что надо
4 май 07, 09:38    [4097793]     Ответить | Цитировать Сообщить модератору
 Re: VB Express + XML  [new]
Zapekank0
Member

Откуда:
Сообщений: 37
Спасибо.

MsgBox("agency_name " + reader.ReadString())
таким образом я вижу значение reader.ReadString()

ListBox1.Items.Item(i) = reader.ReadString()
а вот так не могу добавить в лист бокс

Подскажите, почему не добавляются записи в ListBox?
4 май 07, 11:23    [4098545]     Ответить | Цитировать Сообщить модератору
 Re: VB Express + XML  [new]
Zapekank0
Member

Откуда:
Сообщений: 37
ListBox1.Items.Add(reader.ReadString())

так тож не срабатывает
4 май 07, 11:29    [4098591]     Ответить | Цитировать Сообщить модератору
 Re: VB Express + XML  [new]
Zapekank0
Member

Откуда:
Сообщений: 37
Zapekank0
ListBox1.Items.Add(reader.ReadString())

так тож не срабатывает


ListBox1.Items.Add(reader.ReadString().ToString())

!!!
4 май 07, 11:42    [4098731]     Ответить | Цитировать Сообщить модератору
Все форумы / WinForms, .Net Framework Ответить