[BD] Campo autonumerico

[suarex]

Buenas noches.
Tengo varios campos, entre esos tengo un campo en la base de datos llamado CODIGO, es un campo autonumerico, como va un valor autonumerico y quiero saber como hacer que el visual me reconosca el ultimo valor del campo autonumerico y siga agregando desde alli.

Conexion

Código:

    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

Código:

Call Grabar_BDCancionero(Aqui va el valor de codigo, Hora, Fecha)

Gracias.

[Heimish2000]

Si es campo autonumérico lo más probable es que no haga falta informarlo en el INSERT y que la base de datos lo inserte automáticamente por lo que tu INSERT podría prescindir de él.

Si no es así o sigues empeñado en saberlo, lo mejor es que lo recuperes antes con un SELECT MAX(código) FROM TABLA y donde lo recojas le añadas uno.

Siempre que sea posible es mejor la primer opción porque así lo gestiona la base de datos directamente

[suarex]

Iniciado por Heimish2000

Si es campo autonumérico lo más probable es que no haga falta informarlo en el INSERT y que la base de datos lo inserte automáticamente por lo que tu INSERT podría prescindir de él.

Si no es así o sigues empeñado en saberlo, lo mejor es que lo recuperes antes con un SELECT MAX(código) FROM TABLA y donde lo recojas le añadas uno.

Siempre que sea posible es mejor la primer opción porque así lo gestiona la base de datos directamente

Bueno eligiendo la primera opcion digamos que al hacer el INSERT original

Código:

sSql = "INSERT INTO BDCancionero VALUES("
    sSql = sSql & Codigo & ", '" & Nombre & "', '" & Ruta & "', " & Cantidad & ", '" & Tipo & "')"

Y asi queda

Código:

sSql = "INSERT INTO BDCancionero VALUES("
    sSql = sSql  & Nombre & "', '" & Ruta & "', " & Cantidad & ", '" & Tipo & "')"

Y me dice falta operador en la expresion de consulta vb

[Heimish2000]

Te falta poner una comilla antes de Nombre (sólo tiene la de después)

[suarex]

Iniciado por Heimish2000

Te falta poner una comilla antes de Nombre (sólo tiene la de después)

No estoy muy claro con el asunto de las comillas

Código:

  sSql = sSql & "','" & Nombre & "',' " & Ruta & "', " & Cantidad & ", '" & Tipo & "')"

Lo he dejado asi y me manda error de sintaxis en la instruccion insert into Todos son strings

Código:

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

Disculpe la molestia

[Heimish2000]

Es que en el SQL que estás construyendo estás poniendo ahora mismo:

Código SQL:

INSERT INTO BDCancionero VALUES(','
 

Y luego ya el nombre y demás.

¿No ves nada raro ahí?

[suarex]

Iniciado por Heimish2000

Es que en el SQL que estás construyendo estás poniendo ahora mismo:

Código SQL:

INSERT INTO BDCancionero VALUES(','
 

Y luego ya el nombre y demás.

¿No ves nada raro ahí?

Muy cierto ya lo corregí, me quedo

Código:

    sSql = "INSERT INTO BDCancionero VALUES('"
    sSql = sSql & Nombre & "' , '" & Ruta & "', " & Cantidad & ", '" & Tipo & "')"

Lastimosamente no me funciona ya que me dice el número de valores de consulta y el número de campos de destino son diferentes, creo que solo me queda una opcion mas complicada la que es llamar al SELECT MAX y eso. Gracias de igual forma.

[suarex]

Iniciado por suarex

Muy cierto ya lo corregí, me quedo

Código:

    sSql = "INSERT INTO BDCancionero VALUES('"
    sSql = sSql & Nombre & "' , '" & Ruta & "', " & Cantidad & ", '" & Tipo & "')"

Lastimosamente no me funciona ya que me dice el número de valores de consulta y el número de campos de destino son diferentes, creo que solo me queda una opcion mas complicada la que es llamar al SELECT MAX y eso. Gracias de igual forma.

Ya lo solucione, tenia que primero nombrar los campos

Código:

  sSql = "INSERT INTO BDCancionero (Nombre,Ruta,Cantidad,tipo) VALUES('"

Etc...

Gracias!