
VB para principiantes
Publicado por Fernando (2 intervenciones) el 16/02/2015 22:24:22
Hola bueno soy principiante en este tema estaba por realizar una aplicacion en vb 6.0 lo que necesito es una cadena de coneccion para una bdf
jalar desde vb una base del fox pro
la base se llama otm estuve indagando y me tope con esto pero la verdad es que no entiendo nada me gustaria que me explicasen que significan estos parametros y que debo hacer donde debo copiar o tener la carpeta fuente etc etc
'Ejemplo de consulta a BD en FoxPro
Dim cn as New ADODB.Connection
Dim rs as ADODB.RecordSet
Cn.Open("Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=c:\mydbpath;")
Set rs = Cn.Execute("Select * from TablaDBF ...")
If Not rs.EOF Then
rs.MoveFirst
While not rs.eof
for i = 0 to rs.Fields.Count - 1
Debug.print rs.fields(i).Name & ": " & rs.Fields(i).Value
next
rs.MoveNext
Loop
Else
Debug.Print "NO HAY DATOS EN LA CONSULTA"
End If
rs.Close
Cn.Close
Set rs = Nothing
Set Cn = Nothing
si fuera posible que alguien tenga un rpm y poder comunicarnos me ayudaria mucho de antemano agradesco su intension por ayudar a ente nueva en estos temas
muchas gracias y espero sus prontas repuesta
jalar desde vb una base del fox pro
la base se llama otm estuve indagando y me tope con esto pero la verdad es que no entiendo nada me gustaria que me explicasen que significan estos parametros y que debo hacer donde debo copiar o tener la carpeta fuente etc etc
'Ejemplo de consulta a BD en FoxPro
Dim cn as New ADODB.Connection
Dim rs as ADODB.RecordSet
Cn.Open("Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=c:\mydbpath;")
Set rs = Cn.Execute("Select * from TablaDBF ...")
If Not rs.EOF Then
rs.MoveFirst
While not rs.eof
for i = 0 to rs.Fields.Count - 1
Debug.print rs.fields(i).Name & ": " & rs.Fields(i).Value
next
rs.MoveNext
Loop
Else
Debug.Print "NO HAY DATOS EN LA CONSULTA"
End If
rs.Close
Cn.Close
Set rs = Nothing
Set Cn = Nothing
si fuera posible que alguien tenga un rpm y poder comunicarnos me ayudaria mucho de antemano agradesco su intension por ayudar a ente nueva en estos temas
muchas gracias y espero sus prontas repuesta
Valora esta pregunta


0