• Viernes 8 de Noviembre de 2024, 18:45

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - Zavash

Páginas: [1]
1
Visual Basic 6.0 e inferiores / Re: Error en SELECT cuando el dato buscado no existe.
« en: Jueves 5 de Febrero de 2009, 21:20 »
gracias pero ya lo habia resuelto :devil:

2
Visual Basic 6.0 e inferiores / Re: Error en SELECT cuando el dato buscado no existe.
« en: Jueves 5 de Febrero de 2009, 18:17 »
No se ustedes, pero encontrar las respuestas en los lenguajes de codigos por si mismo
(sin ayuda de algun tutorial o pagina web) toma mucho tiempo y el tiempo es ORO y hay que progresar lo mas rapido posible en la vida. Mejor es tener un ejemplo de  una linea de codigo que se necesite, entender su logica y listo, te ahorras tiempo descubriendo una simple linea... si fuera un experto no me haria problemas en explicar y mostrar alguna linea de codigo... en fin solo una opinion.

Saludos

3
Visual Basic 6.0 e inferiores / Re: Error en SELECT cuando el dato buscado no existe.
« en: Miércoles 4 de Febrero de 2009, 06:14 »
Cita de: "seba123neo"
Hola, aca no se hace la tarea a nadie y si por cada error vas a preguntar en el foro , eso no es asi, investiga ,busca, pensa, romperse la cabeza si es necesario, quemate las pestañas  y vas a ver que hasta te ahorras de entrar al foro...con un simple IsNull o preguntar si es EOF se soluciona...

saludos.
no es una tarea es solo un entrenamiento  :comp:

4
Visual Basic 6.0 e inferiores / Re: Error en SELECT cuando el dato buscado no existe.
« en: Martes 3 de Febrero de 2009, 20:41 »
Cita de: "m0skit0"
Cita de: "Zavash"
Perdona,en que parte pongo esa linea?. :wacko:
Dale un poco al coco...  :ph34r:
y crees que no trate de modificarlo? no lo supe hacer :oops:

5
Visual Basic 6.0 e inferiores / Re: Error en SELECT cuando el dato buscado no existe.
« en: Lunes 2 de Febrero de 2009, 20:40 »
Perdona,en que parte pongo esa linea?.  :wacko:

6
Visual Basic 6.0 e inferiores / Error en SELECT cuando el dato buscado no existe.
« en: Lunes 2 de Febrero de 2009, 18:45 »
Despues de tener bien escrita la sentencia UPDATE gracias a la ayuda del foro, descubri que la sentencia SELECT ejecuta un error cuando no existe el dato que uno busca, borra lo que escribes en el textbox cuando quieres agregrar o consultar datos, no deja escribir.

Código: Text
  1. Private Sub Command6_Click()
  2.  
  3. sql = "select * from producto where Codigo= '" & Text1.Text & "'"
  4. Set rs = cn.Execute(sql)
  5.  
  6.     Text1.DataField = "Codigo"
  7.     Set Text1.DataSource = rs
  8.     Text2.DataField = "Nombre"
  9.     Set Text2.DataSource = rs
  10.     Text3.DataField = "Direccion"
  11.     Set Text3.DataSource = rs
  12.     Text4.DataField = "Telefono"
  13.     Set Text4.DataSource = rs
  14.  
  15.    
  16. End Sub
  17.  
Que linea de codigo se necesita para mandar un aviso de la no existencia de un dato y romper el error que ejecuta?
Saludos :good:

7
MS Access / Re: Problema con sentencia UPDATE, en VB 6.0
« en: Lunes 2 de Febrero de 2009, 17:37 »
Sii!! funciono , faltaba concatenar.
Gracias  :beer:  :lol:

8
MS Access / Problema con sentencia UPDATE, en VB 6.0
« en: Lunes 2 de Febrero de 2009, 04:13 »
estoy practicando con un programa que conecte una base de datos access pero la sentencia UPDATE arroja un error el codigo va asi :

Código: Text
  1. CÓDIGO
  2. Dim cn As Connection
  3. Dim rs As Recordset
  4.  
  5. Private Sub Form_Load()
  6.  
  7. Set cn = New ADODB.Connection
  8. cn.CursorLocation = adUseClient
  9. cn.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51; Data Source =C:Archivos de programaMicrosoft Visual StudioVB98Ensayodatos.mdb;"
  10.  
  11. End Sub
  12. Private Sub Command2_Click()
  13. If Text1.Text = "" Then
  14. MsgBox " no se puede eliminar un valor que no existe"
  15. Else
  16.  
  17. Sql = "delete from producto where Codigo= '" & Text1 & "'"
  18. Set rs = MiConexion.Execute(Sql)
  19. MsgBox "dato eliminado"
  20. Text1.Text = ""
  21. Text1.SetFocus
  22. End If
  23.  
  24. End Sub
  25.  
  26.  
  27.  
  28. Private Sub Command6_Click()
  29. Sql = "select * from producto where Codigo= '" & Text1.Text & "'"
  30. Set rs = cn.Execute(Sql)
  31.  
  32.     Text1.DataField = "Codigo"
  33.     Set Text1.DataSource = rs
  34.     Text2.DataField = "Nombre"
  35.     Set Text2.DataSource = rs
  36.     Text3.DataField = "Direccion"
  37.     Set Text3.DataSource = rs
  38.     Text4.DataField = "Telefono"
  39.     Set Text4.DataSource = rs
  40.  
  41. End Sub
  42.  
  43. Private Sub Command1_Click()
  44.  
  45. If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Then
  46. MsgBox "faltan datos, completelos"
  47. Else
  48.  
  49. Sql = "insert into producto values ( '" & Text1.Text & "', '" & Text2.Text & "', '" & Text3.Text & "', '" & Text4.Text & "' )"
  50. Set rs = cn.Execute(Sql)
  51. MsgBox "datos grabados"
  52.    
  53.   Text1.Text = ""
  54.   Text2.Text = ""
  55.   Text3.Text = ""
  56.   Text4.Text = ""
  57.   Text1.SetFocus
  58.  
  59. End If
  60.    
  61. End Sub
  62.  
  63.  
  64. Private Sub Command7_Click()
  65. sql = "UPDATE Producto SET Nombre = '" & Text2.Text & "', Direccion = '" & Text3.Text & "',Telefono ='" & Text4.Text & "' WHERE codigo= " & Text1.Text & ""
  66.     Set rs = cn.Execute(sql)
  67.    
  68. MsgBox " datos Actualizados"
  69.  
  70. End Sub
  71. Private Sub Command3_Click()
  72. Text1.Text = ""
  73. Text2.Text = ""
  74. Text3.Text = ""
  75. Text4.Text = ""
  76.  
  77. End Sub
  78.  
Necesito resolver el error que hay en la sentencia UPDATE , por que me aparece el siguiente error al tratar de editar un dato: "No coinciden los tipos de datos en la expresion de criterios " es un problema de sintaxis o de puntuacion?, me gustaria saber, se que esto es bien basico asi que estan demas esos comentarios de "esto es muy basico , deberias saberlo" , lo digo por que otras personas me dicen eso y al final no ayudan para nada... con esa duda resuelta podre postular mejor a un trabajo, de antemano, gracias.

Páginas: [1]