New Database Problem

[VeryNewbie2004]

I am having a problem creating a new Access Database from VB6.

I have tried just about everything I can think of, yet the simple task of creating a mdb file seems to be beyond me.

If anyone can help I would appreciate it loads.

Cheers

Mike

 

[MattSTech]

This thread is what you are looking for

 

[Dimandja]

How far did you get? What did you try so far?

 

[VeryNewbie2004]

You know what I have just done this. For some reason the code I wrote in the first place seems to have just started working - I hate computers

 

[VeryNewbie2004]

Dimandja

I can't believe how simple this was - I havbe been tearing my hair out for the entire afternoon:

Dim app_Access As Access.Application
Set app_Access = New Access.Application

Str_OutputDB = "U:\PLEASEPLEASEPLEASE.mdb"
Str_OutputFile = "u:\TEST.csv"

With app_Access

'Make New Database

.NewCurrentDatabase (Str_OutputDB)

'Create Table (tbl_Digests)

.DoCmd.RunSQL "CREATE TABLE " & Str_OutputDB & ".tblDigests(FilePath VarChar(255), FileName VarChar(100), DigestNumber VarChar(100));"

Open Str_OutputFile For Input As #1

Do While Not EOF(1)

Line Input #1, Str_FileLine

.DoCmd.RunSQL "INSERT INTO " & Str_OutputDB & ".tblDigests(FilePath,FileName,DigestNumber) VALUES (" & Str_FileLine & ");"

Loop

Close #1

.Quit acQuitSaveNone

End With

Cheers

Mike

 

[MattSTech]

Did you look at the link I posted. Far less code...

Matt