aqui les muestro el codigo de la grilla y del boton de modificar
PUBLIC SUB recuperar_datos()
DIM res AS Result
DIM i AS Integer
res = conexion.$Con.Exec("select * from contactos2 ")
GridView1.Clear 'Borro los datos del tableview
GridView1.Rows.Count = res.Count 'Agrego las filas que utilizare
FOR i = 0 TO (res.Count - 1) ' Ciclo para llenar el tableview
GridView1[i, 0].Text = res["login"]
GridView1[i, 1].Text = res["contrase"]
GridView1[i, 2].Text = res["pregunta"]
GridView1[i, 3].Text = res["preguntase"]
GridView1[i, 4].Text = res["tipo"]
res.MoveNext
NEXT
conexion.$Con.Close 'Cierro la conexión
CATCH
Message.Error(Error.Text)
END
PUBLIC SUB GridView1_Activate()
DIM res AS Result
' con esta linea la seleccionar una fila en la tabla me muestra la primera celda que seleccione
TextBox4.Text = GridView1[GridView1.Row, 1].Text
' con estas lineas muestro los datos de la base de datos dependiendo de la cedula
res = conexion.$Con.Exec("select * from contactos2 where contrase='" & TextBox4.Text & "'")
TextBox3.Text = res!pregunta ' en el textbox de nombre muestro el nombre sacado desde la base de datos utilizando res![nombre del campo a buscar]
' en el textbox de nombre muestro el nombre sacado desde la base de datos utilizando res![nombre del campo a buscar]
TextBox3.Text = res!contrase
TextBox4.Text = res!login
ComboBox2.Text = res!pregunta
TextBox6.Text = res!preguntase
ComboBox1.Text = res!tipo
END
DIM res AS Result
DIM i AS Integer
res = conexion.$Con.Exec("select * from contactos2 ")
GridView1.Clear 'Borro los datos del tableview
GridView1.Rows.Count = res.Count 'Agrego las filas que utilizare
FOR i = 0 TO (res.Count - 1) ' Ciclo para llenar el tableview
GridView1[i, 0].Text = res["login"]
GridView1[i, 1].Text = res["contrase"]
GridView1[i, 2].Text = res["pregunta"]
GridView1[i, 3].Text = res["preguntase"]
GridView1[i, 4].Text = res["tipo"]
res.MoveNext
NEXT
conexion.$Con.Close 'Cierro la conexión
CATCH
Message.Error(Error.Text)
END
PUBLIC SUB GridView1_Activate()
DIM res AS Result
' con esta linea la seleccionar una fila en la tabla me muestra la primera celda que seleccione
TextBox4.Text = GridView1[GridView1.Row, 1].Text
' con estas lineas muestro los datos de la base de datos dependiendo de la cedula
res = conexion.$Con.Exec("select * from contactos2 where contrase='" & TextBox4.Text & "'")
TextBox3.Text = res!pregunta ' en el textbox de nombre muestro el nombre sacado desde la base de datos utilizando res![nombre del campo a buscar]
' en el textbox de nombre muestro el nombre sacado desde la base de datos utilizando res![nombre del campo a buscar]
TextBox3.Text = res!contrase
TextBox4.Text = res!login
ComboBox2.Text = res!pregunta
TextBox6.Text = res!preguntase
ComboBox1.Text = res!tipo
END
la del boton modificar
DIM i AS Integer
DIM sql AS String
DIM res AS Result
i = Message.Question("Esta seguro de Actualizar datos del Administrador : " & TextBox4.Text & " ?", "Estoy seguro(a)", "No, estoy Seguro(a)")
IF i = 1 THEN
IF TextBox4.Text = ""
Message.Error("No puede dejar vacio el Campo Contraseña")
ELSE
IF TextBox3.Text = ""
Message.Error("No puede dejar vacio el Campo ID Login")
ELSE
IF TextBox6.Text = ""
Message.Error("No puede dejar vacio el Campo Pregunta Secreta")
ELSE
sql = "update contactos2 SET contrase = '" & TextBox3.Text & "',"
sql = sql & "login = '" & TextBox4.Text & "' , preguntase = '" & TextBox6.Text & "' , pregunta = '" & ComboBox2.Text & "'"
res = conexion.$Con.Exec(sql) ' ejecuto sentencia SQL
Message.Info("<i>DATOS ACTUALIZADOS</i>")
recuperar_datos
ENDIF
ENDIF
ENDIF
end
DIM sql AS String
DIM res AS Result
i = Message.Question("Esta seguro de Actualizar datos del Administrador : " & TextBox4.Text & " ?", "Estoy seguro(a)", "No, estoy Seguro(a)")
IF i = 1 THEN
IF TextBox4.Text = ""
Message.Error("No puede dejar vacio el Campo Contraseña")
ELSE
IF TextBox3.Text = ""
Message.Error("No puede dejar vacio el Campo ID Login")
ELSE
IF TextBox6.Text = ""
Message.Error("No puede dejar vacio el Campo Pregunta Secreta")
ELSE
sql = "update contactos2 SET contrase = '" & TextBox3.Text & "',"
sql = sql & "login = '" & TextBox4.Text & "' , preguntase = '" & TextBox6.Text & "' , pregunta = '" & ComboBox2.Text & "'"
res = conexion.$Con.Exec(sql) ' ejecuto sentencia SQL
Message.Info("<i>DATOS ACTUALIZADOS</i>")
recuperar_datos
ENDIF
ENDIF
ENDIF
end
ya revise el codigo y nada me sale el error en : res = conexion.$Con.Exec(sql)
es raro si la conexcion esta bien y me muestra datos y todo
les agredesco sus ayuda
Albacete
