No me inserta el dato donde corresponde.
Magraciel
08 de Septiembre del 2005
Sabes que coloque 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:
[B][COLOR=red]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[/COLOR][/B]
ESTA ES LA TABLA QUE TENGO EN LA BASE DE DATO:
[COLOR=blue]C贸digo_especificaci贸n nombre_prueba nombre_caso_prueba[/COLOR]
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
[COLOR=blue]C贸digo_especificaci贸n nombre_prueba nombre_caso_prueba[/COLOR]
170380 pruebaejemplo
170380 casopruebaejemplo
ME ENTIENDES?? AYUDAME A SOLUCIONAR EL PROBLEMA PORFAVOR..
ESTE ES EL CODIGO:
[B][COLOR=red]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[/COLOR][/B]
ESTA ES LA TABLA QUE TENGO EN LA BASE DE DATO:
[COLOR=blue]C贸digo_especificaci贸n nombre_prueba nombre_caso_prueba[/COLOR]
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
[COLOR=blue]C贸digo_especificaci贸n nombre_prueba nombre_caso_prueba[/COLOR]
170380 pruebaejemplo
170380 casopruebaejemplo
ME ENTIENDES?? AYUDAME A SOLUCIONAR EL PROBLEMA PORFAVOR..
Silvina
08 de Septiembre del 2005
NO se entiende lo q queres hacer.
queres hacer un insert o un update, por lo q comentas una vez elegido el dato del combo pedis un nro en un textbox, donde esta eso? si haces el update y despues pedis el numero es logico q no estes llegando al resultado q necesitas
queres hacer un insert o un update, por lo q comentas una vez elegido el dato del combo pedis un nro en un textbox, donde esta eso? si haces el update y despues pedis el numero es logico q no estes llegando al resultado q necesitas
gaston flores
08 de Septiembre del 2005
No entiendo mucho que es lo que queres hacer. si queres insertar un dato o "un campo nuevo o sea una columna nueva" , tendrias que ser mas claro e ir parte por parte