problemas con adodb
Publicado por Guille (5 intervenciones) el 27/04/2008 08:33:44
Tengo el siguiente cod:
Public origen As String
Public cn As New ADODB.Connection
Public rsprospectos As New ADODB.Recordset
Public Sub conectar()
origen = App.Path & "ase de datosase.mdb"
cn.CursorLocation = adUseClient
cn.Open ("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & origen & ";Persist _ Security Info=False;Jet OLEDB:Database Password=supercali")
End Sub
Public Sub abrir(rs As ADODB.Recordset, sent As String)
rs.Open sent, cn, adOpenDynamic, adLockOptimistic
End Sub
Public Sub abrir_datos()
sentencia = "SELECT * from prospectos order by apellido "
abrir rsprospectos, sentencia
End Sub
el cual hasta ahi anda barbaro.... ahora.... quise cambiar la sentencia por:
sentencia="SELECT nombre, apellido, edad, pais from prospectos group by pais"
y me tira un error 80040e10 en tiempo de ej. Ha intentado ejecutar una consulta que no incluye la expresion especificada 'nombre' como parte de una funcion de agregado.
Lo que me llama la atencion es que hace referencia a 'nombre'... pero si le saco el group by anda todo barbaro
Desde ya agradezco su ayuda
Public origen As String
Public cn As New ADODB.Connection
Public rsprospectos As New ADODB.Recordset
Public Sub conectar()
origen = App.Path & "ase de datosase.mdb"
cn.CursorLocation = adUseClient
cn.Open ("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & origen & ";Persist _ Security Info=False;Jet OLEDB:Database Password=supercali")
End Sub
Public Sub abrir(rs As ADODB.Recordset, sent As String)
rs.Open sent, cn, adOpenDynamic, adLockOptimistic
End Sub
Public Sub abrir_datos()
sentencia = "SELECT * from prospectos order by apellido "
abrir rsprospectos, sentencia
End Sub
el cual hasta ahi anda barbaro.... ahora.... quise cambiar la sentencia por:
sentencia="SELECT nombre, apellido, edad, pais from prospectos group by pais"
y me tira un error 80040e10 en tiempo de ej. Ha intentado ejecutar una consulta que no incluye la expresion especificada 'nombre' como parte de una funcion de agregado.
Lo que me llama la atencion es que hace referencia a 'nombre'... pero si le saco el group by anda todo barbaro
Desde ya agradezco su ayuda
Valora esta pregunta


0