Visual Basic - Consulta

Life is soft - evento anual de software empresarial
   
Vista:

Consulta

Publicado por ana (15 intervenciones) el 19/11/2008 23:14:12
Option Explicit
Dim cn As New rdoConnection
Dim rs As rdoResultset
Dim SQL As String
___________________________________________

Private Sub Form_Load()

cn.Connect = "SourceType=DBF;" _
& "SourceDB=D:X estDATA;" _
& "Driver={Microsoft Visual FoxPro Driver}"

cn.CursorDriver = rdUseOdbc
cn.EstablishConnection "rdDriverNoPrompt"
'where folio like '" & Text1.Text & "'"""
SQL = "select * from cel_data"
Set rs = cn.OpenResultset(SQL, rdOpenKeyset, rdConcurRowVer)

rs.MoveFirst
'Text1.Text = rs(0)
Text2.Text = rs(7)
Text3.Text = rs(8)
Text4.Text = rs(9)
end sub
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:Consulta

Publicado por CONEJO (2 intervenciones) el 20/11/2008 16:12:54
????????????????????????????????????
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

Muy bonita

Publicado por El Sarcasmos (2 intervenciones) el 20/11/2008 16:22:59
¡Felicidades!
( ¿? )
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:Consulta

Publicado por Christian (666 intervenciones) el 22/11/2008 07:35:01
Hola Ana y la consulta cual es?
Ana si el problema es de conexion , porque no usas ADO

Provider=vfpoledb.1;Data Source=C:MyDataDirectory;Collating Sequence=general;

Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=c:myvfpdbfolder;Exclusive=No; Collate=Machine;NULL=NO;DELETED=NO;BACKGROUNDFETCH=NO;

Cualquier cosa lo vemos mejor, escribime
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