Visual Basic - Grabar de Basic 6 a DBF

Deseo saber algun codigo (Por mas sencillo que sea estara bien) para grabar de visual Basic 6 a DBF.

Gracias
Ryan Villar

Rem se supone tienes referenciado ADO en tus librerias
Dim obRecordset As New ADODB.Recordset
Dim wcSQL As String
Dim wcDSN As String

wcSQL = \"insert into <TABLA> (<CAMPO1>, <CAMPO2>, ..., <CAMPON) \"
wcSQL = wcSQL & \"values (<VALOR1>, <VALOR2>, ... <VALORN>) \"
wcSQL = wcSQL & \"where <CLAUSULAS DE VALIDACION> \"
wcDSN = \"DSN=<TUODBC> UID=<TUDBUSUARIO> \"
wcDSN = wcDSN & \"PWD=<TUDBPASSWORD>\"

obRecordset.Open wcSQL, wcDSN

Rem Recuerda que todo lo que tienes que hacer es que tu ODBC esté
Rem direccionado a la base de datos que te dé la gana. ODBC y ADO
Rem se encargan del resto. Saludos.

Rem se supone tienes referenciado ADO en tus librerias
Dim obRecordset As New ADODB.Recordset
Dim wcSQL As String
Dim wcDSN As String

wcSQL = \"insert into <TABLA> (<CAMPO1>, <CAMPO2>, ..., <CAMPON) \"
wcSQL = wcSQL & \"values (<VALOR1>, <VALOR2>, ... <VALORN>) \"
wcSQL = wcSQL & \"where <CLAUSULAS DE VALIDACION> \"
wcDSN = \"DSN=<TUODBC> UID=<TUDBUSUARIO> \"
wcDSN = wcDSN & \"PWD=<TUDBPASSWORD>\"

obRecordset.Open wcSQL, wcDSN

Rem Recuerda que todo lo que tienes que hacer es que tu ODBC esté
Rem direccionado a la base de datos que te dé la gana. ODBC y ADO
Rem se encargan del resto. Saludos.

RYAN : Si lo que yo entiendo es pasar datos de una Tabla de una Base de Datos Access a una DBF te paso el codigo, sino entendi la pregunta pido disculpas
Dim db as database set db = opendatabase(App.path+"\Base1.mdb") db.execute "SELECT * INTO [dBase III;DATABASE=C:\dbase].[Base2] From [Tabla1]"
Donde BASE1.Mdb es la base de datos Access y Tabla1 la Tabla dentro de la MDB y BASE2 es la DBF a la cual transfieres los datos, suerte.