Mensajes

si le pasas parametros al exe al modo de ejecutar y de tal modo el exe leyera estos?


Compila este source un modulo sin form (proceso inicial "Sub Main()")

Código (vb) [Seleccionar] Expandir


sub main()
msgbox command$
end sub

Ejecuta el Exe de la siguiente forma

Código [Seleccionar] Expandir


"C:\APP.exe" parametros


dependiendo de dichos parametros indicados en la ruta del exe se ejecutara una accion determinada algo asi como

Código [Seleccionar] Expandir

ping 127.0.0.1 -n 100

Seria una forma y de seguro hay otrass pero no se, igual se podria crear un temporal con la configuracion y el exe leyera dicho temporal pero a mi me covese mas el anterior.

Saludos, Dulces Lunas

Yo diria k el "For i = 1 To Cant_ACC - 1" va sin el -1.

Quita el -1 pero en si esta bien lo que hice aca te digo el por que xP

Revisa la Base de Datos de Excel tanto de Access tiene

Mmm no lo vez

El id es 100 y esta en la fila 100 de Excel jeje me comi un regitro por ende solo hay 99 registros realmente te das cuenta por que en la celda A100 esta el 100 y recuerda que se elimina una fila que es la del 1 por que se cuenta como cabecera,

El registro faltante es el ID 67  jeje es por eso que para ti no va el -1 pero realmente si va si se usa i=1

Código [Seleccionar] Expandir


64 Destroy All Humans! Aventura Accion Armas Disparos Aliens PS2 4 $564,00 4
65 Destroy All Humans! 2 Aventura Accion Armas Disparos Aliens PS2 54 $540,00 2
66 Deus Ex: The Conspiracy Aventura Accion Estrategia PS2 15 $545,00 5
68 Devil May Cry Sangre Accion aventura PS2 100 $456,00 70
69 Devil May Cry 2 Sangre Accion aventura PS2 45 $456,00 5
70 Devil May Cry 3: Dante's Awakening Sangre Accion aventura PS2 80 $456,00 78
71 Resistance: Fall of Man Sangre Accion PS3 41 $345,00 12


ya lo notaste?


SAludos y Dulces Lunas

Yo diria k el "For i = 1 To Cant_ACC - 1" va sin el -1.

He  comprobado k al hacer rs.movefirst coge directamente el primer dato de la columna enves de cojer el titulo. Como es esto?

Como lo haces para k el codigo sepa k la primera fila del excel es la capcelera??

gracias

     Lo que pasa es que Excel toma la primera fila como cabeceras cuando usamos ADO en excel mismo cada celda tiene un nombre degun su intercepcion... cuando se guarda una hoja de excel en formato de texto plano no pone nombres de celdas si no mas bien Excel identifica da datos por las separacion en tabulaciones y por esto identifica dato y lo relaciona a cada celda en si ADO en Excel lo que hace es que la primera fila la toma como baceras e ignora los nombres de las celdas por ende en una BAse de datos ninguna Celda tiene Nombre por esto.

     Ademas cuando uno diseña una Tabla de una BAse de datos solo existen tres cosas generalmente

Babereca de la columna
Celdas
Formato/Tipo de Datos
...¡!

ahora con lo de

Código (Vb) [Seleccionar] Expandir


    For i = 1 To Cant_ACC - 1
        datos = CStr(rs!id) & vbNewLine & _
        CStr(rs!vj) & vbNewLine & _
        CStr(rs!genero) & vbNewLine & _
        CStr(rs!plataforma) & vbNewLine & _
        CStr(rs!existencias) & vbNewLine & _
        CStr(rs!precio)
        rs.MoveNext
        MsgBox datos
    Next i


como veras si pones lo siguiente:

    For i = 10 To Cant_ACC - 10

seria equivalente a

    For i = 1 To Cant_ACC - 1

al igual que a

    For i = 0 To Cant_ACC

Notas algo? bueno en si en estas 3 realizaria el mismo numero de bucles, pude haber pueso el 1ro eo el 3ro pero elegi por poner el 2do algo tonto  ya que el 3eero era el ideal.

a si par llenar una lista despegable de los nombres de las cabeceras es con

rs.Fields.Count <--- Cuenta las columnas o cabeceras pero ojo esto cuenta una Matriz por ende empiesa desde el 0 y contando el Cero

Código (vb) [Seleccionar] Expandir


For i = 0 To rs.Fields.Count - 1 'Le resto 1 por que esta contando un arreglo
        MsgBox rs.Fields(i).Name
Next i


es como decir esto

Código (vb) [Seleccionar] Expandir


dim Arreglo(1) as string ' la cantidad es de 2 es decir el 0 y el 1
arreglo(0)="aaa"
arreglo(1)="bbb"
for i = 0 to ubound(arreglo)-1 ' es como   For i = 0 To rs.Fields.Count - 1
     msgbox arreglo(i)
