[VB.net 2005] Utilizzare XML come Origine Dati

  • Creatore Discussione Creatore Discussione seven.7
  • Data di inizio Data di inizio

seven.7

Nuovo Utente
8 Gen 2007
23
0
0
Ma perchè non riesco a trovare (quando faccio nuova origine dati) il formato XML ? possibile che posso gestire la cosa solo tramite codice? se è così allora come faccio a settare le caratteristiche tipo la larghezza minima delle colonne ecc... :(
 
Allora io creo la struttura xml, al data grid imposto la sorgente xml ed è tutto ok. Ora le l'eliminazione della riga selezionata nel datagrid come faccio ad identificare la riga selezionata? di seguito posto il codice :D grazie mille e scusami se sono un po' indietro ma stò studiando... grazie ancora

Codice:
Dim DS As New Data.DataSet
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Quando carica il programma deve verificare l'esistenza o meno
        'del file XML che contiene il registro degli eventi
        Dim EsistenzaRegistro As Boolean
        EsistenzaRegistro = My.Computer.FileSystem.FileExists(Application.StartupPath + "\RegistroCode.xml")

        'Se il file non esiste allora crea un file XML con la relativa struttura
        'dichiarata che fungerà da database
        If EsistenzaRegistro = False Then
            DS.DataSetName = "DatasetCodice"
            DS.Tables.Add("RegistroCodice")
            DS.Tables("RegistroCodice").Columns.Add("Nome")
            DS.Tables("RegistroCodice").Columns.Add("Cognome")
            DS.WriteXml(Application.StartupPath + "\RegistroCode.xml", XmlWriteMode.WriteSchema)
        End If
        DS.ReadXml(Application.StartupPath + "\RegistroCode.xml")
        DG.DataSource = DS
        DG.DataMember = "RegistroCodice"
    End Sub

    Private Sub salva_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles salva.Click
        Dim nuovomodulo As DataRow = DS.Tables("RegistroCodice").NewRow
        nuovomodulo("Nome") = Me.cmpnome.Text
        nuovomodulo("Cognome") = Me.cmpcognome.Text
        DS.Tables("RegistroCodice").Rows.Add(nuovomodulo)
        DS.WriteXml(Application.StartupPath + "\RegistroCode.xml")
    End Sub
 

Discussioni simili