elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Tutorial básico de Quickjs


  Mostrar Mensajes
Páginas: [1] 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 ... 24
1  Programación / Programación Visual Basic / Re: FOLIO CONSECUTIVO AUTOMATICO en: 19 Febrero 2016, 03:18 am
Si quieres que el programa sea capaz de seguir contando desde el ultimo folio que utilizaste tienes que ir almacenándolo en alguna base de datos. Access supongo que usa. Si es que usa base de datos. Así, cada vez que cargues el programa deberás leer desde la base de datos el ultimo folio usado y listo :D!

No debería ser mas complicado que leer hasta la ultima celda de la tabla que asignes. Luego asignas ese numero al textbox.


Saludos!
2  Programación / Scripting / Re: Delimitadores consecutivos en: 14 Marzo 2015, 04:03 am
no entiendo que haces con esta parte del codigo "(desc/actual.txt)" xD. En vez de eso tienes que "tipear" el txt completo para buscar un string en el mismo.

Mira el ejemplo de mas abajo y ve si te puede ayudar en algo.

Código
  1.  
  2. FOR /F "Tokens=3,7 Delims=|" %%M IN ('Type actual.txt ^|Find.exe /I "BLABLABLA"') DO (
  3. Echo %%M >> Salida.txt
  4. )
  5. )
  6.  
  7.  

Espero te sirva, recuerda que es un ejemplo y puede que no te funcione directamente.


Sauludos!!
3  Programación / Programación Visual Basic / Re: Importar datos de una hoja de cálculo en: 31 Enero 2015, 15:22 pm
Hola.

Sin querer desviar el asunto principal del tema...

Utilizando los componentes de acceso a datos correctos, puedes acceder a cualquier db Access, independientemente del formato, vía DAO.

Motor JET
              *Microsoft DAO 3.6 Object Library
                                                             ->Formato 97-2k-2k3

Motor ACE
              *Microsoft office 14.0 access database engine object library
                                                             ->Formato 97-2k-2k3-2k7-2k10

              *Microsoft office 15.0 access database engine object library ( A partir de W7)
                                                             ->Formato 2k7-2k10-2k13


https://msdn.microsoft.com/es-es/library/office/ff965871%28v=office.14%29.aspx#DataProgrammingWithAccess2010_Where

Saludos.

Si probé cambiando los motores, pero tampoco funcionó. Siempre obtuve el mismo mensaje "No se reconoce formato de la base de datos..."

cuando digo "incansablemente", es porque en realidad si busqué mucho xD

Saludos, gracias por el articulo, lo leeré de igual manera.
4  Programación / Programación Visual Basic / Re: Importar datos de una hoja de cálculo en: 29 Enero 2015, 06:14 am
hola, pucha, aunque no te sirva, puedes tomar la idea de ahí.

Lo que hace el código es leer y tomar los datos de un archivo .xls e insertarlos de forma ordenada en una base de datos .mdb. El problema 3343 es porque el formato de tu base de datos es superior al que puede procesar DAO (o ADO? xD) y es que tiene que estar en formado Office 97, desde 2000 para arriba te dará el mismo error. Busqué incansablemente como hacerlo funcionar con bases de datos mas nuevas, pero no hubo caso.

Saludos!
5  Programación / Programación Visual Basic / Re: Importar datos de una hoja de cálculo en: 28 Enero 2015, 15:49 pm
Hola,

Revisa este codigo, hace lo que necesitas, obviamente tienes que adaptarlo para ti, cambiando algunas variables y/o nombres de archivos.
Debo recalcar que el formato de la hoja de Excel debe ser "plano"; cabeceras y datos.