next i


ya despues si haces caso omiso de IF Then un bucle y demas para rrellenar los campos que desees bueno Xao ya ahora si:

Saludos; Dulces Lunas.

La pagina de microsoft ya la tenia, con ella en teoria conegui hacer la conexio pero no sabia como recojer datos del excel.

Los dos primeros comentarios k me dices:

" Para Access Quita Corchetes y el Signo de Pesos"

Seguro k es asi?

Si lo uso en access dnd pone [configuracion$] y  [datos$], si la hoja del excel se llama hoja1, tendria k poner [Hoja1$], en los dos casos, no?

graciass

no claro que no de hecho los corchetes stanto como el signo como lo puse en el source son SOLO PARA EXCEL

Te recomiendo que juegues con el codigo y con el "Que pasaria Si cambio esto por esto otro...?", y "si esto otro es pque pasaria si le pongo esto...?", etc

Ahora para llenar los listbox usa catalogos (Varias Hojas o Tablas o en su defecto Bases de Datos, en excel Libros)

para el llenado no es dificil

solo usa un bucle

Código (vb) [Seleccionar] Expandir


rs.MoveFirst'hubicate en el primer registro con
rs!NombreDeColumnaX  'obten los datos
rs.MoveNext'Muevete al Siguiente registro con

Revisa el Ejemplo que te di...

Pero ojo
para contar el numero de registros hay dos formas una de ellas seria con un campo donde lleves un control de los registro pero ojo con esto si este es incorretco el bucle realizara mas operaciones de las nesesarias o menos de los registros reales en mejor usar este:

Código (vb) [Seleccionar] Expandir


rs.RecordCount 'Sirve para contar los registros exactos de cualquier Base de Datos

posterior mente

solo realisa el bucle

Código (vb) [Seleccionar] Expandir


    dim c as integer,i as integer
    c=rs.RecordCount
    rs.MoveFirst
    for i = 1 to c
         lista.additem rs!NombreColumna
         rs.movenext
    next i
    'cn.close 'Cierra CN si es nesesario si es que usaras otra BASE DE DATOS lo contrario solo realisa una consulta con RS.open


has en una hoja en blanco un diagrama con las tablas, posteriormente realcionalas

despues usa el "IF then" o el "Select Case" y por un X campo digamos el ID, Nombre o el que tu elijas tome los datos requeridos

seria el proceso asi segun veo

conexión Ado
Consulta
Desconeccion
Procesos
conexión ADo
Consulta
Desconección
...
...
...

segun se decida

P.D.: Si abres otro archivo de Excel o Acces o cambia a otro tipo de Base de datos cierra Cn e iguala a rs=noting (las lineas que te di anteriormente)

PERO si seguiras usando la misma BAse de Datos solo realisa otra consulta con rs.open y despues mueve al primer registro con rs.moveFirts

si cambias de Tabla usa (esto lo digo de forma general especialmente para SQLServer y MySQL)

Código (sql) [Seleccionar] Expandir


use NombreDeTabla


PAra excel sigue usando

Código (sql) [Seleccionar] Expandir


select Columna from  [NombreDeTabla$] where bla bla bla...¡"


En todo caso lee un tuto o manual SQL (Codigo no la BDD ojo con eso.)¡!

Ya me ire a dormir ya me desvele bastamente.¡!

Saludos; Dulces Lunas.

mmm si es para VBA

te dare un ejemplo:

abre el libro de Excel o el archivo de Access

ve a Herramientas->MAcro-Editor de Visual Basic

posteriormente ve a archivo->Importar Archivo (importa el archivo Modulo .bas)
despues a Herramientas->Referencias y y activa a "Microsoft ActiveZ Data 2.0" acepta el dialogo

despues en el modulo ya importado cambia las siguientes lineas

Código (vb) [Seleccionar] Expandir


DirectorioBDD = App.Path & "\data.xls"

y ponle la ruta COMPLETA del archivo de Excel
por ultimo un arreglo para este VBA

Código (vb) [Seleccionar] Expandir


   For i = 1 To Cant_ACC - 1
       datos = CStr(rs!id) & vbNewLine & _
       CStr(rs!vj) & vbNewLine & _
       CStr(rs!genero) & vbNewLine & _
       CStr(rs!plataforma) & vbNewLine & _
       CStr(rs!existencias) & vbNewLine & _
       CStr(rs!precio)
       rs.MoveNext
       MsgBox datos
   Next i

despues de este codigo agrega estas lineas:

Código (vb) [Seleccionar] Expandir


   CN.Close
   set rs=nothing' Solo si ya no usaras el RecordSet en otras funciones pon esta linea de lo contrario no la pongas


OJO si no agregas estas lineas se quedaria abierto y marca un error

listo corre la Funcion Main y que pasa?

