Visual Basic - recuperar campo de BD

Life is soft - evento anual de software empresarial
 
Vista:

recuperar campo de BD

Publicado por pilar (9 intervenciones) el 18/06/2003 10:24:35
Hola a todos, he hecho dos proyectos y en los dos me pasa que en los mantenimientos no me sale el dato almacenado en el primer campo de la primera tabla, q puedo hacer para recuperarlo?Gracias a kien conteste
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

RE:recuperar campo de BD

Publicado por Iñaki (502 intervenciones) el 18/06/2003 10:42:18
Podrias enviar el codigo que utilizas para recuperar los campos?,
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:recuperar campo de BD

Publicado por pilar (9 intervenciones) el 18/06/2003 11:20:02
El codigo que pongo al cargar el formulario que es cuando no me sale el primer campo es el siguiente:
Private Sub Form_Load()
On Error GoTo t_err
Dim nreg As Integer
' conexion del adodc al hacer el .exe
AdodcTA02.ConnectionString = conexion
AdodcTA02.RecordSource = " select * from ta02 order by ta0201 "
AdodcTA02.Refresh




SSPanel5.Caption = Format(Date, "Long Date")
confirmar.Enabled = False
cancelar.Enabled = False
SSPanel9.Caption = AdodcTA02.Recordset.RecordCount & " Reg."
nreg = AdodcTA02.Recordset.RecordCount
If nreg > 0 Then
AdodcTA02.Recordset.MoveFirst
End If
Desactivar_Casillas
buscar.Visible = True
fecha.Visible = False
fecha.Value = Date
Combo1.ListIndex = 0
condicion.ListIndex = 0
frmTA02.Height = 0
frmTA02.Width = 0
formato


If parametro2 <> "" Then
nuevo_Click
TA0201.Text = parametro2
parametro2 = ""
End If

frmTA02.Top = 200
frmTA02.Left = 1200
Exit Sub
t_err:
MsgBox "Se ha producido el Error: " & Err & " " & Error, 0, "Error"
Exit Sub
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

RE:recuperar campo de BD

Publicado por Iñaki (502 intervenciones) el 18/06/2003 11:47:06
Aparentemente tu codigo está bién, salvo esto :

If parametro2 <> "" Then
nuevo_Click
TA0201.Text = parametro2
parametro2 = ""
End If

Por lo que veo quieres mostrar en TA0201 cuando un valor no sea nulo
aunque tambien puedes hacerlo así:
TAO201.TEXT = " " & PARAMETRO2

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:recuperar campo de BD

Publicado por pilar (9 intervenciones) el 18/06/2003 12:30:56
Gracias x tu ayuda pero he intentado lo que me has dicho y sigue sin aparecerme, si se t ocurre otra cosa por favor dímelo xq ya no se que hacer. Chao
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

RE:recuperar campo de BD

Publicado por Iñaki (502 intervenciones) el 18/06/2003 12:50:16
Solo queda crear un formulario de prueba sin codigo escrito alguno, solo un control ADO y dos controles text enlazados al ADO, si esto falla, enviame todo el proyecto o solo el formulario a mi correo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:recuperar campo de BD

Publicado por pilar (9 intervenciones) el 18/06/2003 13:10:56
Sigue sin aparecer el campo y el problema se produce al quitarle la ruta del ado y hacer la conexion en el codigo xq lo he provado con la ruta en el ado y si que sale el dato
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar