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

 

 


Tema destacado: Guía actualizada para evitar que un ransomware ataque tu empresa


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  actualizar access
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: actualizar access  (Leído 2,507 veces)
PETTETE

Desconectado Desconectado

Mensajes: 127


Ver Perfil
actualizar access
« en: 20 Septiembre 2017, 17:00 pm »

Hola buenas,

Estoy haciendo un código que si os resumo el funcionamiento es este:
leo un txt, y voy rellenando un excel utilizando alguna base de datos access ( OLEDB)
y la informacion del txt.

Pero como puedo hacer para que al leer un valor alfanumerico de un acces este se incremente en uno y se ponga en el excel?

me explico : leo el valor del access: cya_0000, cya_0001 (pero solo utilizo el segundo valor)
y dependiendo de las lineas del txt se ponen uno o más. 1 por linea.
EJEMPLO:
y al escribirlo en el excel :( txt con una línea) cya_0002
                                      (txt con 2 lineas) cya_0002 y cya_0003

al terminar esto: deberia de actualizar el access.

ACCESS FINAL:
cya_00000, cya_00001
cya_00002, cya_00004 (dando por hecho que el txt tiene 3 lineas)

No se si me he explicado bien... en caso de que no entendais preguntar y os contestare.

base de datos="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Usuario\Desktop\prueba\TABLAS_PRUEBA.accdb"
 


« Última modificación: 20 Septiembre 2017, 22:09 pm por engel lex » En línea

UN SALUDO DE VUESTRO AMIGO Y VECINO,
PETETE;)
Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.788



Ver Perfil
Re: actualizar access
« Respuesta #1 en: 21 Septiembre 2017, 04:08 am »

como puedo hacer para que al leer un valor alfanumerico de un acces este se incremente en uno y se ponga en el excel?

Teniendo un patrón tal que: "Mi_Prefijo_0000"

1. Separar el String en dos partes o tokens, la alfabética (el prefijo), y la numérica (el índice).   "Mi_Prefijo_"  +  "0000"

2. Incrementar el valor de la parte numérica preservando la longitud del caracter de relleno, en este caso el Cero. ( ej. 0000 -> 0001 -> 0002 -> etc... )

3. Concatenar de nuevo la parte alfabética con la numérica, dando como resultado: "Mi_Prefijo_0001"

Fin.

No es algo complicado. Aquí tienes una función de uso genérico que he desarrollado la cual puedes adaptar a tus necesidades:

Código
  1. Public Shared Function IncrementIndexPattern(ByVal pattern As String, ByVal position As Integer, ByVal fillChar As Char) As String
  2.  
  3.    Dim curSuffix As String = pattern.Substring(position)
  4.    Dim newSuffix As String
  5.    Dim suffixLen As Integer = curSuffix.Length
  6.    Dim index As Integer
  7.  
  8.    If Not Integer.TryParse(If(fillChar = "0"c, curSuffix, curSuffix.TrimStart(fillChar)), index) Then
  9.        Throw New FormatException("The value does not have a valid numeric format.")
  10.    End If
  11.  
  12.    newSuffix = Convert.ToString(index + 1).PadLeft(suffixLen, fillChar)
  13.    If (newSuffix.Length > suffixLen) Then
  14.        ' -= Deposite su control de errores aquí =-
  15.        ' La longitud del nuevo índice es mayor que la capacidad de ceros.
  16.        ' Ej. "pattern_12345" es más largo que "pattern_000".
  17.        Throw New IndexOutOfRangeException()
  18.  
  19.    Else
  20.        Return pattern.Substring(0, position) & newSuffix
  21.  
  22.    End If
  23.  
  24. End Function

Ejemplo de uso:
Código
  1. ' Programatically building a pattern.
  2. Dim prefix As String = "My_Pattern_"
  3. Dim fillChar As Char = "#"c
  4. Dim fillCount As Integer = 4
  5. Dim firstIdx As String = New String(fillChar, (fillCount - 1)) & "0" ' ###0
  6. Dim pattern As String = (prefix & firstIdx) ' My_Pattern_###0
  7. Debug.WriteLine(pattern)
  8.  
  9. ' Setting the loop values.
  10. Dim idxStartPos As Integer = prefix.Length ' Or also: (pattern.LastIndexOf("_"c) + 1)
  11. Dim maxIndexCount As Integer = Convert.ToInt32(New String("9"c, fillCount)) ' Max possible index to fill.
  12.  
  13. For i As Integer = 0 To (maxIndexCount - 1)
  14.    pattern = IncrementIndexPattern(pattern, idxStartPos, fillChar)
  15.    Debug.WriteLine(pattern)
  16. Next i

Resultado de ejecución:
Código:
My_Pattern_###0
My_Pattern_###1
My_Pattern_###2
My_Pattern_###3
My_Pattern_###4
My_Pattern_###5
My_Pattern_###6
My_Pattern_###7
My_Pattern_###8
My_Pattern_###9
My_Pattern_##10
...
My_Pattern_9990
My_Pattern_9991
My_Pattern_9992
My_Pattern_9993
My_Pattern_9994
My_Pattern_9995
My_Pattern_9996
My_Pattern_9997
My_Pattern_9998
My_Pattern_9999

Saludos.


« Última modificación: 21 Septiembre 2017, 04:28 am por Eleкtro » En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Access
Ingeniería Inversa
Juanbayne 3 2,264 Último mensaje 3 Enero 2005, 04:32 am
por Juanbayne
VB 6.0 con Access DB
Programación Visual Basic
Chop 2 1,646 Último mensaje 12 Octubre 2007, 00:35 am
por Hans el Topo
En Access, ¿Cómo actualizar automáticamente lectura a archivo?
Bases de Datos
skan 0 1,913 Último mensaje 21 Agosto 2014, 21:01 pm
por skan
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines