unique input(VB6)

[rhex_tendo]

---

' ibutang daw ni nga code bro after sa If CmdSave.Caption = "&Save New" Then
' kung number ang data type sa imo IDNum nga field:
' Adodc1.Recordset="SELECT IDNum FROM tblOwner WHERE IDNum=" & Text1.Text
' Kung Text/string ang data type, kini:
' Adodc1.Recordset="SELECT IDNum FROM tblOwner WHERE IDNum='" & Text1.Text & "'"

Adodc1.Recordset="SELECT IDNum FROM tblOwner WHERE IDNum=" & Text1.Text 'kung number ang datatype
Adodc1.Refresh
If NOT Adodc1.Recordset.EOF Then
Msgbox "ID Number already exist!"
Exit Sub
End IF

'
' itry lang na bro...
'

[sanggano_boy]

if naa na daghan duplicate sa database.

pwede nimo e "SELECT DISTINCT...." para ang e display sa query one copy of row only.


cebujobline.com | The Free Job Post in cebu

[hustlas4ever]

mga sir...

murag nasakpan naq nganu mudawat gypn ako gibuhat ug maski existing na nga input...

MALI diay kaau sa katanan aqng relationships sa database...mai gani ni hisgut si sir boloygabs ug primary key...ty sir..^^

unya aq nang gi tama...

karun dili na xa musugot ug existing inputs pero pina error pud lage...mao ning error mga sir oh...



unsa ma'y maaung tikang ani mga sir??

[darkhero]

kung vb.net gamiti ug try... catch bro para error-handling kung vb6 try ang on error goto. pwede pud bro, i-validate una nimo ang data, for more info --> http://visualbasic.freetutes.com/lea...anced/lesson5/

[rhex_tendo]

' i.validate sa imo data bro, para dili mu.create ug error
'

[hustlas4ever]

mao nang dakong problema kay d ko kamao...hehehe

basahun sa naq ning link ni darkhero kay dako kau ni'g tabang...

salamat kau mga sir...

balik-balik q ug samuk-samuk diri ha...hehehe...

[boloygabs]

mga sir...

murag nasakpan naq nganu mudawat gypn ako gibuhat ug maski existing na nga input...

MALI diay kaau sa katanan aqng relationships sa database...mai gani ni hisgut si sir boloygabs ug primary key...ty sir..^^

unya aq nang gi tama...

karun dili na xa musugot ug existing inputs pero pina error pud lage...mao ning error mga sir oh...



unsa ma'y maaung tikang ani mga sir??

ur welcome boss..

[bbriones]

Ako suggestion bro, i trap nalang na nga error instead cge ka check sa dbase if existing na

[hustlas4ever]

@darkhero, bbriones

salamat kau mga sir sa inung pag suggest nga gamitan nlang ni aqng problema ug error handling...

hayag na ang defense karung biyernes....hehehe...

naa pa diay ko'y pangutana, unsaun pag sulat ug double quotes sa msgbox??

salamat...

[darkhero]

try ang chr() function...

MsgBox Chr(34) & "Hello" & Chr(34)