Grabar la ruta de una base de datos.

Oye MIAO, que raro no sabes que existen los archivos App.Config. COMPRATE UN
LIBRO!

Saludos

Paulo G. Conde M.
+58-416-4721293
+58-273-5412395

Barinas, Venezuela

"Oscar" <veletapgARROBAwanadooPUNTOcom> escribió en el mensaje
news:

Hola Leonardo,

Y para escribir en el archivo de config xml cómo se hace? y si se tuviera

que crear en tiempo de

ejecución?

Hola, Oscar:

Si quieres modificar desde afuera alguno de los parametros puedes editarlo
manualmente.

Estuve revisando la ayuda, y hay algunos ejemplos que utilizan registros de
eventos (Event Loggers) para colocar algunos valores en claves especificas
de archivos de configuración, aunque el tema se ve complejo y aun no tengo
la necesidad de meterme en ello. Seria bueno que alguien nos explicara si es
posible hacerlo, y cómo.

Pero creo que la intención de los diseñadores es que esos archivos sirvan
como mecanismo de *suministro* de información a la aplicación.

Fisicamente, un archivo XML es un archivo de texto, eso significa que para
actualizarlo se requiere crearlo nuevamente (es una operación relativamente
lenta) y grabar todo el contenido actualizado. Para almacenar parametros que
puedas alterar dinámicamente durante la ejecución de tu aplicación puedes
utilizar el registro, que puedes manejar simplemente con los viejos metodos
de VB6 (GetSetting, SaveSetting) o con la clase RegistryKey, en
Microsoft.Win32.

Salud!

Leonardo
mvp vb

Lo que no e tenido la necesidad para hacerlo.
Se existe algo porai para eso.
Asi que no e leido sobre eso.


Miao..

Oye MIAO, que raro no sabes que existen los archivos

App.Config. COMPRATE UN

LIBRO!

Saludos

Paulo G. Conde M.
+58-416-4721293
+58-273-5412395

Barinas, Venezuela


.

Aqui hay una clase que manipula eficientemente los archivos app.config

Imports System

Imports System.Web

Imports System.Xml

Imports System.Configuration

Imports System.Collections

Imports System.Reflection

Imports System.Diagnostics

Public Enum ConfigFileType

WebConfig

AppConfig

End Enum

Public Class cAppConfig

Inherits System.Configuration.AppSettingsReader

Public docName As String = String.Empty

Private node As XmlNode = Nothing

Private _configType As Integer

Public Property ConfigType() As Integer

Get

Return _configType

End Get

Set(ByVal Value As Integer)

_configType = Value

End Set

End Property

Public Function SetValue(ByVal key As String, ByVal value As String) As
Boolean

Dim cfgdoc As New XmlDocument

Call loadConfigDoc(cfgdoc)

node = cfgdoc.SelectSingleNode("//appSettings")

If node Is Nothing Then

Throw New System.InvalidOperationException("appSettings section not found")

End If

Try

Dim addElem As XmlElement = CType(node.SelectSingleNode("//add[@key='" + key
+ "']"), XmlElement)

If Not addElem Is Nothing Then

addElem.SetAttribute("value", value)

Else

Dim enTry As XmlElement = cfgdoc.CreateElement("add")

enTry.SetAttribute("key", key)

enTry.SetAttribute("value", value)

node.AppendChild(enTry)

End If

Call saveConfigDoc(cfgdoc, docName)

Return True

Catch

Return False

End Try

End Function

Private Sub saveConfigDoc(ByVal cfgDoc As XmlDocument, ByVal cfgDocPath As
String)

Try

Dim writer As XmlTextWriter = New XmlTextWriter(cfgDocPath, Nothing)

writer.Formatting = Formatting.Indented

cfgDoc.WriteTo(writer)

writer.Flush()

writer.Close()

Return

Catch

Throw

End Try

End Sub

Public Function removeElement(ByVal elementKey As String) As Boolean

Try

Dim cfgDoc As XmlDocument = New XmlDocument

loadConfigDoc(cfgDoc)

' recupero el nodo appSettings

node = cfgDoc.SelectSingleNode("//appSettings")

If node Is Nothing Then

Throw New System.InvalidOperationException("appSettings section not found")

End If

' XPath selecionamos el elemento "add" que contiene la clave a remover

node.RemoveChild(node.SelectSingleNode("//add[@key='" + elementKey + "']"))

saveConfigDoc(cfgDoc, docName)

Return True

Catch

Return False

End Try

End Function

Private Function loadConfigDoc(ByVal cfgDoc As XmlDocument) As XmlDocument

Dim Asm As System.Reflection.Assembly

' cargamos el archivo de configuración

docName = ((Asm.GetEntryAssembly()).GetName()).Name

docName += ".exe.config"

cfgDoc.Load(docName)

Return cfgDoc

End Function

End Class


Saludos

Paulo G. Conde M.
+58-416-4721293
+58-273-5412395

Barinas, Venezuela