Consulta Base de Datos. Ayudaaaa
Quiero recuperar el valor maximo de una tabla desde visual basic con codigo pero me sale el error de no se reconoce el formato de la base de datos. El codigo es el siguiente:
Dim dbs As Database, rst As Recordset
Set dbs = OpenDatabase ("C:AgenciaVBbdagencia.mdb")
Set rst = dbs.OpenRecordset("SELECT max(CDCARYDES) FROM CARYDES WHERE ((CDORDEN =" & Adodc1.Recordset.Fields("ordcod") & ") AND (CDTIP = 1))", dbOpenDynaset)
If rst.EOF Then
maximo = 0
ElseIf IsNull(rst(0)) Then
maximo = 0
Else
maximo = rst(0)
End If
Si la consulta la hago desde el diseñador de consultas funciona. Tambien me gustaria preguntar si hay otra forma de conectarse a la base de datos para que utilice ODBC porque el codigo quiero luego traspasarlo a SQL SERVER y creo que seria la opcion
Dim dbs As Database, rst As Recordset
Set dbs = OpenDatabase ("C:AgenciaVBbdagencia.mdb")
Set rst = dbs.OpenRecordset("SELECT max(CDCARYDES) FROM CARYDES WHERE ((CDORDEN =" & Adodc1.Recordset.Fields("ordcod") & ") AND (CDTIP = 1))", dbOpenDynaset)
If rst.EOF Then
maximo = 0
ElseIf IsNull(rst(0)) Then
maximo = 0
Else
maximo = rst(0)
End If
Si la consulta la hago desde el diseñador de consultas funciona. Tambien me gustaria preguntar si hay otra forma de conectarse a la base de datos para que utilice ODBC porque el codigo quiero luego traspasarlo a SQL SERVER y creo que seria la opcion
