Mensajes

¿Has probado utilizando un dataadapter?

Ni sé lo que son, pero me lo apunto y mañana te cuento.
Gracias por contestar tan rápido!

Hola a todos.

Tengo dos códigos que compartir, uno el que he usado siempre y otro que vi ayer. Los dos son para iniciar nuestras aplicaciones desde un método sub main, en lugar de que se lance directamente el formulario principal.

Código (vbnet) [Seleccionar] Expandir

Public Class principal
    Public Shared Sub main()
        Application.EnableVisualStyles()

        System.Threading.Thread.CurrentThread.CurrentCulture = New Globalization.CultureInfo("es-ES")

        Dim formulario As New frmMenu()
        Application.Run(formulario)

        Application.ExitThread()
        Application.Exit()
    End Sub
End Class

Y la mía:

Código (vbnet) [Seleccionar] Expandir

Public Class principal
    Public Shared Sub main()
        Dim formulario As New frmMenu()
        formulario.show()
    End Sub
End Class

La segunda es la que siempre he usado... no sé que ventajas puede tener usar el primer código pero supongo que habrá alguna razón por la que los profesionales lo utilizan, a ver si alguien me puede aclarar esa duda.

Saludos!

forecolor y backcolor, ¿verdad?

Soy novato, no gilipollas.. jajaja XD Se agradece la ayuda, de hecho fue lo primero que pensé pero no tendría sentido (en ningún momento cambio ningún color), y además si meto un bucle for que recorra el datatable y el grid celda a celda sí funciona... pero queda un código larguísimo y cuando lo vea el jefe me va a mandar a mi casa xD

El código que uso no lo tengo aquí, está en la oficina, pero era algo como

Código (vbnet) [Seleccionar] Expandir

dReader.ExecuteCommand
datos.Load(dReader)
'Ahora hablo de memoria, podría estar poniendo una burrada! XD
Donde dReader era un elemento Data.Reader

el dataset datos tiene todos los datos bien cargados, de eso estoy seguro por que usando la forma cutre va bien, y porque con el debugger me salen tb los datos que tienen que salir...

Saludos.

Bueno... pues eso..

Tengo unos datos en un data table y quiero visualizarlos en un DataGridView. Lo que veo por todos lados es esto:

Código (vbnet) [Seleccionar] Expandir


grdTiendas.DataSource = datos.DefaultView
Pero lo que hace es si tengo 5 filas en el datatable, me pinta 5 filas pero vacías (aunque con el debugger veo que hay datos en el datatable...)

No sé por dónde tirar...
Saludos.
gracias

me respondo. he hecho esto, pero no sé si es muy correcto:
While dRead.Read
                i += 1
                grdAutores.Rows.Add()
                grdAutores.Item("au_id", i).Value = dRead.Item("au_id").ToString()
                grdAutores.Item("au_fname", i).Value = dRead.Item("au_fname").ToString()
                grdAutores.Item("au_lname", i).Value = dRead.Item("au_lname").ToString()
                grdAutores.Item("city", i).Value = dRead.Item("city").ToString()
            End While

Hola, buenas.

Tengo dos dudas: la primera es si es mejor usar un datatable o un datareader para rellenar un datagrid...

Y la segunda es cómo se hace.
Este es mi formulario. pero no encuentro la forma de meter en mi datagrid los datos que he recuperado de la consulta...

Código (vbnet) [Seleccionar] Expandir

Public Class frmAutores
    Sub New()
        InitializeComponent()
        Dim conexion As String = "server=server; user id=user; Password=pass; Initial Catalog=library;"
        Dim cnn As New Data.SqlClient.SqlConnection(conexion)
        Dim cmd As New Data.SqlClient.SqlCommand("select au_id, au_fname, au_lname, city from authors", cnn)
        'Dim dt As New Data.DataTable
        Dim dRead As Data.SqlClient.SqlDataReader = Nothing
        Try
            cnn.Open()
            dRead = cmd.ExecuteReader
            While dRead.Read

            End While
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            If Not dRead Is Nothing Then
                dRead.Close()
            End If
            cnn.Close()
            cnn.Dispose()
            cmd.Dispose()
        End Try
    End Sub
