SoloCodigo

Por favor mira este codigo, creo que resuelve tu problema no importando cuantos elementos tenga tu vector. Lo probe.  

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


        Dim vector() As String = {"A", "B", "C", "D", "E", "F"}

        Dim indice As Integer = 0

        While Not indice = vector.Length
            ComboBox1.Items.Add(vector(indice))
            indice = indice + 1


        End While


End Sub

Recuerdos,
Ab.

Nunca he trabajado con vectores pero supongo que tu caso debe ser similar a llenar un combo desde una tabla.

En el caso de que tengas varios elementos utiliza bucles como el For  o el while  

Esta es mas o menos mi logica:

    While Not x = 4
                ComboBox1.Items.Add(elementovector(x))
                x = x + 1
   End While

Recuerdos,
Ab.

En el menu Project  en su opcion "Add Reference" añades la referencia de microsoft office que deseas usar y ya luego te deja importarla.

Suerte,
Ab.  

Hay algun componente en el .Net que sea igual mejor que el flexgrid?

 

Hola,

En dado caso de que no sea un proceso automatico el que quieres hacer, porque no pruebas con una variable del tipo openfiledialog?

Por ejemplo dentro de un boton


   Dim a As New OpenFileDialog

        a.Title = "Copiar ruta de Archivo X "
        a.Filter = "Acessos Formateados|*.extenciondetufichero"

        If a.ShowDialog = Windows.Forms.DialogResult.OK Then
            TextBox1.Text = a.FileName
        End If

Y en dado caso de que sea un proceso automatico, aun asi prueba y compara la direccion que te escribe el mismo VB en el textbox con la que tu estabas escribiendo a ver cual es el error.

Espero haber ayudado.
Ab.  

En vez de usar el Hide, trata con Me.visible= false  y ve que pasa.

Recuerdos,
Ab.

No entiendo muy bien tu caso pero si es lo que creo una o mas variables publicas declaradas en un modulo deberian resolver tu problema de compartir informacion entre formularios.

 

Bueno, aqui te dejo un ejemplo de una de mis conexiones y puedes crearte tu propio control data de una forma sencilla.

Primero

Haces el codigo que muestra los datos de tu base en los labels
 
 
Modulo para conectar

Imports ADODB

Module xConex

    Public conuser As New ADODB.Connection
    Public tusuarios As New ADODB.Recordset

    Public Sub conectar()

       conuser.ConnectionString = "Provider = microsoft.jet.oledb.4.0; data source = users.mdb"

'para que funcione la base de datos debe estar en la misma carpeta que el programa. Siiiii adios app.path

        Try
            conuser.Open()
        Catch ex As Exception
            MsgBox("No se pudo encontrar la base de datos primaria para el logon, vuelva a instalar la aplicacion y si el problema persiste contacte a su administrador de software", MsgBoxStyle.Critical)
            Application.ExitThread()
        End Try

    End Sub

End Module


Segundo

En tu programa creas un procedimiento para abrir y refrescar la info.

private sub abrirusuarios()

 With tusuarios
            .ActiveConnection = conuser
            .CursorType = CursorTypeEnum.adOpenKeyset
            .LockType = LockTypeEnum.adLockOptimistic
            .Open("usuarios")

            If .RecordCount = 0 Then
              .close
              exit sub
'O mostrar un mensaje que diga que la tabla esta vacia.

            Else

               TextBox1.Text = .fields(0).value
                label2.Text = .fields(1).value
            ' y asi sucesivamente mientras te queden campos en la tabla
                .Close()
            End If

        End With


end sub


tercero

Reunes unos cuantos botones y haces lo siguiente


Boton1

Etiqueta:  ">"
Codigo:    if not nombre tabla.Eof then nombretabla.movenext
               abrirusuarios()

Boton2

Etiqueta:  ">>"
Codigo:    if not nombre tabla.Eof then nombretabla.movelast
               abrirusuarios()

Boton3

Etiqueta:  "<"
Codigo:    if not nombre tabla.Bof then nombretabla.moveprevious
                  abrirusuarios()


Boton4

Etiqueta:  "<<"
Codigo:    if not nombre tabla.Bof then nombretabla.movefirst
                  abrirusuarios()

*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*

uy me canse, espero que te sirva de mucho en tu migracion, yo tambien esto en ese proceso.  

Feliz Navidad,
Ab.

Gracias, pero donde debo ejecutar el installutil? he probado con "run" en la linea de comandos y nada. No tengo idea de como ejecutarlo.

Gracias de nuevo,
Ab.

Que piensas poner donde tienes el "etapa.codigo_proyecto= ?"

Una variable, un textbox o un valor fijo?

De ser un valor fijo puedes poner el query guardado dentro de la base de datos usando access y llamarlo como una tabla.


Tambien, si no es un valor fijo  puedes =mente hacer el query donde selecciones todo y dejarlo guardado en la db con un nombre y luego hacerle una consulta desde el .Net como a cualquier tabla de esta manera:

"select * from queryname  where codigo_proyecto=" & val(textbox1.text)"

Es mas o menos asi.  
Es una consulta mucho mas corta.

Espero haber ayudado.
Recuerdos,
Ab.

Hola,

He estado teniendo problemas con los reportes rdlc en Visual Basic 2005.

Quiero hacer un reporte 8.5 x 5.5 (El tamaño de mis cheques) pero no lo he logrado. el programa siempre me imprime en mas de una pagina o no sale nada. Algún consejo?


Les adjunto la imagen del reporte a ver si ayuda en algo.

Gracias,
Ab.

Como puedo hacer para que mi programa encuentre los datasources de mi reporte no importando en que carpeta lo ponga siempre y cuando esten juntos?

Hacia esto en VB6 eligiendo dentro del reporte la opcion Report Datasource Location = Same as report. Pero no veo nada parecido en el Crystal Reports que trae VB2005.

Gracias,
Ab.

Hola,


Soy practicamente nuevo en el .Net  y quiero saber como puedo ponerle fotos a un reporte de VB en Visual Studio 2005 (.rdlc), tengo mi dataset y conecto todos mis campos al reporte, tengo un campo adicional que tiene rutas de las fotos de cada empleado las cuales estan en una carpeta fuera de la tabla. Todas son JPG. Mi problema esta en que no tengo ni idea como agregarle su foto a cada empleado. Todo lo que he intentado me da error.

Alguna solucion?
Gracias de antemano.

Ab.