k onda a todos, espero esten bien, y espero que entiendan mi duda, es un poco complicado de explicar, pero lo voy a intentar, estoy haciendo una aplicacion en VB 6.0 y Access en formato 97, lo que quiero hacer es actualizar un campo llamado asig de la tabla soli, pero el problema es que nose como recuperar ese valor, ya que en el formulario solo se introduce la clave de la persona y muestra los datos, de la tabla soli no se jala ningun dato, espero que me puedan ayudar. Este es el codigo que utilizo para que me muestre los datos.
Private Sub Text13_KeyPress(KeyAscii As Integer)
If (KeyAscii = 8) Then
ElseIf KeyAscii = 13 Then 'Si presioné la tecla Enter
KeyAscii = 0
Dim total As Integer
Dim query
If Text13.Text = "" Then
X = MsgBox("No se ingreso ninguna clave", vbCritical, "Error")
Else
ID = Text13.Text
Select Case ID
Case "0" To "9"
Adodc2.RecordSource = "SELECT COUNT(*) AS total FROM presasig WHERE Id=" & ID & ""
Adodc2.Refresh
total = Adodc2.Recordset.Fields("total")
If total = o Then
X = MsgBox("No existe ningun prestador con la clave ingresada", vbCritical, "Error")
Text13.Text = ""
Adodc2.RecordSource = "SELECT * FROM regiproy WHERE Id = 0"
Adodc2.Refresh
Else
query = "SELECT presasig.nomb, presasig.apelpate, presasig.apelmate, presasig.cuen, presasig.carr, presasig.tipo, presasig.inic, presasig.term, presasig.hora, regiproy.depe, regiproy.proy, regiproy.resp, acti.descr FROM presasig, acti, regiproy, presproy WHERE presasig.id = " & Val(Text13.Text) & " AND presasig.id = presproy.id_presasig AND acti.id_proy = regiproy.id AND regiproy.id = presproy.id_proy "
Adodc1.RecordSource = query
Adodc1.Refresh
Text4.Text = Adodc1.Recordset.Fields("nomb") & " " & Adodc1.Recordset.Fields("apelpate") & " " & Adodc1.Recordset.Fields("apelmate")
DataList1.ListField = "descr"
DataList1.Refresh
Text3.SetFocus
End If
Case Else
X = MsgBox("La clave solo puede tener numeros", vbCritical, "Error")
Text13.Text = ""
End Select
End If
End If
End Sub
Lo que estoy tratando de hacer es rescatar esos valores por medio de un campo llamado id_proye de la tabla soli pero nose como hacerlo, tampoco se como recuperar el campo id_proye, este es el codigo que utilizo para recuperar los datos:
Private Sub ButtonMac2_Click()
Dim sql, sql2 As String
Dim idproyecto, asignados As Double
Adodc1.RecordSource = "SELECT soli.id_proye FROM presasig, presproy, soli, regiproy WHERE presasig.id = " & Val(Text13.Text) & " AND presasig.id = presproy.id_proy AND presproy.id_proy = soli.id_proye "
Adodc1.Refresh
idproyecto = Adodc1.Recordset.Fields("id_proye")
Adodc1.RecordSource = "SELECT asig, numepres FROM soli WHERE id_proye = " & idproyecto & " AND carr = '" & Text5.Text & "'"
Adodc1.Refresh
asignados = Adodc1.Recordset.Fields("asig")
asignados = asignados - 1
Call conectar
sql = "UPDATE soli SET asig = " & asignados & " WHERE id_proye = " & idproyecto & " AND carr = '" & Text5.Text & "'"
con.Execute sql
con.Close
End Sub
Hay una tabla que se llama presproy, esta tabla me dice que persona esta en que proyecto, los campos que contiene son id_presasig, la clave de la persona y id_proy, la clave del proyecto, nose si la consulta tenga que ser tan compleja pero se antemano agradezco la ayuda que me puedan proporcionar, un saludo a todos
