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

 

 


Tema destacado: Introducción a Git (Primera Parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Autoenumerar desde ultimo valor [Base de datos]
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Autoenumerar desde ultimo valor [Base de datos]  (Leído 1,488 veces)
suarex

Desconectado Desconectado

Mensajes: 7


Ver Perfil
Autoenumerar desde ultimo valor [Base de datos]
« en: 19 Mayo 2011, 03:10 am »

Buenos dias  ;D

Tengo un problema, miren tengo un programa que se encarga de agregar los directorios de los archivos a una base de datos. lo hago seleccionando un directorio con un dirlistbox. El agrega en la base de datos los siguiente campos: codigo, nombre, ruta, tipo. El campo codigo cuenta cuantos archivos hay en la base de datos, pero el problema es que luego de agregar. cuando vuelvo a agregar mas archivos en la base de datos me da un error que no me permite duplicados. (obviamente yo lo bloque porque no quiero duplicados) quisiera saber como puedo obtener el ultimo valor del campo codigo e ir sumando desde alli. CODIGO ES UN NUMERO


Código:
Option Explicit
Dim rs As ADODB.Recordset
Dim db As ADODB.Connection




Private Sub Command1_Click()
    Set db = New ADODB.Connection
    Set rs = New ADODB.Recordset
   
    With db
 .Provider = "Microsoft.jet.oledb.4.0" '(Access 2000)
 .ConnectionString = "datos.mdb"
 .Open
End With


'Aki tomo el index de k.
Dim k As Long
Dim archivo() As String
Dim Modificar As String
Screen.MousePointer = 11
For k = 0 To Text1.ListCount - 1
    If InStr(Text1.List(k), "'") Then
        Modificar = Modificar & "Original: " & Text1.List(k) & (Chr(13) & Chr(10))
        Text1.List(k) = Replace(Text1.List(k), "'", "")
        Modificar = Modificar & " Final: " & Text1.List(k) & (Chr(13) & Chr(10))
    End If
    archivo = Split(Text1.List(k), "\", -1, vbTextCompare)
    Call Grabar_BDCancionero(k + 1, Mid(archivo(4), 1, Len(archivo(4)) - 4), Text1.List(k), 0, Right(archivo(4), 4))
Next k

Screen.MousePointer = 0
MsgBox "Se ha actualizado la base de canciones", vbInformation
MsgBox "Modificaciones Pendientes " & (Chr(13) & Chr(10)) & Modificar
'Set rs = db.Execute("select top 10 * from BDCancionero")
Command1.Visible = False
Command2.Visible = True
End Sub

Private Sub Command2_Click()
'recorremos todos los archivos de musica y guardamos cada uno en la DB.
Dim Carpeta_Genero As Long
Dim Carpeta_Artista As Long
Dim i As Integer
Dim j As Integer
Dim k As Integer
Text1.Clear
Carpeta_Genero = Dir1.ListCount
For i = 0 To Dir1.ListCount - 1
    Dir2 = Dir1.List(i)
    For j = 0 To Dir2.ListCount - 1
        'Dir1 = Dir1.List(i)
        'If i = 0 Then
        '    Dir2.Path = Dir1.List(i)
        'Else
        '    Dir2.Path = Dir1
        '    Dir1 = Dir1.List(-2)
        'End If
        File1 = Dir2.List(j)
        For k = 0 To File1.ListCount - 1
            File1.ListIndex = k
            Text1.AddItem (File1.Path & "\" & File1.FileName)
        Next k
    Next j
Next i
Label2.Caption = Text1.ListCount
End Sub

Public Function Grabar_BDCancionero(Codigo As Long, Nombre As String, Ruta As String, Cantidad As Integer, Tipo As String)
    Dim sSql As String
   
   
    sSql = "INSERT INTO BDCancionero VALUES("
    sSql = sSql & Codigo & ", '" & Nombre & "', '" & Ruta & "', " & Cantidad & ", '" & Tipo & "')"
   
    Set rs = db.Execute(sSql)
   
End Function
Private Sub Dir1_Change()
    Dir1.Path = Dir1
End Sub

Private Sub Dir2_Change()
    File1.Path = Dir2.Path
End Sub

Private Sub Drive1_Change()
    Dir1.Path = Drive1.Drive
End Sub

Private Sub Form_Load()
    File1.Pattern = "*.mpg;*.wmv;*.avi;*.mp4;*.m2v;*.vob;*.mov;*.asf;*.mp3;*.mp2;*.swa;*.wma;*.wav;*.mid;*.ogg;*.mkv;*.mpa;*.ac3;*.aac;*.kar;*.flv"
End Sub

Private Sub Image1_Click()
End
End Sub



En línea

seba123neo
Moderador
***
Desconectado Desconectado

Mensajes: 3.621


"No quiero creer, quiero saber" - Carl Sagan


Ver Perfil WWW
Re: Autoenumerar desde ultimo valor [Base de datos]
« Respuesta #1 en: 19 Mayo 2011, 03:58 am »

antes de guardar, haces esta consulta:

Código
  1. SELECT MAX(codigo)+1 AS nuevoCodigo FROM BDCancionero

guarda el valor de "nuevoCodigo" en una variable e inserta esa misma en el codigo.

saludos.


En línea

La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.

Neil deGrasse Tyson
suarex

Desconectado Desconectado

Mensajes: 7


Ver Perfil
Re: Autoenumerar desde ultimo valor [Base de datos]
« Respuesta #2 en: 19 Mayo 2011, 04:30 am »

antes de guardar, haces esta consulta:

Código
  1. SELECT MAX(codigo)+1 AS nuevoCodigo FROM BDCancionero

guarda el valor de "nuevoCodigo" en una variable e inserta esa misma en el codigo.

saludos.
Gracias por responder.
He hecho estas 3 modificaciones. Pero me dice que no coinciden los tipos, me extraña porque las almaceno como un  Dim Integer.


Citar
'Declaraciones
Dim nuevocodigo As Integer
Citar
Private Sub Command1_Click()

 Set db = New ADODB.Connection
    Set rs = New ADODB.Recordset
    
    With db
 .Provider = "Microsoft.jet.oledb.4.0" '(Access 2000)
 .ConnectionString = "datos.mdb"
 .Open
End With

Set db = "SELECT MAX (codigo)+1 AS nuevoCodigo FROM BDCancionero"

'Aki tomo el index de k.
Dim k As Long
Dim archivo() As String
Dim Modificar As String
Screen.MousePointer = 11
For k = 0 To Text1.ListCount - 1
    If InStr(Text1.List(k), "'") Then
        Modificar = Modificar & "Original: " & Text1.List(k) & (Chr(13) & Chr(10))
        Text1.List(k) = Replace(Text1.List(k), "'", "")
        Modificar = Modificar & " Final: " & Text1.List(k) & (Chr(13) & Chr(10))
    End If
    archivo = Split(Text1.List(k), "\", -1, vbTextCompare)
    Call Grabar_BDCancionero(nuevocodigo + 1, Mid(archivo(4), 1, Len(archivo(4)) - 4), Text1.List(k), 0, Right(archivo(4), 4))
Next k

Screen.MousePointer = 0
MsgBox "Se ha actualizado la base de canciones", vbInformation
MsgBox "Modificaciones Pendientes " & (Chr(13) & Chr(10)) & Modificar
'Set rs = db.Execute("select top 10 * from BDCancionero")
End Sub
« Última modificación: 19 Mayo 2011, 04:41 am por suarex » En línea

seba123neo
Moderador
***
Desconectado Desconectado

Mensajes: 3.621


"No quiero creer, quiero saber" - Carl Sagan


Ver Perfil WWW
Re: Autoenumerar desde ultimo valor [Base de datos]
« Respuesta #3 en: 19 Mayo 2011, 05:02 am »

es que asi no va a funcionar, esto:
Citar
Set db = "SELECT MAX (codigo)+1 AS nuevoCodigo FROM BDCancionero"

ahi no se que haces, estas asignando la variable de la conexion de la base de datos a un string...eso no va.

la consulta que te pase debes pasarsela a la propiedad .Open de un recordset..y asi obtenes el codigo.

saludos.
En línea

La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.

Neil deGrasse Tyson
suarex

Desconectado Desconectado

Mensajes: 7


Ver Perfil
Re: Autoenumerar desde ultimo valor [Base de datos]
« Respuesta #4 en: 19 Mayo 2011, 05:19 am »

es que asi no va a funcionar, esto:
ahi no se que haces, estas asignando la variable de la conexion de la base de datos a un string...eso no va.

la consulta que te pase debes pasarsela a la propiedad .Open de un recordset..y asi obtenes el codigo.

saludos.

 >:( es cierto

Código:
'Declaraciones
Dim nuevoCodigo As ADODB.Recordset

Código:
nuevoCodigo.Open = "SELECT MAX (codigo)+1 AS nuevoCodigo FROM BDCancionero"

Aun asi me dice que esperaba una funcion o una variable.
En línea

seba123neo
Moderador
***
Desconectado Desconectado

Mensajes: 3.621


"No quiero creer, quiero saber" - Carl Sagan


Ver Perfil WWW
Re: Autoenumerar desde ultimo valor [Base de datos]
« Respuesta #5 en: 19 Mayo 2011, 05:28 am »

es que no se usa asi, tenes que leer un manual de ADO antes de ponerte a hacer esto.

aca tenes un ejemplo simple..pero hay mas busca.

Conectar a una base de datos de SQL Server con VB6
En línea

La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.

Neil deGrasse Tyson
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines