I need some Database help desparately!!! Please....!!!!

[tcurtis]

I am trying to populate the current database with this code I have...I get the error that the database is already open. It is open in code form not table form....I need to populate it with the records of my .csv file. It worked yesterday but not today....why?
Here is my code:

Option Compare Database
Option Explicit

Dim dbsProjectcsv As Database
Dim rstproject As Recordset
Dim wrkJet As Workspace
Dim BDS As Integer
Dim Filler As Long
Dim LoggedDate As Integer
Dim strDesignDescription As String
Dim strStatus As String
Dim strDeveloper As String
Dim strBusinessAnalyst As String
Dim Packet As Integer
Dim strDesignType As String
Dim strSystem As String
Dim ExpectedDate As Integer
Dim strDepartment As String

Sub Open_Records()
'create microsoft jet workspace object.
Set wrkJet = CreateWorkspace("", "admin", "", dbUseJet)
'Opens Database
Set dbsProjectcsv = wrkJet.OpenDatabase("C:\Projectcsv.mdb", True)
Set rstproject = dbsProjectcsv.OpenRecordset("BDS", dbOpenTable)
'Opens the project file to input it into the database
Open "C:\project.csv" For Input As #1
Do While Not EOF(1)
Input #1, BDS, Filler, LoggedDate, strDesignDescription, strStatus, strDeveloper, strBusinessAnalyst, Packet, _
strDesignType, strSystem, ExpectedDate, strDepartment
Debug.Print "Opening table-type recordset " & _
"where the source is a QueryDef object..."


AddRecord rstproject, BDS, Filler, LoggedDate, strDesignDescription, strStatus, strDeveloper, strBusinessAnalyst, Packet, _
strDesignType, strSystem, ExpectedDate, strDepartment


Loop
Close #1
End Sub

Function AddRecord(rstproject As Recordset, BDS, Filler, LoggedDate, strDesignDescription, strStatus, strDeveloper, strBusinessAnalyst, Packet, _
strDesignType, strSystem, ExpectedDate, strDepartment)

' Adds a new record to a Recordset using the data passed
' by the calling procedure. The new record is then made
' the current record.
With rstproject
.AddNew
!BDS = BDS
!Filler = Filler
!LoggedDate = LoggedDate
!DesignDescription = strDesignDescription
!Status = strStatus
!Developer = strDeveloper
!BusinessAnalyst = strBusinessAnalyst
!Packet = Packet
!DesignType = strDesignType
!System = strSystem
!ExpectedDate = ExpectedDate
!Department = strDepartment
.Update
.Bookmark = .LastModified
Debug.Print "Opening table-type recordset " & _
"where the source is a QueryDef object..."
End With

End Function

 

[Sawatzky]

Dear tcurtis,

as i read in another thread you opened on the same prob, you have resolved it. Please let us know, when you solve a problem, as we then need not think about it anymore.

btw,
I read your post, but i had no idea how to help you, as I had not the time to analyze all your code.
If you had pointed to the exact line where your error occured it would have been much easier.
Then I would have checked the options of that specific line, because I am willing to help.

best regads Astrid

 

[bdfigler]

Hmm, I read his posts and it looks like his whole externship was done by members of these forums. Good job, everyone! Can't wait till tcurtis gets a job

 

[JoaoTL]

Hi, i dont have much experience with this situation, but "Admin" is not case sensitive?

("", "admin", "", dbUseJet)

("", "Admin", "", dbUseJet)
Best Regards

---
JoaoTL
NOSPAM_mail@jtl.co.pt

http://www.jtl.co.pt

http://www.jtl.co.pt/Access

 

[Sawatzky]

Dear JaoTL,

first of all your question is a new thread so next time post a new thread, as otherwise people on see your question by accident.

Now to your question:

Windows Jet is not case-sensitive at all. (Messy, but that is the way it is)

regards astrid

 

[JimHorton]

Sawatzky, JaoTL,
Userid not case sensitive, Password *is* case sensitive.
--Jim

 

[JoaoTL]

Ok, thanks anyway but a made that question only triyng to help *tcurtis* thread. That question was a anwser.
Best Regards

---
JoaoTL
NOSPAM_mail@jtl.co.pt

http://www.jtl.co.pt

http://www.jtl.co.pt/Access