Visual Basic - ALGUIEN PUEDE AYUDARME?

Life is soft - evento anual de software empresarial
 
Vista:

ALGUIEN PUEDE AYUDARME?

Publicado por HILARIO (100 intervenciones) el 05/08/2004 18:59:01
'Esto me da un error
Operation is not supported for this type of object

Dim mibase As Database
Dim miregistro As Recordset
Dim sql As String
Set mibase = OpenDatabase("c:\mega byte\MAESTRO.mdb")

Set miregistro = mibase.OpenRecordset("tbencfact")
miregistro.FindFirst "ftfactura like '" & txtfactura.Text & "'"

If Not miregistro.NoMatch Then
lblnombrecliente.Caption = miregistro!tbefcliente
End If

mibase.Close
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:ALGUIEN PUEDE AYUDARME?

Publicado por miguel (1042 intervenciones) el 06/08/2004 00:36:38
Puedes hacerlo de este modo:
Dim mibase As Database
Dim miregistro As Recordset
Dim sql As String

Set mibase = OpenDatabase("c:\mega byte\MAESTRO.mdb")

Set miregistro = mibase.OpenRecordset("Select * From tbencfact", dbOpenSnapshot)
miregistro.FindFirst "ftfactura like '" & txtfactura.Text & "'"

If Not miregistro.NoMatch Then
lblnombrecliente.Caption = miregistro!tbefcliente
End If

mibase.Close

Nota: Lo probe y si me funciono lo adapte a tu ejemplo pruebalo!!! si tienes problemas te envio mi ejemplo saludos!!!
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:ALGUIEN PUEDE AYUDARME?

Publicado por Juan Daniel (1 intervención) el 16/08/2004 21:18:13
Que onda oye una pregunta que quieres hacer? si quieres buscar escribeme para mandarte el codigo para la busqueda ok bye
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