How do you get the ms_access dump into Access ?

[dim13]

How do you get the ms_access dump into Access ? How do you run the scripts in Access ?

Thanks.

[rcbuss]

Good question. I'm wondering the same thing.

I have access to Access, and would rather go with that, than starting to learn a variation of SQL (if I don't have to).

[billethius]

I'd imagine that Marc will be posting whatever tools have been submitted to the contest referenced in this thread in not too long of a time.

[Andreas Raht]

Originally Posted by dim13

How do you get the ms_access dump into Access ? How do you run the scripts in Access ?

Thanks.

Marc will post the tools that are currently in development on the OOTP2006 site... but until then feel free to use this simple script. Just create an empty Access database, create a Modul and insert the code. Start it with F8 or F5. Or create a form, with a button, with the code "behind it".

ATTENTION!!!! No support for this script, and use at your own risk

Sub import()
Dim fso As FileSystemObject
Dim fo As Folder
Dim f As File
Dim t As TextStream
Dim z As String
Dim i As Long
Dim db As Database
On Error GoTo err_sub
Set db = CurrentDb()
Set fso = New FileSystemObject
Set fo = fso.GetFolder("C:\ootp\data\saved_games\New Game.lg\import_export")
For Each f In fo.Files
    If f.Name Like "*.access.sql" Then
        
        Debug.Print
        Debug.Print f.Name
        DoEvents
        
        Set t = f.OpenAsTextStream(1)
        i = 0
        Do While Not t.AtEndOfStream
            i = i + 1
            z = t.ReadLine
            z = Trim$(z)
            If z <> "" Then
                db.Execute z, dbFailOnError
            End If
        Loop
        t.Close
        Set t = Nothing
        
    End If
Next f
MsgBox "Done!"
exit_sub:
    On Error Resume Next
    db.Close
    Exit Sub
    
err_sub:
    Debug.Print
    Debug.Print Err.Description
    If z Like "DROP TABLE*" Then
        Resume Next
    Else
        If MsgBox("" & f.Name & vbCrLf & t.Line & vbCrLf & z, vbOKCancel, "Error") = vbOK Then
            Resume Next
        Else
            Resume exit_sub
        End If
    End If
    
End Sub

[rcbuss]

Thanks, Andreas, I'll have to give that a try.

What I ended up doing, this time, was importing the .csv files one by one into Access.

[Comedian2004]

It does not work in Access 2003

[rcbuss]

I'm using Access 2002 at home, which is a different version from what I have at work.

I went through File --> Get External Data --> Import

Is that the part that Access 2003 won't let you do?

[Comedian2004]

I have not tried the CSV, I know that should work, but was talking about his VB code in the above example.

[jarmenia]

Originally Posted by Comedian2004

It does not work in Access 2003

I put access 2003 code in this thread: http://www.ootpdevelopments.com/boar...=118106&page=2

Post 51

[tysok]

Originally Posted by rcbuss

Thanks, Andreas, I'll have to give that a try.

What I ended up doing, this time, was importing the .csv files one by one into Access.

Just create tables in access linked to the .csv files. Then when you do a .csv dump from the game, your access program is automatically updated with whatever new information is now in those .csv files. (I'm in Access 97, but think linking is in all of them) I had to edit all the column headings the first time, but better than importing that you have to do everytime.

Fairly easy, I didn't care to go into anything deeper since I'm just doing this for fun, and trying to go deeper would result in the loss of the rest of my hair.