Error 6160 En Tiempo De Ejecucion
Contents |
cboObra_Click()cboAnticipoDirigidoA.Text = ""cboLegalizacionNo.Text = ""Set Con = New ADODB.ConnectionWith Con .ConnectionString = "provider = microsoft.ace.oledb.12.0;data source=D:\PROYECTO TYT\TYT.accdb" .OpenEnd WithSet Rec4 = New ADODB.RecordsetWith Rec4 Set .ActiveConnection = Con .CursorType = adOpenDynamic .CursorLocation = adUseClient .LockType = error 1004 en tiempo de ejecucion adLockOptimistic .Source = "select * from LEGALIZACIONES where OBRA ='" & cboObra & "'" error 70 en tiempo de ejecucion .OpenEnd WithSet DataGrid1.DataSource = Rec4Display2End SubAl seleccionar un dato, del cual on hay registro en otra tabla me aparece un error
Error 91 En Tiempo De Ejecucion
en esta linea:Private Sub Display2()Set Con = New ADODB.ConnectionWith Con .ConnectionString = "provider = microsoft.ace.oledb.12.0;data source=D:\PROYECTO TYT\TYT.accdb" .OpenEnd WithSet Rec2 = New ADODB.RecordsetWith Rec2 Set .ActiveConnection = Con .CursorType = adOpenDynamic .CursorLocation = adUseClient .LockType
Error 339 En Tiempo De Ejecucion
= adLockOptimistic .Source = "select * from RECIBOS where LEGALIZACION =" & Me.DataGrid1.Columns(1) .OpenEnd WithSet DataGrid2.DataSource = Rec2DataGrid2.Visible = TrueEnd SubEl error dice: Error '6160' en tiempo de ejecución: ¿Error de acceso de datoscomo puedo solucionar esto? Seguir Siguiendo Dejar de seguir 2 2 Respuestas Roberto Alvarado 566.575 pts. Desarrollador de aplicaciones en plataforma el 10 sep. 09 Verifica que Me. DataGrid1. Columns(1) devuelve el valor y no otra cosa el error 1004 en tiempo de ejecucion excel 10 sep. 09 Devuelve un valor de una tabla, pero como en la tabla a la cual le estoy haciendo el select no tiene nada me lanza el error. el 10 sep. 09 Entonces valida que si no devuelve un valor no puedes hacer la consulta sqleso lo haces antes de with Votada Deshacer voto Votar 1 Comentar Compartir Compartir respuesta Todoexpertos Facebook Twitter Google+ - Anónimo ahora mismo Añadir comentario Usa los comentarios si quieres aportar algo a esta respuesta. No los utilices para preguntar algo nuevo. Cancelar Enviar granpeke 45.075 pts. Ingeniero civil informático el 10 sep. 09 En la línea que marcas, el error puede estar en "Me.DataGrid1.Columns(1)", asegúrate que el datagrid que estás utilizando tiene datos al momento en que realizas esta consulta.Pruébalo y me dices. el 11 sep. 09 El segundo datagrid no tiene datos, pero no se como validar que si no hay datos entonce no haga la consulta. el 11 sep. 09 Hay dos casos que podrías validar.Caso 1: El datagrid está anexado a un recorset, pero el recorset no tiene registros, en tal caso la propiedad . ApproxCount es cero (0)Caso 2: El datagrid no tiene anexado un recorset, en tal caso, tienes que validar el error 7005 (Conjunto de fi
Access Error If this is your first visit, be sure to check out the FAQ by clicking the link above. You may
Error 70 En Tiempo De Ejecucion Citi Ventas
have to register before you can post: click the register link above error 13 en tiempo de ejecucion no coinciden los tipos to proceed. To start viewing messages, select the forum that you want to visit from the selection se ha producido el error 1004 en tiempo de ejecucion below. Results 1 to 2 of 2 Thread: datagrid runtime error "6160"Data Access Error Tweet Thread Tools Show Printable Version Subscribe to this Thread… Display Linear Mode Switch to http://www.todoexpertos.com/categorias/tecnologia-e-internet/programacion/visual-basic/respuestas/2194415/error-al-llamar-datos-de-una-tabla Hybrid Mode Switch to Threaded Mode Jan 7th, 2008,11:37 PM #1 gracehskuo View Profile View Forum Posts Thread Starter Fanatic Member Join Date Nov 2006 Posts 584 datagrid runtime error "6160"Data Access Error hi,please help,when i click a the datagrid have this error message come out. runtime error "6160"Data Access Error. this is the current code: Code: Private http://www.vbforums.com/showthread.php?503650-datagrid-runtime-error-quot-6160-quot-Data-Access-Error Sub Form_Load() Dim rs1 As ADODB.Recordset Dim rs2 As ADODB.Recordset Dim rs3 As ADODB.Recordset Dim UserId As String 'sql query login user department Set m_rs = OpenRecordset("select * from [Temp]" & vbCrLf & _ "where ([Department] in (" & vbCrLf & _ " select [DepartmentName] from [Department]" & vbCrLf & _ " where [Id] in (" & vbCrLf & _ " select [DepartmentID] from [UserDepartment]" & vbCrLf & _ " where [UserId] = '" & gUserId & "'" & vbCrLf & _ " ))" & vbCrLf & _ ") or exists(SELECT * FROM UserRoles WHERE [UserId] = " & gUserId & _ " and [RoleId] in (select [Id] from [Roles] where [RoleName] in ('admin','guest')))" & _ "", adOpenStatic, adLockOptimistic) Set DataGrid1.DataSource = m_rs Debug.Print "Connection Object Created" lpPrevWndProc = SetWindowLong(DataGrid1.hWnd, GWL_WNDPROC, AddressOf WndProc) End Sub Private Sub DataGrid1_Click() txtempname.Text = DataGrid1.Columns(1) txtempno.Text = DataGrid1.Columns(2) txtdesignation.Text = DataGrid1.Columns(3) txtdepartment.Text = DataGrid1.Columns(4) txtDateOt.Text = DataGrid1.Columns(5) txttimefrom.Text = DataGrid1.Columns(7) txttimeto.Text = DataGrid1.Columns(8) txtwork.Text = DataGrid1.Columns(12) txtworkdetail.Text = DataGrid1.Columns(13) End Sub thanks for help! Reply With Q
leídos Lista de miembros Quien está en línea Inicio Forum Programacion Visual Basic 6.00 Error 6160 en tiempo de ejecucion Colapsar X Colapsar Mensajes Última actividad Buscar Página de 1 Filtrar Tiempo Todo el http://www.foro.vb-mundo.com/forum/programacion/visual-basic-6-00/3144-error-6160-en-tiempo-de-ejecucion tiempo Hoy Semana pasada Mes pasado Mostrar Todos Discusioines únicamente Fotos solamente Solo https://support.microsoft.com/es-es/kb/966148 videos Solo enlaces Solo encuestas Filtrado por: Limpiar todos nuevos mensajes pompoko Nuevo Amigo Fecha de registro: Jan 2004 Mensajes: 83 #1 Error 6160 en tiempo de ejecucion 10-12-2004, 05:46 AM Hola a todos. Tengo una vieja aplicacion en vb6 que de buenas a primeras, me da error 6160, y no encuentro que diablos es en tiempo este codigo, imagino que es algo de acceso a datos, pero no identifico porque, si alguien me puede dar una manito, agradecido. Ale las mas importantes lecciones... me las dieron gratis... pero cuanto me costaron!!! Etiqueta: Ninguno acalanto Administrador Fecha de registro: Dec 2002 Mensajes: 6399 #2 10-12-2004, 06:19 AM ¿ Tienes un Datagrid ? Este error creo que se produce cuando una consulta devuelve un recordcount = en tiempo de 0 en el DataGrid. Suerte Un cordial saludo -Acalanto- Madrid - España Leer detalladamente las normas del foro es una buena forma de comenzar a participar en él. Te llevará unos pocos minutos y el colectivo de usuarios te lo agradecerá.
phone Accesorios Software Office Windows Otro Software Aplicaciones Todas las aplicaciones Aplicaciones para Windows Aplicaciones para Windows Phone Aplicaciones para Xbox Juegos Todos los juegos Juegos de Xbox One Juegos de Xbox 360 Juegos para Windows Juegos para Windows Phone Entretenimiento Todo el entretenimiento Películas y TV Música Empresa y Educación Pequeña empresa Estudiantes Ofertas especiales Ofertas especiales Tarjetas regalo Productos Software y servicios Windows Office Seguridad y descargas gratuitas Internet Explorer Microsoft Edge Skype OneNote OneDrive MSN Bing Microsoft Groove Películas y programas de TV de Microsoft Dispositivos y Xbox Todos los dispositivos Microsoft Microsoft Surface Accesorios para PC Xbox y juegos Microsoft Lumia Para empresas Plataforma en la nube Microsoft Azure Microsoft Dynamics Windows para la empresa Office para empresas Skype Empresarial Surface para empresas Soluciones para Grandes Organizaciones Soluciones para la pequeña empresa Buscar un proveedor de soluciones Licencias por volumen Para desarrolladores y profesionales informáticos Desarrollar aplicaciones para Windows Microsoft Azure MSDN TechNet Visual Studio Para estudiantes y profesores Office para estudiantes OneNote en el aula Ofertas de Dispositivos perfectos para estudiantes Microsoft en la Educación Soporte Iniciar sesión Cart Cart JavaScript está deshabilitado Habilita javascript y actualiza la página Las cookies están deshabilitadas Habilita las cookies y actualiza la página CV: {{ getCv() }} Español (España, alfabetización internacional) Términos de uso Privacidad y cookies Marcas comerciales © 2016 Microsoft