Batch Inserts in MSACCESS

Try doing this in VB application

For intCounter = 1 To ClassInfos.Count
strSQL = strSQL & " Insert into Class(ClassID,ProgramID,StudentID) Values("
strSQL = strSQL & "'" & ClassInfos.Item(intCounter).ClassID & "','" & PInfo.ProgramID & "','" & SInfo.StudentID & "')" & vbCrLf
Debug.Print strSQL
Next intCounter

adoCmd.CommandText = strSQL
adoCmd.CommandType = adCmdText
adoCmd.Execute (intRecs)



Stupid MSACCESS dont accept batch inserts!! what the hell!!

I never tried doing a batch insert, but you can always just do an excute statement inside the for loop instead. But you would have to make sure your first assigment statement to strSQL doesn't include itself.

VB Code:

For intCounter = 1 To ClassInfos.Count
strSQL = " Insert into Class(ClassID,ProgramID,StudentID) Values("
strSQL = strSQL & "'" & ClassInfos.Item(intCounter).ClassID & "','" & PInfo.ProgramID & "','" & SInfo.StudentID & "')" & vbCrLf
adoCmd.Execute strSQL
Debug.Print strSQL
Next intCounter