SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Magraciel en Lunes 5 de Septiembre de 2005, 21:32

Título: Ayudenme Con Este Codigo De InserciÓn
Publicado por: Magraciel en Lunes 5 de Septiembre de 2005, 21:32

Coloco este código en la parte de combo1.click para seleccionar el nombre de prueba y buscarla en la base de datos y ademas insertar el caso de prueba donde esta la prueba y el codigo correspondiente pero no me resulta ....

ESTE ES EL CODIGO:


Private Sub Combo1_Click()
Dim Sql  As String
Call conexion(cnn1)
Set rs = Nothing

   Sql = "Select  Código_especificación,nombre_prueba  From Especificar_calendario_plazos "
   Sql = Sql & " Where Código_especificación = " & Cod
   rs.Open Sql, cnn1, adOpenStatic
   With rs
  .Find "nombre_prueba='" & Combo1.Text & "'"
   If Not .EOF Then
      MsgBox "Encontro la prueba "
    cnn1.Execute " update Especificar_calendario_plazos set nombre_caso_prueba='" & in_caso_prueba & "' where nombre_prueba='" & Combo1.Text & "'"
        Else
      MsgBox "No  encontro la prueba"
   End If
  End With


End Sub



ESTA ES LA TABLA QUE TENGO EN LA BASE DE DATO:

Código_especificación      nombre_prueba   nombre_caso_prueba
                           170380                     pruebaejemplo      





CON ESTE CODIGO NO ME TIRA NINGUN ERROR, AL SELECCIONAR EL NOMBRE DE PRUEBA DEL COMBOBOX (pruebaejemplo)ME MUESTRA EL MENSAJE  ENCONTRO LA PRUEBA, Y DESPUES DEBO INGRESAR EL CASO DE PRUEBA EN UN TEXTBOX.


DESPUES VEO LA BASE DE DATO Y ME MUESTRA QUE INSERTO OTRO REGISTRO CON EL CODIGO Y EL CASO DE PRUEBA, PERO EL CAMPO NOMBRE PRUEBA ESTA VACIO, ESO NO ES LO QUE DEBIERA HACER.



ESTO ES LO QUE ME MUESTRA EN LA TABLA O LO QUE HACE ESTE CODIGO


Código_especificación      nombre_prueba   nombre_caso_prueba
                           170380                     pruebaejemplo      
                           170380                                               casopruebaejemplo



ME ENTIENDEN?? AYUDENME A SOLUCIONAR EL PROBLEMA PORFAVOR..

Título: Re: Ayudenme Con Este Codigo De InserciÓn
Publicado por: dreamer en Martes 6 de Septiembre de 2005, 22:43

haber haber nose entiende mucho pero por lo que me di cuenta en ningun momento le asignas la caja de texto al registro que tu dices nombre_caso_prueba.

cnn1.Execute " update Especificar_calendario_plazos set nombre_caso_prueba='" & in_caso_prueba & "' where nombre_prueba='" & Combo1.Text & "'"

Aqui que es lo que estas haciendo

Lo que yo haria seria algo asi:

With rs
.Find "nombre_prueba='" & Combo1.Text & "'"
If Not .EOF Then
MsgBox "Encontro la prueba "
If .Fields("nombre_prueba") = Combo1.text Then 'esto tan solo para ratificar que estoy en el registro correcto
!nombre_caso_prueba=Caja de texto donde tienes el nombre de la prueba
end if
Else
MsgBox "No encontro la prueba"
End If
End With


Algo asi como una modificacion....

ojala que te sirva de algo o por lo menos que te de alguna idea

Nos vemos

Suerte

Saludos desde Viña del Mar, CHILE