Visual Basic - Gracias por tu ayuda...pero

Life is soft - evento anual de software empresarial
 
Vista:

Gracias por tu ayuda...pero

Publicado por DANNY (32 intervenciones) el 19/06/2002 19:27:07
Hola gracias por tu ayuda lo que tengo en el formulario de datos es un ADO control podrias decirme como seria la busqueda desde otro formulario para que entre directamente a este con los datos cargados?
Gracias por ayudarme
el ADO se llama datPrimaryRS
Danny
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

RE:Gracias por tu ayuda...pero

Publicado por Nelson Fredericksen (125 intervenciones) el 19/06/2002 19:48:48
Tengo una Aplicación con situaciones similares... la solución es esta, espero que te sirva...
Private Sub Form_Load() '(EN EL NUEVO FORMULARIO)
Set wsp = DBEngine.Workspaces(0)
Set base = wsp.OpenDatabase("c:\agroges\agroges.mdb", dbOpenDynaset)
If Val(idempresa) > 0 Then
Call completa
Else:
Call borrar
Call Nueva_Click
End If

End SubPrivate Sub completa()
On Error Resume Next
Set GenEmpre = base.OpenRecordset("select * from GenEmpresa")
busca = Inicio.TEXT1.TEXT (Busca desde lo escrito en form.Pricipal)
strpaís = "noemp = '" & busca & "'"
GenEmpre.FindFirst strpaís
With IdEmpresas
.Text9.Text = GenEmpre!idemp
.Text1.Text = Format$(GenEmpre!ruemp, "##,###,###")
.Text5.Text = GenEmpre!ciemp
.Text6.Text = GenEmpre!reemp
.Directorio.Text = GenEmpre!dirtrab
.End With
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