errores con un combobox

mluzro
30 de Septiembre del 2005
Hola a todos
Estoy terminando un proyecto con visual basic 6, en un combobox hago que se muestren los códigos de los alumnos de un centro y quiero que automáticamente cuando seleccione un item del combobox en unos cuadros de texto me muestre el resto de los datos para poder modificarlos. Pues bien, cuando lo ejecuto me sale el error "Field not updatable, bound property name" y no tengo ni idea de lo que es.
¿Me podríais hechar una mano?
Gracias


axelopez
30 de Septiembre del 2005
deberias mostrar tu codigo para tratar de entender que pasa

mluzro
30 de Septiembre del 2005
Cuando carga el formulario, relleno el combobox
y después tengo un botón para mostrar los datos del código que he elegido en el combo:
Private Sub Form_Load()
Dim Connection1 As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set Connection1 = Nothing
Connection1.ConnectionString = "Provider=MSDASQL;Persist Security Info=False;Data Source=academia;"
Connection1.Open
Dim selectalumno As New ADODB.Command
selectalumno.ActiveConnection = Connection1
selectalumno.CommandType = adCmdText
selectalumno.CommandText = "SELECT * FROM ALUMNOS"
Set rs = selectalumno.Execute
rs.MoveFirst
Do While Not rs.EOF
codigo.AddItem rs.Fields("id_alumno")
rs.MoveNext
Loop
rs.Close
Connection1.Close
End Sub

Private Sub b_ver_Click()
Dim Connection1 As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set Connection1 = Nothing
Dim str As String
str = "SELECT * FROM ALUMNOS WHERE ID_ALUMNO='" & codigo.SelText & "'"
Connection1.ConnectionString = "Provider=MSDASQL;Persist Security Info=False;Data Source=academia;"
Connection1.Open
rs.Open str, Connection1, adOpenDynamic, adLockOptimistic
'Dim selectalumno As New ADODB.Command
'selectalumno.ActiveConnection = Connection1
'selectalumno.CommandType = adCmdText
'selectalumno.CommandText = "SELECT * FROM ALUMNOS WHERE ID_ALUMNO=" & codigo.ItemData

'Set rs = selectalumno.Execute

If rs.RecordCount > 0 Then
nombre.Text = rs.Fields("nombre")
apellido1.Text = rs.Fields("Apellido1")
apellido2.Text = rs.Fields("apellido2")
direccion.Text = rs.Fields("direccion")
apellido1.Text = rs.Fields("Apellido1")
c_estudios.Text = rs.Fields("c_estudios")
progenitor.Text = rs.Fields("progenitor")
telefono.Text = rs.Fields("telefono")
n_cuenta.Text = rs.Fields("n_cuenta")
If rs.Fields("estado") = "baja" Then
Check1.Value = 1
End If
End If
rs.Close
Connection1.Close
End Sub