Ver Mensaje Individual
  #1 (permalink)  
Antiguo 02/11/2010, 06:22
abuitrago81
 
Fecha de Ingreso: mayo-2010
Mensajes: 41
Antigüedad: 14 años, 10 meses
Puntos: 0
Duda con consulta select en VB.NET 2008

Hola a todos.
Les cuento, estoy realizando un proyecto y en el botón "salir" le tengo puesto que me guarde las propiedades de algunos objetos (propiedad Enabled y Visible sobretodo) en una tabla de una base de datos Access.

TABLA DATOS: (name, Enabled, Visible...) donde guardo True o False.

Bueno pues ahora lo que trato es de cargar esos datos al arrancar para que salgan los objetos como se kedaron al cerrar, pero no sé como es el codigo para hacer una select ( por ejemplo "select Enabled from datos where name = 'btnAgenda' " ), y que el valor de ese campo ( True o False ) se me guarde en una variable de tipo String, para luego poder usarla en VB e ir cargandole a cada objeto sus propiedades ( ejemplo: Me.btnAgenda.Enabled = variable ).

Soy principiante en esto y el update de guardar los datos lo hice así:
Código vb:
Ver original
  1. Public conn As OleDb.OleDbConnection
  2. Public cmd As OleDb.OleDbCommand
  3. ...
  4. Dim con As String = "Provider=Microsoft.JET.oledb.4.0;Data Source=C:\EstadoObjetos.mdb"
  5. conn = New OleDb.OleDbConnection(con)
  6. ...
  7. ' Salvar btnAgenda
  8.            If Me.btnAgenda.Enabled = True Then
  9.                 Try
  10.                     conn.Open()
  11.                     cmd = New OleDb.OleDbCommand("update datos set Enable = 'True' where name = 'btnAgenda'", conn)
  12.                     cmd.ExecuteNonQuery()
  13.                     conn.Close()
  14.                 Catch ex As Exception
  15.                     MessageBox.Show("Error de Conexión")
  16.                 End Try
  17.             Else
  18.                 Try
  19.                     conn.Open()
  20.                     cmd = New OleDb.OleDbCommand("update datos set Enable = 'False' where name = 'btnAgenda'", conn)
  21.                     cmd.ExecuteNonQuery()
  22.                     conn.Close()
  23.                 Catch ex As Exception
  24.                     MessageBox.Show("Error de Conexión")
  25.                 End Try
  26.             End If