Member Avatar for auwi987

hello guys need some help, i need to generate id the problem is i cannot get the last row from database

logical view

DATABASE
tbloutlet
PCSO20121
PCSO20122
PCSO20123

NOW
need to get
"PCSO20123"
select the last character '3' using mid
after selecting '3' convert to int and add to 1 VAl=3+1
"PCSO2012" & VAL

Main problem cannot select last row from the database "PCSO20123"

rs.Open "select max(OUTLET_ID) as IDS from tblOutlet", conn, adOpenStatic, adLockReadOnly
'ids = rs.Fields("IDS")
If rs.BOF And rs.EOF Then
    nonIds = "PCSO" & strYear & "1"
    txtOutletID.Text = ids
    Else
        genid = Mid$(rs.Fields("IDS"), 8, 1)
        inty = CInt(genid) + 1
        idhand = "PCSO" & strYear & CStr(inty)
    End If
    txtOutletID.Text = genid
   
End Sub
  • 3 Contributors
  • 2 Replies
  • 131 Views
  • 17 Hours Discussion Span
  • Latest Post Latest Post by debasisdas
Member Avatar for WaltP

Store the last number generated somewhere -- in another table or an initialization file.

Member Avatar for debasisdas

Since you are always concatenating the generated number to a fixed string, you need to generate only the number part from DB. Using the logic of Max(field)+1 should work fine for you.

Edited by debasisdas because: n/a
Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.