Error 3709 En Tiempo De Ejecucion Vb
Contents |
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. error 1004 en tiempo de ejecucion Open "select * FROM cliente", db, adOpenStatic, adLockOptimistic luego desde un formulario error 70 en tiempo de ejecucion hago lo siguiente:Private Sub cmdgrabar_Click()Call Cliente With rscliente .AddNew !codcliente = txtcodcliente.Text !apellidos = txtapellidos.Text !nombres = txtnombres.Text !direccion = error 91 en tiempo de ejecucion 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
Error 1004 En Tiempo De Ejecucion Excel
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 error 3709 access 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.Connection set rscliente = NEW ADODB.Recordset db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Farmacia\FARMACIA.mdb;Persist Security Info=False" End Sub Public Sub Cliente() Rscliente. Open "select * FROM cliente", db, adOpenStatic, adLockOptimistic 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 rodolfo1245 1 1 rodolfo1245, Visual Basic 6 ¿Prueba con estos pequeños cambio debe estar juntos en el public? ¿Por qué lo
Programación » [Solucionado] *VB, Error 3709 - problemas con codigo sql en visual basic [Solucionado] *VB, Error 3709 - problemas con codigo sql en visual basic 10/12/2005 12:00AM Necesito que al pulsar un boton apareza un inputbox indicando lo que quiere buscar, y mediante sql mostrarlo en un Flexgrid - Aca muestro run time error 3709 el codigo pero me dice: Error 3709 No se puede utilizar la conexion pare realizar
Error Apertura Tabla 3709 Concar
esta operacion. Esta cerrada o no es valida en este contexto. codigo2.jpg(70.92KB) juanmroude 5 Esta pregunta está cerrada. Si quieres puedes: Abrir otra
Error 3709 Vb6
Pregunta 10/12/2005 01:38AM compañero tu problema es que no has creado bien el string de seleccion, tienes algunos problemas a la hora de armarlo, por ejemplo el like se utiliza para busquedas en campos que contengas algun string, http://www.todoexpertos.com/categorias/tecnologia-e-internet/programacion/visual-basic/respuestas/1287347/error-3709-ayuda-por-favor si mal no recuerdo en vb se utiliza el signo de % para indicar en que parte del campo debe contener lo que buscar por ejemplo en la palabra murcielago si deseas buscar el inicio mur deberia quedar algo asi... Select .... campo like 'mur%', de esta forma no importa lo que tenga al lado derecho retornara murcielago pero si buscar lago debe quedar algo asi... Select ... campo like '%lago' para que retorne el mismo registro http://programacion.yoreparo.com/programacion/vb-error-3709-problemas-con-codigo-sql-en-visual-basic-t51705.html con murcielago. Otro problema que veo es que la instruccion sql toda va encerrada entre doble comilla "Select......" para añadir campos al mismo se hace con el simbolo & y para indicarle que conexion va a utilizar se coloca luego de la , . Tu string deberia quedar algo asi: reg.open "Select * from bebidas where categoria like '%" & a & "%'", bd, adopendynamic, adlockoptimistic Prueba modificarlo y me cuentas. Te coloco este ejemplo que es muy bueno, lo he copiado de la pagina de el guille que es un compañero que en su pagina coloca muy buenas cosas. http://www.elguille.info/vb/bases/ADO/abrirbaseSQL.htm Option Explicit Private cnn As ADODB.Connection Private rst As ADODB.Recordset Private Sub cmdAbrir_Click() Dim tField As ADODB.Field ' ' Por si ya estaba abierta... Set cnn = Nothing Set rst = Nothing ' ' Crear los objetos Set cnn = New ADODB.Connection Set rst = New ADODB.Recordset ' ' abrir la base usando las credenciales de Windows cnn.Open "Provider=SQLOLEDB; " & _ "Initial Catalog=pubs; " & _ "Data Source=(local)\NETSDK; " & _ "integrated security=SSPI; persist security info=True;" ' ' abrir el recordset indicando la tabla a la que queremos acceder rst.Open "SELECT * FROM authors", cnn, adOpenDynamic, adLockOptimistic ' ' Asignar los nombres de los campos al combo With cboCampos .Clear For Each tField In rst.Fields .AddItem tField.Name Next .ListIndex = 0 End With ' ' Cerr
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 http://www.lawebdelprogramador.com/foros/Visual-Basic/1011220-error-3709-en-tiempo-de-ejecucion.html 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 3709 en tiempo de ejecucion Visual Basic http://microsoft.public.es.vb.narkive.com/Hx8oVKCm/no-se-que-hacer-con-esto-soy-novato-ado - error 3709 en tiempo de ejecucion VolverNuevo Tema<<>> Vista: arbolcronológicoerror 3709 en tiempo de ejecuciondante(15/08/2008 23:07:37)8.349 visitas0 respuesta error 3709 en tiempo de ejecucionPublicado por dante(5 intervenciones) en tiempo el 15/08/2008 23:07:37hola mi nombre es dante, me estoy iniciando en esto de la programacion en VB, y he estado leyendo algunos manuales de vb relacionados con ADO, ya que me dijeron que deberia usar esta tecnologÃa para poder conectarme con bases de datos, he tratado de seguir algunos ejemplos pero al ejecutar el programa me en tiempo de aparece una ventana de error con el siguiente mensaje, "error 3709 en tiempo de ejecución - no se pede utilizar la conexion para realizar esta operacion. esta cerrada o no es valida en este contexto" Cree un origne de datos ODBC, llamdo legajos mi codigo es el siguiente En el modulo desde donde se inicia el programa escribi Option Explicit Public conlegajo As ADODB.Connection Public rst As ADODB.Recordset Public Sub main() Set conlegajo = New ADODB.Connection conlegajo.ConnectionString = "DSN = legajos" conlegajo.Open End Sub En el frm escribi Private Sub Form_Load() Set rst = New ADODB.Recordset rst.ActiveConnection = conlegajo rst.Open ("agente") End Sub donde agente es el nombre de la tabla de la base de datos personal.mdb Al ejecutar el programa, más especÃficamente este frm, me sale este error y no logro determinar su origen, si alguno de vosotros puede ayudarme a resolverlo, le estarÃa muy agradecido.Valora esta pregunta0ResponderOtras secciones de LWP con contenido de Visual Basic- Código fuente de Visual Basic- Cursos de V
un .bas, es decir un modulovariables globalesDim cn As ADODB.ConnectionDim rs As ADODB.RecordsetPublic Sub conectar()Set cn = New ADODB.Connectionruta = "C:\Archivos de programa\Microsoft Visual Studio\VB98\BIBLIO.mdb"'ruta = "Source=C:\Documents and Settings\Ivancho\Misdocumentos\Inventario\Data\Inventarios.mdb"provedor = "Provider=Microsoft.Jet.OLEDB.4.0;"cn.ConnectionString = provedor & "Data Source=" & ruta & ";"MsgBox "conexion exitosa"End SubEsta parte founciona ok, pero el recordset no, miren:::Public Function validar_usuario(nusuario, nclave) As BooleanDim query As StringSet rs = New ADODB.Recordsetquery = "SELECT * FROM Authors"rs.Open query, cn, adOpenDynamic, adLockOptimisticMsgBox ("pasó por aquÃ...")If rs.EOF Thenvalidar_usuario = FalseElsevalidar_usuario = TrueEnd IfEnd Functionno he logrado que almenos pase por el mensage:MsgBox ("pasó por aquÃ...")me esta saliendo un error que dice::Error '3709' en tiempo de ejecucion:No se puede utilizar la conexion para realizar esta operacion. Esta cerradao no es valida en este contextoLa base de datos no la he cerrado nisiquiera, como lo dice el mensage.Ayudenme, porfavorr.... Raziel 2004-06-12 06:21:02 UTC PermalinkRaw Message Que tal IvanEn tu procedimiento "conectar" no veo la linea donde abrestu conexion, en la ultima parte debes de agregar:...cn.OpenPasando de esta linea tu conexion es exitosa.Saludos-----Mensaje original-----hola a todos;esta parte la tengo en un .bas, es decir un modulovariables globalesDim cn As ADODB.ConnectionDim rs As ADODB.RecordsetPublic Sub conectar()Set cn = New ADODB.Connectionruta = "C:\Archivos de programa\Microsoft VisualStudio\VB98\BIBLIO.mdb"'ruta = "Source=C:\Documents and Settings\Ivancho\Misdocumentos\Inventario\Data\Inventarios.mdb"provedor = "Provider=Microsoft.Jet.OLEDB.4.0;"cn.ConnectionString = provedor & "Data Source=" & ruta& ";"MsgBox "conexion exitosa"End SubPublic Function validar_usuario(nusuario, nclave) As BooleanDim q