Crear dll de vfpoledb de 64 bits porfavor ayuda!

[omer lopez]

por mas que investige e investige no pude registrar la dll de
vfpoledb.dll asigne permisos baje el oledbprovider odbc
todo pero nunc apude agregar la referencia a vpoledb porque no esxiste
para 64 bits de windows 7 home premium
y necesito crear una desde foxpro ayuda porfavor les dejo el codigo y
donde tengo el error..
----------------------------------------------------------------------------------------------------------------------------------------------------------------------
Imports System.Data.OleDb
Imports MySql.Data.mySqlclient
Imports System.Data.SqlClient

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click

Dim con As New OleDbConnection("Provider=VFPOLEDB.1;Data
Source=c:\compacw\empresas\prueba;Integrated Security=SSPI")


Dim com As OleDbCommand = New OleDbCommand("select
ccodigoc01,cnombrec01 from mgw10006 ", con)


If (con.State <> ConnectionState.Open) Then 'aqui me marca el
error en "con" no hace la conexion
con.Open()
End If



Dim dr As OleDbDataReader = com.ExecuteReader
While dr.Read()




MessageBox.Show(dr.GetValue(0).ToString)

End While
If (con.State = ConnectionState.Open) Then
con.Close()
End If

End Sub
----------------------------------------------------------------------------------------------------------------------------------------------------------------------

[Claudio Luna]

Omar, 

En este directorio esta e“c:\windows\syswow64\odbcad32.exe” es para registrar las odbc...

Espero que te sirva..

Saludos

Claudio

[Victor Guzman]

Checa este link a lo mejor te es de utilidad, saludos...

http://sosrucer.wordpress.com/2010/03/09/windows-7-64-bits-y-controladores-odbc/ 

[TheNewInquirer]

No sé de que están hablando jeje, pero ahi va otro enlace jaja:

http://www.portalfox.com/index.php?name=News&file=article&sid=2752

Parece que ya alguien aclaro que no se recomendaba ese driver o algo
asi.

Saludos!

[Victor Espina]

No creo que sea posible generar un dll de 64 bits del driver oledb de VFP pues para eso necesitarias los fuentes y, aun asi, VFP seria incapaz de usar ese driver.

Sin embargo, si deberia ser perfectamente posible registrar un DLL de 32 bits en Windows 7 x64. Mira esta entrada de mi blog para ver si el procedimiento indicado ahi te funciona en tu caso:

http://www.vespina.blogspot.com/2011/09/registrando-mscomctlocx-en-ambientes-de.html

Saludos

Victor Espina

[danteco]

Hola

No se si ya resolviste este caso, pero el problema base con el driver
de Visual Foxpro es que es solo de 32 bits, y si tu aplicacion la
estas compilando como Any CPU, al correr en x64 solo puede llamar
librerias compiladas para X64.
Para resolver este caso se debe de compilar la aplicacion con X86 y
asi funciona sin ninguna falla.

Saludos
Danteco

On 15 feb, 16:13, omer lopez <omerlope...@gmail.com> wrote:
> por mas que investige e investige no pude registrar la dll de
> vfpoledb.dll asigne permisos baje el oledbprovider odbc
> todo pero nunc apude agregar la referencia a vpoledb porque no esxiste
> para 64 bits de windows 7 home premium
> y necesito crear una desde foxpro ayuda porfavor les dejo el codigo y
> donde tengo el error..

> ---------------------------------------------------------------------------­---------------------------------------------------------------------------­----------------

> Imports System.Data.OleDb
> Imports MySql.Data.mySqlclient
> Imports System.Data.SqlClient
>
> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
> System.EventArgs) Handles Button1.Click
>
>         Dim con As New OleDbConnection("Provider=VFPOLEDB.1;Data
> Source=c:\compacw\empresas\prueba;Integrated Security=SSPI")
>
>         Dim com As OleDbCommand = New OleDbCommand("select
> ccodigoc01,cnombrec01 from mgw10006 ", con)
>
>         If (con.State <> ConnectionState.Open) Then  'aqui me marca el
> error en "con" no hace la conexion
>             con.Open()
>         End If
>
>         Dim dr As OleDbDataReader = com.ExecuteReader
>         While dr.Read()
>
>             MessageBox.Show(dr.GetValue(0).ToString)
>
>         End While
>         If (con.State = ConnectionState.Open) Then
>             con.Close()
>         End If
>
>     End Sub

> ---------------------------------------------------------------------------­---------------------------------------------------------------------------­----------------