Calling VB gurus...

[Mean MrMustard]

I know this goes in the Programming Forum, but I rarely get answers in there is I'm here. What the hell is wrong with this code, I can't figure it out. Any suggestions are greatly appreciated!

Option Explicit
Private rsConcerts As ADODB.Recordset
Private rsSeats As ADODB.Recordset
Private rsReservations As ADODB.Recordset
Private cnConcert As ADODB.Connection
Private pstrConDate As String
Private pstrConTitle As String

Private Sub Form_Load()
Set cnConcert = New ADODB.Connection
cnConcert.ConnectionString = "Provider = " _
& "Microsoft.Jet.OLEDB.4.0; " _
& "Data Source = A:\Assignment5\concert.mdb"

cnConcert.CursorLocation = adUseClient

cnConcert.Open
Set rsConcerts = New ADODB.Recordset
Set rsSeats = New ADODB.Recordset
Set rsReservations = New ADODB.Recordset

Call rsConcerts.Open("Concerts", cnConcert, adOpenStatic, adLockPessimistic, adCmdTable)

Call rsSeats.Open("Seats", cnConcert, adOpenStatic, adLockPessimistic, adCmdTable)

Call rsReservations.Open("Reservations", cnConcert, adOpenStatic, adLockPessimistic, adCmdTable)

Do Until rsConcerts.EOF
rsConcerts.movefirst
pstrConDate = rsConcerts!ConcertDate
pstrConTitle = rsConcerts!Title
cbo1.AddItem pstrConDate & "-" & pstrConTitle
rsConcerts.MoveNext
Loop
End Sub

 

[charrison]

Originally posted by: ELP
I know this goes in the Programming Forum, but I rarely get answers in there is I'm here. What the hell is wrong with this code, I can't figure it out. Any suggestions are greatly appreciated!

Option Explicit
Private rsConcerts As ADODB.Recordset
Private rsSeats As ADODB.Recordset
Private rsReservations As ADODB.Recordset
Private cnConcert As ADODB.Connection
Private pstrConDate As String
Private pstrConTitle As String

Private Sub Form_Load()
Set cnConcert = New ADODB.Connection
cnConcert.ConnectionString = "Provider = " _
& "Microsoft.Jet.OLEDB.4.0; " _
& "Data Source = A:\Assignment5\concert.mdb"

cnConcert.CursorLocation = adUseClient

cnConcert.Open
Set rsConcerts = New ADODB.Recordset
Set rsSeats = New ADODB.Recordset
Set rsReservations = New ADODB.Recordset

Call rsConcerts.Open("Concerts", cnConcert, adOpenStatic, adLockPessimistic, adCmdTable)

Call rsSeats.Open("Seats", cnConcert, adOpenStatic, adLockPessimistic, adCmdTable)

Call rsReservations.Open("Reservations", cnConcert, adOpenStatic, adLockPessimistic, adCmdTable)

Do Until rsConcerts.EOF
rsConcerts.movefirst
pstrConDate = rsConcerts!ConcertDate
pstrConTitle = rsConcerts!Title
cbo1.AddItem pstrConDate & "-" & pstrConTitle
rsConcerts.MoveNext
Loop
End Sub

what does it do/not do?

 

[Mean MrMustard]

Sorry.

It's supposed to load records from a database into a combobox at load time.

 

[splice]

At what point in the code does it die?

 

[Mean MrMustard]

Do Until rsConcerts.EOF
rsConcerts.movefirst
pstrConDate = rsConcerts!ConcertDate
pstrConTitle = rsConcerts!Title
cbo1.AddItem pstrConDate & "-" & pstrConTitle
rsConcerts.MoveNext
Loop

The program should stop at the EOF, when I run the program it won't even appear unless I comment out the Do Until Loop. I think the "rsConcerts.EOF" isn't worded right. When its commented out the program loads but obviously the combobox isn't loaded.

 

[Mean MrMustard]

bump

 

[rufruf44]

The program will got stuck in an endless loop. Move the .Movefirst outside the loop and try again.

 

[Mean MrMustard]

Thanks ruf, I knew it would be something stupid like that.

I have another problem. I have a ListView set up and I need to be able to click on the column headings to sort in ascending order, if I click on the same header again, it should sort in descending order.