error en tiempo de ejecucion

[juancho24]

Hola

porfavor ayudenme con el siguiente error en una consulta :

error '-2147467259 (80004005)' en tiempo de ejecucion

puede que el campo 'rutcliente' especificado haga referencia a mas de una tabla de las mostradas en la clausula FROM de la instruccion SQL

aca les dejo las lineas de codigo de la consulta

If optCliente.Value = True Then

modVarios.rs1.Open "SELECT DATOSCLIENTE,RutCliente, DATOSCLIENTE.DvCliente, DATOSCLIENTE.NombreCliente, DATOSCLIENTE.DireccionCliente," & _
" DATOSCLIENTE.FonoCliente , DATOSCLIENTE.CorreoCliente, DATOSCLIENTE.Region, DATOSCLIENTE.Ciudad, SITUACIONFAMILIAR.EstadoCivil," & _
" SITUACIONFAMILIAR.CalidadViv, SITUACIONFAMILIAR.TipoViv, SITUACIONFAMILIAR.Endeudamiento, INGRESOSMENSUALES.TotalIngresos, Actividad.Descripcion," & _
" Actividad.CodigoSII, Actividad.DireccionComercial, Actividad.ClasActividad, Actividad.IniciacionActividad, Actividad.PatenteMunicipal, Actividad.PermisoMunicipal," & _
" PERSONALMICROEMPRESA.NumeroTrabFamiliares, PERSONALMICROEMPRESA.NumeroTrabNoFamiliares, PERSONALMICROEMPRESA.NombreColaborador, PERSONALMICROEMPRESA.Relacion," & _
" PERSONALMICROEMPRESA.ParticipacionNegocio, PERSONALMICROEMPRESA.TipoAdmNegocio, PERSONALMICROEMPRESA.RutAdmNegocio, PERSONALMICROEMPRESA.DvAdmNegocio," & _
" CLASIFICACIONAMBIENTAL.DescClas, LOCALCOMERCIAL.LocalPropio, COMPRASYVENTAS.FechaVenta, COMPRASYVENTAS.TotalVentas, COMPRASYVENTAS.FechaCompra, COMPRASYVENTAS.TotalCompra , " & _
" INVENTARIOSTOCK.TotalInventario, DISTRIBUCIONCOMERCIALIZACION.Utilidades, DISTRIBUCIONCOMERCIALIZACION.MontoCuota, GASTOSFIJOSMENSUALES.Sueldodelpersonal," & _
" GASTOSFIJOSMENSUALES.ArriendodeLocal, GASTOSFIJOSMENSUALES.GastosGenerales, GASTOSFIJOSMENSUALES.GastosdeContabilidad, GASTOSFIJOSMENSUALES.Patente," & _
" GASTOSFIJOSMENSUALES.OtrosGastos, GASTOSVARIABLESMENSUALES.MesEvaluacion, GASTOSVARIABLESMENSUALES.IngresosporVentas, GASTOSVARIABLESMENSUALES.TotalCostosVariables," & _
" GASTOSVARIABLESMENSUALES.MargendeContribucion, RENTALIQUIDA.MargenUtilidad, RENTALIQUIDA.PromedioMesBuenos, RENTALIQUIDA.PromedioMesNormales, RENTALIQUIDA.PromedioMesMalos," & _
" RENTALIQUIDA.[Ventas-IVA-Promedio], RENTALIQUIDA.[Compras-IVA-Promedio], OBSERVACIONESGENERALES.NombrePersonaAtendio, OBSERVACIONESGENERALES.HoraVisita, OBSERVACIONESGENERALES.RelacionconCliente," & _
" OBSERVACIONESGENERALES.DisposiciondelCliente, OBSERVACIONESGENERALES.MontoCredito, OBSERVACIONESGENERALES.PlazoCredito, OBSERVACIONESGENERALES.ObjetivosCredito," & _
" OBSERVACIONESGENERALES.Conclusion , OBSERVACIONESGENERALES.fecha FROM ((((((((((((DATOSCLIENTE INNER JOIN PERSONALMICROEMPRESA ON (DATOSCLIENTE.RutCliente = PERSONALMICROEMPRESA.RutCliente)" & _
" AND (DATOSCLIENTE.DvCliente = PERSONALMICROEMPRESA.DvCliente))INNER JOIN CLASIFICACIONAMBIENTAL ON (DATOSCLIENTE.RutCliente = CLASIFICACIONAMBIENTAL.RutCliente)" & _
" AND (DATOSCLIENTE.DvCliente = CLASIFICACIONAMBIENTAL.DvCliente))INNER JOIN INGRESOSMENSUALES ON (DATOSCLIENTE.RutCliente = INGRESOSMENSUALES.RutCliente)" & _
" AND (DATOSCLIENTE.DvCliente = INGRESOSMENSUALES.DvCliente))INNER JOIN LOCALCOMERCIAL ON (DATOSCLIENTE.RutCliente = LOCALCOMERCIAL.RutCliente)" & _
" AND (DATOSCLIENTE.DvCliente = LOCALCOMERCIAL.DvCliente)) INNER JOIN ACTIVIDAD ON (DATOSCLIENTE.RutCliente = ACTIVIDAD.RutCliente) " & _
" AND (DATOSCLIENTE.DvCliente = ACTIVIDAD.DvCliente)) INNER JOIN SITUACIONFAMILIAR ON (DATOSCLIENTE.RutCliente = SITUACIONFAMILIAR.RutCliente)" & _
" AND (DATOSCLIENTE.DvCliente = SITUACIONFAMILIAR.DvCliente))INNER JOIN INVENTARIOSTOCK ON (DATOSCLIENTE.DvCliente = INVENTARIOSTOCK.DvCliente)" & _
" AND (DATOSCLIENTE.RutCliente = INVENTARIOSTOCK.RutCliente))INNER JOIN COMPRASYVENTAS ON (DATOSCLIENTE.DvCliente = COMPRASYVENTAS.DvCliente)" & _
" AND (DATOSCLIENTE.RutCliente = COMPRASYVENTAS.RutCliente))INNER JOIN DISTRIBUCIONCOMERCIALIZACION ON (DATOSCLIENTE.DvCliente = DISTRIBUCIONCOMERCIALIZACION.DvCliente) AND (DATOSCLIENTE.RutCliente = DISTRIBUCIONCOMERCIALIZACION.RutCliente)) INNER JOIN GASTOSFIJOSMENSUALES ON (DATOSCLIENTE.DvCliente = GASTOSFIJOSMENSUALES.DvCliente) AND (DATOSCLIENTE.RutCliente = GASTOSFIJOSMENSUALES.RutCliente)) INNER JOIN GASTOSVARIABLESMENSUALES ON (DATOSCLIENTE.DvCliente = GASTOSVARIABLESMENSUALES.DvCliente) AND (DATOSCLIENTE.RutCliente = GASTOSVARIABLESMENSUALES.RutCliente)) INNER JOIN RENTALIQUIDA ON (DATOSCLIENTE.DvCliente = RENTALIQUIDA.DvCliente) AND (DATOSCLIENTE.RutCliente = RENTALIQUIDA.RutCliente)) INNER JOIN OBSERVACIONESGENERALES ON (DATOSCLIENTE.DvCliente = OBSERVACIONESGENERALES.DvCliente) AND (DATOSCLIENTE.RutCliente = OBSERVACIONESGENERALES.RutCliente))WHERE (((DATOSCLIENTE.RutCliente)= val('" & txtrutCliente.Text & "')));", cnn1, adOpenStatic, adLockOptimistic
If modVarios.rs1.BOF = False And modVarios.rs1.EOF = False Then
If txtrutCliente.Text <> "" Then
If modVarios.rs1("RutCliente") = txtrutCliente.Text Then
Call modVarios.CargarDataGrid(DataGrid1)
Else
MsgBox ("no hay datos para cargar"), vbInformation
End If
Else
MsgBox ("Debe seleccionar un dato"), vbCritical

End If
Else
MsgBox ("La tabla no tiene registros"), vbCritical

End If
Call Ajustar_Columna_DataGrid(DataGrid1, adodc1, True)
cmdVistaPrevia.Enabled = True
End If

espero me puedan ayudar
Muchas Gracias

Juancho24

[Avellaneda]

¿No será por esta coma, que debería ser un punto?

SELECT DATOSCLIENTE,RutCliente

[juancho24]

Iniciado por Avellaneda

¿No será por esta coma, que debería ser un punto?

SELECT DATOSCLIENTE,RutCliente

Gracias por responder, ahora tengo otra consulta

corregi lo del punto pero ahora me sale un error de sintaxis en la clausula from que no pude encontrar, ayudame porfavor

muchas gracias

saludos

[David]

Coloca el código de la cláusula FROM tal y como lo tienes pero envuélvela con la etiqueta CODE en el editor. Así:

Código:

Código

Porque así como está es difícil de encontrar el error.