Ver Mensaje Individual
  #1 (permalink)  
Antiguo 02/04/2008, 01:44
pepecrk
 
Fecha de Ingreso: abril-2008
Mensajes: 4
Antigüedad: 17 años
Puntos: 0
Como saber el usuario de windows

Estoy haciendo una aplicacion en vb.net la cual accede a una bbdd aces y tengo algunas dudas.

1. La aplicación va a ser instalada en varios pc, y debe hacer una copia de seguridad de la base de datos cada vez que se inicia, pero esta copia solo debe hacerla si el usuario de windows es el del jefe. Como puedo hacer en mi aplicacion para conocer el usuario?

2. Como puedo imprimir las lineas seleccionadas del listview conservando el el color y el tipo de letra?

3. Tengo que pasar datos de una tabla a un listview, pero la cantidad de datos es considerable, y tarda bastante en cargar todo el listview. Os pongo el codigo a ver si sabeis como puedo optimizarlo.
Dim sql As String
Dim tablatem As DataTable = New DataTable
Dim fila As DataRow
LvDatos.Items.Clear()
sql = "select * from llamadas"
con.EjecutaSql(sql, tablatem)
If tablatem.Rows.Count > 0 Then
lvwColumnSorter.Order = SortOrder.None
lvwColumnSorter.SortColumn = 0
For Each fila In tablatem.Rows
LvDatos.Items.Add(IIf(fila(7) = True, "Entra", "Sale"))
LvDatos.Items(LvDatos.Items.Count - 1).SubItems.Add(fila(0))
LvDatos.Items(LvDatos.Items.Count - 1).SubItems.Add(fila(1))
LvDatos.Items(LvDatos.Items.Count - 1).SubItems.Add(fila(2))
LvDatos.Items(LvDatos.Items.Count - 1).SubItems.Add(fila(3))
LvDatos.Items(LvDatos.Items.Count - 1).SubItems.Add(fila(4))
LvDatos.Items(LvDatos.Items.Count - 1).SubItems.Add(fila(5))
LvDatos.Items(LvDatos.Items.Count - 1).SubItems.Add(IIf(fila(6) = True, "Si", "No"))
If fila(8) = True Then
LvDatos.Items(LvDatos.Items.Count - 1).BackColor = Color.Yellow
End If
Next