Error 3709 En Tiempo De Ejecucion Visual Basic 6.0
Basic 6 con Accces y no puedoMira he creado lo siguienteGlobal db As New ADODB. ConnectionGlobal rscliente As New ADODB. RecordsetPublic Sub DATA()db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Farmacia\FARMACIA.mdb;Persist Security Info=False"End SubPublic Sub Cliente()Rscliente. Open "select * FROM cliente", db, adOpenStatic, adLockOptimistic luego desde un formulario hago lo siguiente:Private Sub cmdgrabar_Click()Call Cliente With rscliente .AddNew !codcliente = txtcodcliente.Text !apellidos = txtapellidos.Text !nombres = txtnombres.Text !direccion = txtdireccion.Text !documento = txtdocumento.Text !fnac = txtfecnac.Text !telefono = txttelefono.Text !ruc = txtruc.Text !carnet = txtcarnet.Text !observacion = txtobservacion.Text .Update End WithEnd SubPresiono f8 y sale bien hasta que llama a la tabla rscliente. Open y manda el siguiente error:Error 3709No se puede utilizar la conexión para realizar esta operación. Está cerrada o no es valida en este contexto.A ver si me ayudas Seguir Siguiendo Dejar de seguir 4 4 respuestas Respuesta de Roberto Alvarado 1 1 Roberto Alvarado, Desarrollador de aplicaciones en plataforma Cuando abres la Tabla en el recordset estas utilizando "adOpenStatic", esto es solo para consultas, creo que ese es tu error.Te recoemiendo utilizar adOpenDynamic para casos de actualización como el que estas utilizando. el 18 oct. 05 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 Respuesta de denciso 1 1 denciso, Soy una persona multifacética, tanto manejo la informática,... Tiene que ser de esta forma:Global db As ADODB. Connection Global rscliente As ADODB. Recordset Public Sub DATA() set db = NEW ADODB.Con
conexión a una base de datos de SQL y arrojo los datos en un flexgrid. Pero me manda error de ejecución 3709. No se puede realizar esta conexión para hacer esta operación. Esta cerrada o no es valida en este contexto... Y la verdad no entiendo el por que si esta muy claro el .open de mi conexión..¿Podrías ayudarme por favor? Te lo agradeceré mucho. Te mando parte de mi código y en la linea donde manda error. Saludos... Espero tus comentarios y gracias nuevamentePrivate Sub cmdBuscar_Click()Dim strSQLNombre As StringSet gRsNombre = NothingSet gRsNombre = New ADODB.Recordsetstrnombre = txtnombre.TextstrSQLNombre = " SELECT * " & _ " FROM Corporativo " & http://www.todoexpertos.com/categorias/tecnologia-e-internet/programacion/visual-basic/respuestas/1287347/error-3709-ayuda-por-favor _ " WHERE Nombre like '" & strnombre & "' AND Grupo = " & varNivelUsuConexionBD frmbusqueda'----->En lo siguiente es donde manda el error gRsNombre.Open strSQLNombre, mCnn, adOpenStatic, adLockOptimisticSet flexnombre.DataSource = gRsNombreEnd Sub Seguir Siguiendo Dejar de seguir 1 1 Respuesta Roberto Alvarado 566.575 pts. Desarrollador de aplicaciones en plataforma el 13 mar. 10 ¿El objeto mCnn esta abierto? Porque el error es porque la conexión que es el objeto http://www.todoexpertos.com/categorias/tecnologia-e-internet/programacion/visual-basic/respuestas/2347361/problema-ejecucion-3709-visual-basic mCnn no esta abierto. el 16 mar. 10 Realmente la cuestión fue que tenia dos conexiones abiertas y aunque si abría mCnn tenia otro proceso abriendo la conexión a mCnnT1 por lo que no permitía realizar mis conexiones mCnn en mis procesos.Tu respuesta fue muy obvia, realmente se necesitaba un poco más de inspiración, ni modo más suerte para la próxima ambos. Votada Deshacer voto Votar 0 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 Añade tu respuesta Haz clic para responder o pedir más información Escribe tu mensaje Cancelar Enviar Más respuestas relacionadas Recordset desconectado Mi pregunta es tengo un recordset desconectado quisiera saber si hay manera de estando desconectado eliminar registro por medio de sql y lo mismo para actualizar. Quiero que sea una temporal en la que pueda hacer cambios sin que afecten la tabla original 1 respuesta Estoy realizando un programa en Visual Basic con MySQL y tengo problemas para agregar. Tengo una duda en un pequeño programa que estoy realizando el VB 6.0 con mysql, al momento de agregar un registro me manda un error que dice: "error '3709' en tiempo de ejecución No se puede utilizar la conexión para realizar esta operación para.... 1 respuesta
lengua no hispana requieren completar el Captcha y apretar el botón "Submit" para poder acceder con normalidad al sitio.
ProgramadoresIniciar sesiónCorreo: Contraseña: Entrar Recordar sesión en este navegadorRecordar contraseña?Iniciar sesiónCrear cuentaDocumentación y RecursosCursos y ManualesBiblioteca de TemasCódigo FuenteNoticias/ArtículosForos y ConsultasForos de ConsultaChats de prog.Nuevo!!Tablón de NotasDiccionario informáticoProgramadoresProgramadoresOfertas de TrabajoSolicitudes para prog.Lista de CorreoProgramasProgramas/UtilidadesNuestros ProgramasIconos y CursoresPreguntas/RespuestasOtrosUtilidadesColaboradoresEncuestas/EstadísticasContactarLWP » Foros » Visual Basic » Error en tiempo de ejecucion Visual Basic - Error en tiempo de ejecucion VolverNuevo Tema<<>> Vista: arbolcronológicoError en tiempo de ejecucionAna(21/09/2007 17:05:52)12.187 visitas9 respuestasRE:Error en tiempo de ejecucionUnomásnomás(21/09/2007 17:41:01)RE:Error en tiempo de ejecucionotro mas y mas(21/09/2007 19:43:40)RE:Error en tiempo de ejecucionAna(24/09/2007 09:03:12)RE:Error en tiempo de ejecucioncarlos uriel de jesus sanchez (11/12/2007 05:44:51)RE:Error en tiempo de ejecucionUnomásnomás(26/09/2007 15:49:26)RE:Error en tiempo de ejecucionAna(27/09/2007 12:23:42)RE:Error en tiempo de ejecucionmarcos sanches(25/03/2008 23:30:56)RE:Error en tiempo de ejecucionricolina(28/04/2009 21:37:21)Error en tiempo de ejecucionGuillote(14/02/2012 22:20:35) Error en tiempo de ejecucionPublicado por Ana(70 intervenciones) el 21/09/2007 17:05:52Hola a tod@s: A ver si me podeis guiarme con el problema que tengo. Estoy haciendo una aplicación en VB 6.0, con conexión SQL, utilizo ADO para conectarme. Lo que hago es lo siguiente: Tengo un MsFlexGrid, en el cual tengo que relaccionar varias tablas. Os pongo el código: 'Cargamos el MsFlexGrid AbrirADO 'Abrimos la base de datos (ver ModuloGeneral) rst.Open "Select * From DtoComision", cnn, adOpenDynamic, adLockOptimistic Do Until rst.EOF 'Rrecuperamos la descripcion del nombre del cliente 'AbrirADO rst1.Open "Select CodigoCliente, Nombre From Cliente " & _ "Where CodigoCliente=" & rst!CodigoCliente & ";", cnn, adOpenDynamic, adLockOptimistic vNombre = rst1!Nombre 'Recuperamos la descripcion del nombre de familia rst2.Open "Select * From Familia Where CodigoFamilia=" & rst!CodigoFamilia & "", cnn, adOpenDynamic, adLockOptimistic vNombFamilia = rst2!NombreFamilia 'Recuperamos el nombre del vende