How to export an table to dbase with index

On Tue, 3 Feb 2004 11:49:32 +0800, <towhwa RemoveThis @os-okamoto.com.sg> wrote:

¤ How can I COPY all data from rs to a Dbase IV database "newdb.dbf" with
¤ index using VB ???
¤

See if the following works for you:

Sub ExportTodBase()

Dim cnn As New ADODB.Connection
Dim sqlString As String

' Open the Connection
cnn.Open _
"Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=D:\My Documents\db1.mdb;" & _
"Jet OLEDB:Engine Type=4"

sqlString = "SELECT * INTO [dBase IV;DATABASE=D:\My Documents\dBase].[dBase1] FROM [Table3]"
cnn.Execute sqlString

cnn.Close
Set cnn = Nothing

End Sub


Paul ~~~ pclement RemoveThis @ameritech.net
Microsoft MVP (Visual Basic)