RESPUESTA A LA PREGUNTA 8203 - VISUAL BASIC


El ISAM lo no lo encuentras en los archivos ini, mas bien lo encuentras en el Register de Windows en HKEY_LOCAL_MACHINE - SOFTWARE - MICROSOFT - JET , dependfiendo el tipo (version 3.5 o 4.0) que estes usando ahi lo encontraras.

Lo que sucede es que en Visual 6.0 utilizas el Jet 4.0 y da la casualidad de que el jet 4.0 no se por que motivos no se no registra el Fox 2.0, es un misterio de Microsoft, para la version 3.5 si esta disponible por esos te digo que es dependiendo de la version.

Ademas debes de saber que la libreria (Dll) que soporta la conexiones de Fox 2.x es la version odbcjt32.dll 3.50.3602.00 y que esta es cambiada cuando instalas el office 2000 o el visual fox (Para saber cual version debes de entrar en el panel de control, odbc de 32 bits y revisar en controladores las versiones )

La solucion puede ser facil en 2 caminos :

1. Camino, utilizar el Data Control ( Que es lo mas facil ) ya que le dices en las propiedades "Connect" =  FoxPro 2.X

Crear un formulario
Agregar un data control
y en las propiedades de connect le das FoxPro 2.x
en la opcion database escribes el directorio y en recordsource el nombre de la tabla, ademas de un  text que en las propiedades de datasource = data1

ejemplo :

Creas un directorio  llamado "c:\sistemas\sim"
dentro de el una tabla de fox "propieta" con un campo llamado "cedula"
un command y le agregas

Private Sub Command1_Click()

Data1.Connect = "Foxpro 2.6"
Data1.DatabaseName = "c:\sistemas\sim"
Data1.RecordSource = "propieta"
Data1.Refresh

Text1.DataField = "cedula"

End Sub

ejecutas el formulario y veras que la informacion aparece en el text


2. Camino Utiliar ADO Que es lo mas conveniente si estas utilizando vb 6.0 (Recuerda que el dll debe ser la version anteriormente indicada de lo contrario te dara error)

Ejemplo

Option Explicit
Private objCnn As New ADODB.Connection
Private objCmd As New ADODB.Command
Private objRst As New ADODB.Recordset
Private objPrm As New ADODB.Parameter
Private Const JetOledb = "DSN=Cat;UID=;PWD=;SourceDB=c:\sistemas\sim;SourceType=DBF;Exclusive=No;BackgroundFetch=No;Collate=Machine;"

Private Sub Command1_Click()

objCnn.Open JetOledb

With objCmd
   .ActiveConnection = objCnn
   .CommandType = adCmdTable
   .CommandText = "propieta"
End With

Set objRst = objCmd.Execute

Text1.Text = MostrarRegistros(objRst)

End Sub

Public Function MostrarRegistros(ConjDatos As ADODB.Recordset, Optional ColID As Variant = 0) As String
Dim strmsj As String

Do While ConjDatos.EOF = False
   strmsj = strmsj & ConjDatos.Fields(ColID).Name
   strmsj = strmsj & " : " & ConjDatos.Fields(ColID).Value & vbCrLf
   ConjDatos.MoveNext
Loop
MostrarRegistros = strmsj
End Function

Veras que la funcion retorna los valores de toda la tabla

Debes de tener un dsn en el odbc que se llame "cat", lo puedes crear en el odbc de 32 bit del panel de control.

Espero te sirva de algo

Si tienes dudas te puedo enviar fuentes que realizan estas conexiones.


Tovares Cr
tovares@costarricense.com

http://www.lawebdelprogramador.com