ayuda con este codigo

15/07/2006 - 02:05 por pavel | Informe spam
hola a todos no se si me podrian ayudar con este problema que tengo; 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"
no se si alguien conocerá otro codigo o me podria decir como puedo cambiar
el codigo que utiliso.
el codigo que estoy utilizando es el siguiente:
Dim connString As String = _
"Provider = Microsoft.Jet.OLEDB.4.0;" & _
"Data Source = a:\;" & _
"Extended Properties = 'dBASE 5.0;'"


Dim cnn As New OleDb.OleDbConnection(connString)

Try

Dim sql As String = _
"SELECT * INTO Archivo#dbf " & _
"FROM [datos_generales] " & _
"IN ''[ODBC;DRIVER={Microsoft Access Driver (*.mdb)};" & _
"Server="";" & _
"Database=c:\database\activos.mdb;" & _
"UID=Admin;" & _
"PWD=""]"
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
Les agradecere bastante su ayuda
 

Leer las respuestas

#1 SoftJaén
15/07/2006 - 17:17 | Informe spam
"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.

Preguntas similares