Código
  1. Ooption Explicit
  2. Dim NewDB As Database
  3. Dim NewTable As TableDef
  4. Dim DBName As String
  5. Dim dbnm As String
  6. Dim db As Database
  7. Dim rs As DAO.Recordset, nofld As Integer, norecd As Integer
  8. Dim J As Long
  9.  
  10.  
  11.      Set db = OpenDatabase(App.Path & "\DataAndStuff\" & dbnm)
  12.      Set rs = db.OpenRecordset("BDOfertas")
  13.      Do While Len(ExcelApp.ActiveSheet.Cells(i, 1).Value) <> 0
  14.         J = 1
  15.         rs.AddNew
  16.         Do While Len(ExcelApp.ActiveSheet.Cells(i, J).Value) <> 0
  17.            rs.Fields(J - 1).Value = ExcelApp.ActiveSheet.Cells(i, J).Value
  18.            J = J + 1
  19.         Loop
  20.         rs.Update
  21.         i = i + 1
  22.      Loop
  23.  


dbnm = nombre de tu base de datos.

Debes crear una instancia para poder usar Excel.

PD: Si hubieses usado la herramienta buscar, hubieses encontrado el post de inmediato, de hecho estaba 10 posts mas abajo que el tuyo :P
6  Programación / Scripting / Re: Problema de Monthy Hall en: 26 Diciembre 2014, 04:50 am
Excelente, me ha quedado dando la vuelta como seria en otros leguajes, pero esta muy bien explicado, gracias !:P
7  Programación / Programación Visual Basic / Re: Importar datos desde Excel a Access con Vb6.0 en: 25 Diciembre 2014, 20:21 pm
Hola, sorry por la respuesta tan tarde, pero aunque si intente de la forma que me dices Silver_axe007 no me funcionó.
Al final lo pude hacer, con un poco de ayuda de Google.

Dejo el codigo por si a alguien mas le sirve.

Código
  1. Ooption Explicit
  2. Dim NewDB As Database
  3. Dim NewTable As TableDef
  4. Dim DBName As String
  5. Dim dbnm As String
  6. Dim db As Database
  7. Dim rs As DAO.Recordset, nofld As Integer, norecd As Integer
  8. Dim J As Long
  9.  
  10.  
  11.      Set db = OpenDatabase(App.Path & "\DataAndStuff\" & dbnm)
  12.      Set rs = db.OpenRecordset("BDOfertas")
  13.      Do While Len(ExcelApp.ActiveSheet.Cells(i, 1).Value) <> 0
  14.         J = 1
  15.         rs.AddNew
  16.         Do While Len(ExcelApp.ActiveSheet.Cells(i, J).Value) <> 0
  17.            rs.Fields(J - 1).Value = ExcelApp.ActiveSheet.Cells(i, J).Value
  18.            J = J + 1
  19.         Loop
  20.         rs.Update
  21.         i = i + 1
  22.      Loop
  23.  
Saludos!
8  Programación / Programación Visual Basic / Re: generador de texto y numero en: 25 Diciembre 2014, 05:06 am
Debes postear el codigo que tienes y lo que se supone que tiene que hacer el programa. Dudo mucho que alguien vaya  a descargar el "source" y correrlo en sus pcs. Obtendrás MUCHA ayuda si posteas tu codigo y lo que tiene que hacer como dije anteriormente.
Saludos.
9  Programación / Programación Visual Basic / Importar datos desde Excel a Access con Vb6.0 en: 15 Diciembre 2014, 23:57 pm
Hola estimados,

Vengo a solicitar su ayuda para intentar resolver un problema que me tiene de cabeza, literalmente xD!

El tema es "super simple", quiero importar datos desde una planilla Excel a una tabla en Access, PERO no me funciona y no puedo saber porque.

Para intentar esclarecer un poco y me puedan entender, estos son los archivos que uso.

Una planilla Excel, donde los datos están distribuidos en 6 columnas sin formato (no es un archivo CSV). Probé poniendo el mismo nombre de los campos que en la base de datos, pero no funcionó.
Código:
168914 asdf 28/11 30/11 4.890 3990
132112 asdf 28/11 30/11 4.890 40% DCTO
149955 asdf 28/11 30/11 4.890 40% DCTO
149956 asdf 28/11 30/11 4.890 40% DCTO
178377 asdf 28/11 30/11 4.890 40% DCTO
178379 asdf 28/11 30/11 4.890 40% DCTO
178380 asdf 28/11 30/11 4.890 40% DCTO
185147 asdf 28/11 30/11 4.890 40% DCTO
197620 asdf 28/11 30/11 4.890 40% DCTO
208424 asdf 28/11 30/11 4.890 40% DCTO

Y la base de datos Access.



Y el código que tengo para hacerlo es el siguiente:
Código
  1. Option Explicit
  2.  
  3. Private Sub cmdLoad_Click()
  4. Dim excel_app As Object
  5. Dim excel_sheet As Object
  6. Dim db As Database
  7. Dim new_value As String
  8. Dim row As Integer
  9.  
  10.    Screen.MousePointer = vbHourglass
  11.    DoEvents
  12.  
  13.    Set excel_app = CreateObject("Excel.Application")
  14.  
  15. '    excel_app.Visible = True
  16.  
  17.    excel_app.Workbooks.Open FileName:=txtExcelFile.Text
  18.  
  19.    If Val(excel_app.Application.Version) >= 8 Then
  20.        Set excel_sheet = excel_app.ActiveSheet
  21.    Else
  22.        Set excel_sheet = excel_app
  23.    End If
  24.  
  25.    Set db = OpenDatabase(txtAccessFile.Text)
  26.  
  27.    row = 1
  28.    Do
  29.  
  30.        new_value = Trim$(excel_sheet.Cells(row, 1))
  31.  
  32.        If Len(new_value) = 0 Then Exit Do
  33.  
  34.        db.Execute "INSERT INTO BDOfertas VALUES (" & new_value & ")" ' ACA ES DONDE ME MARCA AL MOMENTO DE MOSTRAR EL ERROR EN TIEMPO DE EJECUCION. (LINEA 34)
  35.  
  36.        row = row + 1
  37.    Loop
  38.  
  39.    db.Close
  40.    Set db = Nothing
  41.  
  42.  
  43.    excel_app.Quit
  44.    Set excel_sheet = Nothing
  45.    Set excel_app = Nothing
  46.  
  47.    Screen.MousePointer = vbDefault
  48.    MsgBox "Copied " & Format$(row - 1) & " values."
  49. End Sub
  50.  
  51. Private Sub Form_Load()
  52. Dim file_path As String
  53.  
  54.    file_path = App.Path
  55.    If Right$(file_path, 1) <> "\" Then file_path = file_path & "\"
  56.    txtExcelFile.Text = file_path & "TEST.xls"
  57.    txtAccessFile.Text = file_path & "CLLBD.mdb"
  58. End Sub
  59.  

Y el error que obtengo es el siguiente:

Código:
Error '3346' en tiempo de ejecución:

El número de valores de consulta y el número de campos de destino son diferentes.


He intentado con muchos códigos hacer lo que quiero, pero nada parece funcionar, o yo lo estoy haciendo mal. Solo me falta esto para terminar este formulario del proyecto, pero no se como solucionarlo.


Atento a comentarios,
Atte.
Francisko.
10  Programación / Programación Visual Basic / Re: [VB6]Filtro por fechas en DataGrid en: 23 Noviembre 2014, 21:27 pm
Gracias por tu respuesta Shell, pero no eran las comillas. Me faltaba actualizar el RS ¬¬ xD.

Dejo la solucion por si alguien mas le sirve.-
Código
  1. Sub ConsultaFechas()
  2.  
  3.   SqlDos = "SELECT * FROM BDOFertas WHERE F_Desde >= # " & Trim$(txtFechaUno.Text) & " # AND F_Hasta <= # " & Trim$(txtFechaDos.Text) & " #"
  4.  
  5.   Set rs = New ADODB.Recordset
  6.   rs.CursorLocation = adUseClient
  7.   rs.Open SqlDos, cn, adOpenStatic, , adCmdText
  8.   Set DataGrid1.DataSource = rs
  9.   ModificaColumnas
  10. End Sub
  11.  

Saludos!!
Páginas: [1] 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 ... 24
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines