Consulta SQL

15/05/2006 - 22:07 por Fabian | Informe spam

Hola a todos!
Estoy tratando de hacer una consulta "Existe" "No Exixte" o "Verdadero"
"Falso"
En la base de datos tengo un campo NRegistro que NO es el numero de
registro que le asigna la base de access.
Este numero me sirve para encontrar registros, y hacerles cambios a los
campos.
Necesitaria buscar un numero determinado de registro (Reg) y que me devuelva
si existe o no existe, luego asi:
El codigo que escribi ya falla en la consulta. Gracias.
Si no existe el numero entonces
Ir a rutina de carga
Sino
Ir a rutina de actualizacion
Fin

Private Sub Test()
Dim Cnn As ADODB.Connection
Dim Rst As ADODB.Recordset
Dim Reg As Long
Dim Ruta As String
Dim Existe as Boolean
Reg = Hoja1.Cells(ActiveCell.Row, 13)
Ruta = ThisWorkbook.Path

Set Cnn = New ADODB.Connection
With Cnn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & Ruta & "\BaseViajes.mdb"
.Open
End With
Set Rst = New ADODB.Recordset
Rst.Open "SELECT NRegistro FROM Viajes WHERE NRegistro = '" & Reg & "'",
Cnn, , , adCmdText

'El campo NRegistro es Long en la base de datos.

if Rst="" then Existe=False: Else Existe=True

End Sub

Siga el debate

7 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#6 Fabian

17/05/2006 - 01:59 | Informe spam

Hola Héctor!
Segun tu criterio cual es el mejor metodo, el que utice yo o el que me
aconsejas "<aqui tu conexion>.CursorLocation = adUseClient" , que tambien
estaba como posibilidad en la consulta que encontre.
Despues voy a dilucidar los vinculos que me pasaste, sobre todo los que
estan en ingles.
Saludos! y gracias.

Responder a este mensaje

#7 Héctor Miguel

17/05/2006 - 04:39 | Informe spam

hola, Fabian !

Segun tu criterio cual es el mejor metodo, el que utice yo o el que me aconsejas
"<aqui tu conexion>.CursorLocation = adUseClient"
que tambien estaba como posibilidad en la consulta que encontre.
Despues voy a dilucidar los vinculos que me pasaste, sobre todo los que estan en ingles.

[creo yo que]... mas que un 'criterio' [al igual que un 'juicio' +/- 'aceptable']...
-> que seguramente dependeria de otras y variadas 'circunstancias' :))
pudieramos pensar en una 'evaluacion' de si son necesarias ambas instrucciones [o solo alguna] -?-

[hasta donde se]... abrir un recordset especificando un tipo de cursor como adOpenKeyset / adOpenDynamic
-> resulta de utilidad [p.e.] cuando se tiene la necesidad de modificar/actualizar/... los datos 'de origen' del recordset
[en tanto que]... especificar la ubicacion del cursor con un -> CursorLocation = adUseClient
-> te ayuda a 'evitar' el -1 cuando se intenta 'leer' el numero de registros con 'RecordCount'... cuando NO se encontro alguno :))
[y tambien... segun otras y variadas 'circunstancias'] :D
[entonces]... decidir o encontrar cual es 'mejor'... [de nuevo] va a depender de tus necesidades 'especificas' :))

[creo que]... encontraras la informacion necesaria para este tipo de analisis en las paginas sugeridas ;)

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

1 2

Busqueda sugerida