End Class

Gracias, saludos

Muchas gracias, me pongo a ello.

Cuando termine os comento.

EDITO: enviado perfecto y sin quejas en avi. gracias.

Sí, estoy en .net. No había visto el subforo lo siento.

Bueno, gracias a todos. Me ha servido para hacer lo que me pedían, presentarlo al jefe y que me dijera que lo dejaba como estaba al principio... ¬¬

En fin, gracias.

Hola, ¿qué tal?

Bueno,os comento por encima... tuve que hacer un trabajo para la uni haciendo una grabación de vídeo y mi cámara graba bastante raro... os pongo una captura de lo que ha hecho:

Cuando meto el CD, automáticamente me salta una pantalla de presentación en la que puedo elegir entre todos los vídeos que he grabado (como solo grabé uno, me sale uno).

Supongo que el vídeo bueno es el penúltimo archivo porque es el que más ocupa, pero cuando lo abro con cualquier cosa q no sea con VLC se ven solo los 8 primeros segundos. Con el VLC se ve bien, pero donde pone el tiempo no lo coge bien, y además a saber qué reproductor tiene el profesor, o si lo mirará en casa, etc...

¿ayuda para pasarlo a avi, mpeg, o lo que sea que seguro que se pueda visualizar sin problemas? GRACIAS

Hola a todos, ¿qué tal?

Bueno, os cuento. Tengo un formulario que tiene una lista de clientes en una ListBox que contiene items de una clase mía que he llamado Cliente.

Tengo una función buscar que busca clientes repetidos para actualizar o insertar uno nuevo según el caso. Este es el framento de código:

Código (vbnet) [Seleccionar] Expandir

Public Sub actualizar()
        If validar() Then
            Dim posicion As Integer = 0
            Dim nombre As String = txtNombre.Text
            Dim apellidos As String = txtApellidos.Text
            Dim mandarInformacion As Boolean = chkMandarInformacion.CheckState
            Dim analizarRiesgo As Boolean = chkAnalizarRiesgo.CheckState
            Dim direccion As String = txtDireccion.Text
            Dim codigoPostal As String = txtCodigoPostal.Text
            Dim persona As Cliente = New Cliente(nombre, apellidos, mandarInformacion, analizarRiesgo, direccion, codigoPostal)

            If Not buscarCliente(persona, posicion) Then
                lstListaDeClientes.Items.Add(persona)
                lstListaDeClientes.SelectedIndex = lstListaDeClientes.Items.Count - 1
            Else
                lstListaDeClientes.Items.Item(posicion) = persona
            End If
        End If
    End Sub

    Public Function buscarCliente(ByVal persona As Cliente, ByRef i As Integer) As Boolean
        Dim ok As Boolean = False

        For Each cli As Cliente In lstListaDeClientes.Items
            If persona.apellidos.Trim.Equals(cli.apellidos.Trim) AndAlso persona.nombre.Trim.Equals(cli.nombre.Trim) Then
                ok = True
                lstListaDeClientes.SelectedItem = cli
                Exit For
            End If
            i += 1
        Next

        'For i = 0 To lstListaDeClientes.Items.Count - 1
        '    If lstListaDeClientes.Items.Count > 0 Then
        '        lstListaDeClientes.SelectedIndex = i
        '    End If
        '    If persona.apellidos.Trim.Equals(lstListaDeClientes.Items.Item(i).apellidos.Trim) _
        '            AndAlso persona.nombre.Trim.Equals(lstListaDeClientes.Items.Item(i).nombre.Trim) Then
        '        ok = True
        '        Exit For
        '    End If
        'Next
        Return (ok)
    End Function

pero al que manda se le ha puesto entre ceja y ceja 1º que use for each en lugar del for y después que me cargue la i... y no sé hacerlo sin ella...

¿ayuda? Gracias.