ayuda con este codigo

"pavel" escribió:

estoy utilizando el siguiente codigo para:
1.- Crear una base de datos de visual fox pro
2.- Exportar los datos contenidos en una base de datos en de Microsoft
Acces a la tabla creada de visual.
El probrlema es que cuando lo hecho a andar me sale el siguiente mensaje
"No se puede utilizar ODBC para importar, exportar o vincular a su base de
datos una tabla externa de Microsoft Jet o de una base de Datos ISAM"

Hola:

Si tu intención es crear un archivo dbf utilizando el ISAM para dBASE, lo
que debes de hacer es conectarte normalmente con la base de datos Microsoft
Access, sin utilizar el driver ODBC, y exportar los datos de la tabla
creando con los mismos un nuevo archivo dbf:

' Creamos la conexión con la base de datos de Acccess
'
Dim connString As String = _
"Provider = Microsoft.Jet.OLEDB.4.0;" & _
"Data Source = c:\database\activos.mdb;"

Dim cnn As New OleDb.OleDbConnection(connString)

Try
' Creamos un nuevo archivo dbf
'
Dim sql As String = _
"SELECT * INTO Archivo#dbf " & _
"IN ''[dBASE 5.0;DATABASE=A:\]" & _
"FROM [datos_generales]"

Dim cmd As New OleDb.OleDbCommand(sql, cnn)

cnn.Open()

Dim n As Integer = cmd.ExecuteNonQuery()

MessageBox.Show("Se creado satisfactoriamente el archivo." & _
ControlChars.CrLf & _
"Número de registros afectados: " &
n.ToString, _
"Crear archivo dBASE")

Catch ex As OleDb.OleDbException
MessageBox.Show(ex.Errors(0).Message)

Catch ex As Exception
MessageBox.Show(ex.Message)

Finally
cnn.Close()
cnn = Nothing

End Try

Pero como de ésta manera no tienes ningún tipo de problema. :-)

Un saludo

Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.