Error 3421 En Tiempo De Ejecucion Vb6
Contents |
ProgramadoresIniciar sesiónCorreo: Contraseña: Entrar Recordar sesión en este navegadorRecordar contraseña?Iniciar sesiónCrear cuentaDocumentación y error 1004 en tiempo de ejecucion RecursosCursos y ManualesBiblioteca de TemasCódigo FuenteNoticias/ArtículosForos y ConsultasForos de
Error 70 En Tiempo De Ejecucion
ConsultaChats de prog.Nuevo!!Tablón de NotasDiccionario informáticoProgramadoresProgramadoresOfertas de TrabajoSolicitudes para prog.Lista de CorreoProgramasProgramas/UtilidadesNuestros ProgramasIconos error 91 en tiempo de ejecucion y CursoresPreguntas/RespuestasOtrosUtilidadesColaboradoresEncuestas/EstadísticasContactarLWP » Foros » Visual Basic » Error 3421 en tiempo de ejecución... "Error de con Visual Basic - Error 3421 en error 339 en tiempo de ejecucion tiempo de ejecución... "Error de con VolverNuevo Tema<<>> Vista: arbolcronológicoError 3421 en tiempo de ejecución... "Error de conJaime(04/05/2005 17:01:42)4.642 visitas2 respuestasRE:Error 3421 en tiempo de ejecución...piter(04/05/2005 17:18:43)RE:Error 3421 en tiempo de ejecución...Jaime(04/05/2005 21:03:04) Error 3421 en tiempo de ejecución... "Error de conPublicado por Jaime(25 intervenciones) el 04/05/2005 17:01:42Hola a todos... Al tratar de guardar un nuevo registro me arroja el error 3421, utilizo Acces como base de datos, la línea en la que se genera el error es la marcada con asteriscos : If Command(0).Enabled Then BusReg Tabla, Indice, Combo1 If Not MiData.Recordset.NoMatch Then: MsgBox "El Registro " & Combo1.Text & " ya existe", vbExclamation: Exit Sub MiData.Recordset.AddNew MiData.Recordset(0) = Combo1 For N = 0 To Text.Count - 1 *******>>>>> MiData.Recordset(N + 1) = Text(N) Next N MiData.Recordset.Update Combo1.AddItem Combo1 Set Lista = ListView1.ListItems.Add(, , Combo1) Lista.SubItems(1) = Text(0) MsgBox "El Registro Fue Agregado", vbInformation End If Agradesco la ayuda q me puedan brindar. Saludos Jaime VenezuelaValora esta pregunta0ResponderOtras secciones de LWP con contenido de Visual Basic- Código fuente de Visual Basic- Cursos de Visual Basic- Temas
que me pueda dar solución a mi pregunta adjunto parte del código para mejor entendimiento.Set bd = OpenDatabase(App.Path + "\verifik.mdb")Set tabla1 = bd.OpenRecordset("autos", dbOpenDynaset)tabla1.FindFirst "FOLIO = " & Text1.TextFOLIO = "&VAL(CLAVE.TEXT)"If Not tabla1.NoMatch ThenMsgBox "EL FOLIO YA EXISTE...", 48SendKeys "{home}+{end}"Text1.SetFocusExit SubElseWith tabla1.AddNew.Fields("FOLIO") = Text1.Text.Fields("PLACAS") = Text2.Text.Fields("MARCA") = Text3.Text.Fields("SUBMARCA") = Text4.Text.Fields("PRECIO") = Combo1.Text -----> aquí el error.Fields("FECHA") = DTPicker1.UpdateEnd With Mencionar que el combo despliega estos datos $ 180, $ 473 y $ 650, este error solo aparece con algunas bd y en otras no "echa en access 2000" Seguir Siguiendo Dejar de seguir 1 1 Respuesta hakuario 45.825 pts. http://www.lawebdelprogramador.com/foros/Visual-Basic/493671-Error-3421-en-tiempo-de-ejecucion-Error-de-con.html Conocimientos en Visual Basic 6 - Power Builder 9/11 el 18 dic. 12 Pasa que en el combobox, se almancenan lo datos en forma de cadena (String), mientras que tu campo de tu tabla es de tipo numérico,Prueba esto.Fields("PRECIO") = val(Combo1.Text ) Saludos! el 19 dic. 12 buen día experto, el error ya no lo manda y al parecer da de alta el registro, pero al hacer una http://www.todoexpertos.com/categorias/tecnologia-e-internet/programacion/visual-basic/respuestas/1gj4kp4zhqemy/error-de-conversion-de-tipos-de-datos-error-3421-en-tiempo-de-ejecucion consulta resulta que el valor que seleccione en el combobox no me lo almacena es decir me almacena 0.00 cuan do selecciono cualquiera de los precios a que se debe gracias de antemano y gracias por la respuesta anteriror el 19 dic. 12 Comparte tu código, con los últimos cambios que hayas realizado. el 19 dic. 12 gracias por tu pronta respuesta en realidad no hice mucho solo sustituí la linea de código tuya pos la que yo tenia este es el códigoSet bd = OpenDatabase(App.Path + "\verifik.mdb")Set tabla1 = bd.OpenRecordset("autos", dbOpenDynaset)'tabla1.FindFirst "FOLIO = '" & Text1.Text & "'"tabla1.FindFirst "FOLIO = " & Text1.TextFOLIO = "&VAL(CLAVE.TEXT)"If Not tabla1.NoMatch ThenMsgBox "EL FOLIO YA EXISTE...", 48SendKeys "{home}+{end}"Text1.SetFocusExit SubElseWith tabla1.AddNew.Fields("FOLIO") = Text1.Text.Fields("PLACAS") = Text2.Text.Fields("MARCA") = Text3.Text.Fields("SUBMARCA") = Text4.Text.Fields("PRECIO") = Val(Combo1.Text)----->'.Fields("PRECIO") = Combo1.Text.Fields("FECHA") = DTPicker1.UpdateEnd With el 19 dic. 12 Que valores tiene cargados el cambo, son solamente números, (¿sin signo monetario alguno)?He de imaignar que el resto de campos is actualiza normal, ¿vdd? el 19 dic. 12 los que despliega el combo son$ 177.24$ 472.64$ 649.88en la base de datos access los tengo como tipo moneda y si en los demás no tengo problemas el 19 dic. 12 Para descarte intenta esto,msgbox Combo1.Textms
una basede datos ejemplo.mdb con una tabla: tabla con sólo un campo: cantidady con 5 registros: 1,2,3,4,5:Private Sub Form_Load()Dim BaseDatos As DatabaseDim Tabla As RecordsetSet BaseDatos = OpenDatabase("ejemplo.mdb")Set Tabla = BaseDatos.OpenRecordset("tabla")'Aquí http://es.comp.lenguajes.visual-basic.narkive.com/alqUNxUa/error-3421-error-de-conversion-de-tipo-de-datos es donde me lanza el error:Tabla.OpenRecordset ("SELECT * FROM tabla WHERE cantidad = 2")End SubGracias Oscar Garcia 2005-12-29 19:54:14 UTC PermalinkRaw Message Post by evitaA ver si me podéis decir por qué me sale este error.. Tengo una basede datos ejemplo.mdb con una tabla: tabla con sólo un campo: cantidadPrivate Sub Form_Load()Dim BaseDatos As DatabaseDim Tabla As RecordsetSet BaseDatos = OpenDatabase("ejemplo.mdb")Set Tabla = BaseDatos.OpenRecordset("tabla")Tabla.OpenRecordset en tiempo ("SELECT * FROM tabla WHERE cantidad = 2")End Sub¿Error?¿Puedes decirnos el mensaje y el código de error?Un saludo.--Óscar Javier García BaudetLinaresDigitalhttp://redstar.linaresdigital.com/ evita 2005-12-29 20:01:24 UTC PermalinkRaw Message Post by Oscar Garcia¿Error?¿Puedes decirnos el mensaje y el código de error?Un saludo.--Óscar Javier García BaudetLinaresDigitalhttp://redstar.linaresdigital.com/perdón Óscar lo había puesto en el título:Error 3421. Error de conversión de tipo de datos..¿Qué hago mal?Gracias Oscar Garcia 2005-12-29 20:05:39 UTC en tiempo de PermalinkRaw Message Post by evitaA ver si me podéis decir por qué me sale este error.. Tengo una basede datos ejemplo.mdb con una tabla: tabla con sólo un campo: cantidadPrivate Sub Form_Load()Dim BaseDatos As DatabaseDim Tabla As RecordsetSet BaseDatos = OpenDatabase("ejemplo.mdb")Set Tabla = BaseDatos.OpenRecordset("tabla")Tabla.OpenRecordset ("SELECT * FROM tabla WHERE cantidad = 2")End SubPerdona, antes no lei correctamente el asunto (procura hacerconstancia de los datos importantes DENTRO del mensaje, y no en elasunto).Tiene pinta de que ya has abierto previamente la tabla, ¿no deberíascrear un nuevo recorset para la salida de esa búsqueda SQL?Ahora mismo no tengo delante el compilador de VB, en cuanto pueda miroa ver lo que te ocurre.Un saludo.--Óscar Javier García BaudetLinaresDigitalhttp://redstar.linaresdigital.com/ evita 2005-12-29 22:10:05 UTC PermalinkRaw Message Oscar Garcia ha escrito:"Tiene pinta de que ya has abierto previamente la tabla, ¿nodeberíascrear un nuevo recorset para la salida de esa búsqueda SQL?Ahora mismo no tengo delante el compilador de VB, en cuanto pueda miroa ver lo que te ocurre.Un saludo."Muchas gracias Oscar por tu ayuda, tienes razón, no llevo mucho tiempocon VB.El problema estaba en que ya había abierto la tabla..Borré la línea donde me daba error y cambié