Ver Mensaje Individual
  #2 (permalink)  
Antiguo 02/11/2006, 07:24
Avatar de jhonwilliams
jhonwilliams
 
Fecha de Ingreso: marzo-2004
Ubicación: Copacabana - Colombia
Mensajes: 1.484
Antigüedad: 21 años
Puntos: 76
Cita:
Iniciado por chery Ver Mensaje
conexion(obj)
Dim comm As New MySql.Data.MySqlClient.MySqlCommand("select nom_planta,clave_planta,nom_destino,nom_cliente from cat_planta,cat_destino,cat_cliente where cat_planta.clave_destino=cat_destino.clave_destino and cat_planta.clave_cliente=cat_cliente.clave_cliente ")
obj.SELECT_COMMAND = comm
CmbclvE_catpla.DisplayMember = "clave_planta"
CmbclvE_catpla.DataSource = obj.SelectFields()
Y no necesitas el ValueMember?

Cita:
Iniciado por chery Ver Mensaje
Dim comm As New MySql.Data.MySqlClient.MySqlCommand("UPDATE cat_planta set nom_planta='" + Me.Txtnom_catpla.Text + "',clave_cliente=(select clave_cliente from cat_cliente where nom_cliente='" + Cmbclient_catpla.SelectedValue.ToString + "'), clave_destino=(select clave_destino from cat_destino where nom_destino='" + Cmbdest_catpla.SelectedValue.ToString + "') where clave_planta='" + CmbclvM_catpla.Text + "'")
obj.UPDATE_COMMAND = comm
If obj.UpdateFields() Then
'Me.CmbclvM_catpla.Refresh()
MsgBox("la planta se modifico correctamente.", vbInformation, "")
Txtnom_catpla.Text = ""
Txtcli_regpla.Text = ""
Txtdest_catpla.Text = ""
CmbclvM_catpla.Text = ""
Cmbclient_catpla.Text = ""
Cmbdest_catpla.Text = ""
Realiza un paso a paso a este code y verifica que
Código:
where nom_destino='" + Cmbdest_catpla.SelectedValue.ToString + "') where clave_planta='" + CmbclvM_catpla.Text + "'")
Cmbdest_catpla.SelectedValue.ToString Y CmbclvM_catpla.Text tengan valores que hagan cumplir la condicion, porque de lo contrario cuando hace el update y no encuentre valores que coincidan no actulizara los datos.

Pregunta:
¿Porque tienes una subconsulta dentro del update?, el campo clave_cliente no lo tienes en el formulario? en algun combo, textbox, etc, etc

Saludos
__________________
Si mi respuesta te ha ayudado, agradezco que me regales unos puntos de Karma XD.

"Una mujer sería encantadora si uno pudiera caer en sus brazos sin caer en sus manos." (Ambrose Bierce)