Aca te dejo una imagen: es el mismo resultado como para VB6 como para VBA



Saludos; dulces Lunas

mmm ya esta mira

ejemplo Source Ado en Excel/Access: Descargar
...
...
...
Saludos Dulces Lunas

Baja El Source funciona a la perfección

No hay  nada de codigo aki, y los archivos .vbp y .bas no me los relaciona con ningun programa.

El Source que te acabo de dar es Explicito para VB6, con unos cambios funcionaria bien en el VBA

mmm ya esta mira

ejemplo Source Ado en Excel/Access: Descargar
...
...
...
Saludos Dulces Lunas

Baja El Source funciona a la perfección

mmm ya esta mira

ejemplo Source Ado en Excel/Access: Descargar

con el libro de Excel abre un proyecto nuevo: y en un modulo agrega este codigo (proceso inicial Sub Main quita el Formulario)

Código (vb) [Seleccionar] Expandir


Public Const SQL_Config = "select * from [configuracion$] " ' Para Access Quita Corchetes y el Signo de Pesos
Public Const SQL_Datos = "select * from [datos$] " ' Para Access Quita Corchetes y el Signo de Pesos
Public Cant_ACC As Integer
Public CN As New ADODB.Connection
Public rs As New ADODB.Recordset
Private DirectorioBDD As String

Enum BDD
    Excel = 0
    Access = 1
End Enum

Sub Main()
    DirectorioBDD = App.Path & "\data.xls" ' Cambiar el nombre _
                                            y tipo de archivo _
                                            es decir su extención _
                                            por la de Access si se _
                                            requiere su lectura
    Call AdoExcelAccess(Excel)
End Sub

Public Sub AdoExcelAccess(BDD As BDD)
    CN.Provider = "Microsoft.Jet.OLEDB.4.0"
    If BDD = Access Then
        CN.ConnectionString = DirectorioBDD
    ElseIf BDD = Excel Then
        CN.ConnectionString = "Data Source=" & DirectorioBDD & ";Extended Properties=Excel 8.0;"
    Else
        Exit Sub
    End If
    CN.Open
    rs.Open SQL_Config, CN, adOpenKeyset, adLockOptimistic
    rs.MoveFirst
    Cant_ACC = Val(rs!cant_list)
    MsgBox Cant_ACC
    rs.Close
    rs.Open SQL_Datos, CN, adOpenKeyset, adLockOptimistic
    rs.MoveFirst
    For i = 1 To Cant_ACC - 1
        datos = CStr(rs!id) & vbNewLine & _
        CStr(rs!vj) & vbNewLine & _
        CStr(rs!genero) & vbNewLine & _
        CStr(rs!plataforma) & vbNewLine & _
        CStr(rs!existencias) & vbNewLine & _
        CStr(rs!precio)
        rs.MoveNext
        MsgBox datos
    Next i
End Sub


Como ves te puse uno de Excel y uno de Access
En este Ejemplo use Ado como si nada no importando si es Access o Excel de igual forma es para SQLServer y MySQL


P.D.: Encontre la Forma por accidente cuando esta jugando con el Codigo y jugando con los campos de Access tanto como de Excel...¡! je je je...¡!

Saludos Dulces Lunas

Cómo usar ADO con datos de Excel desde Visual Basic o desde VBA

mmm en todo caso te dire como

sabemos que en SQL usamos

Código (sql) [Seleccionar] Expandir

Select campos From Tabla
es decir que digamos en Acces, MySql SQL y otros seria asi

Código (sql) [Seleccionar] Expandir


Select * From datos


bueno en Excel seria asi

Código (sql) [Seleccionar] Expandir


Select campos From [Tabla$]


es decir:

Código (sql) [Seleccionar] Expandir


Select * From [datos$] ' Con Corchetes


Solo en la consulta se añaden los corchetes y el signo de pesos, para rangos y demas es me parece igual pero mejor leete el link que te puse esta mas detallado

Código (vb) [Seleccionar] Expandir


Public CN As New ADODB.Connection
Public rs As New ADODB.Recordset

Public Sub ConectarBDD(Consulta As String, ConnectionStr as string, Optional Con As Boolean = False)
    On Error GoTo Errores:
        If Con = True Then
            CN.Provider = "Microsoft.Jet.OLEDB.4.0"
            CN.ConnectionString = ConnectionStr
            CN.Open
        End If
        rs.Open Consulta, CN, adOpenKeyset, adLockOptimistic
        rs.MoveFirst' se mueve al primer Registro
Exit Sub
Errores:
        'Sentencias deErrores
        err.clear
End Sub


El problema es devolver los datos segun veo... pero si s epuede estoy seguro de ello.

Saludos Dulces Lunas

Un heladito tambie? a no quisas desees que te llevemos de igual forma la comida a la la cama...

aprende a leer Tutoriales y demás de estas cosas, Hombre.