Exclusively for Visual Basic 6.0 Programmers Only!

[bryan1207]

eto nlng question q ,
pwede ba lagyan ng error gamit yung msgbox yung find?
example adodc1.recordset.find "blah blah
tapos pag walang na search then
msgbox "nothing to find"

yung ganon baga, panu kya yan?

Pwd yan. Record count ang gamitin mo.

If Data.Recordset.RecordCount = 0  Then

Msgbox("Nothing to Find")
Exit Sub
Else
'Dito ang result
End If

 

[drkgme]

@bryan1207 sir baka pwede naman po p2long dun sa post ko about sa list at database..

 

[maritesmacute]

Pwd yan. Record count ang gamitin mo.

If Data.Recordset.RecordCount = 0  Then

Msgbox("Nothing to Find")
Exit Sub
Else
'Dito ang result
End If

Adodc2.Recordset.Find "reference = '" & txtreference.Text & "'", , adSearchForward, 1
If Adodc2.Recordset.RecordCount = 0 Then
MsgBox "nothing to find"
Else
MsgBox "my code!"
End If

bos ayaw eh..
lagi nag eexecute yung my code

 

[bryan1207]

@bryan1207 sir baka pwede naman po p2long dun sa post ko about sa list at database..

Adodc2.Recordset.Find "reference = '" & txtreference.Text & "'", , adSearchForward, 1
If Adodc2.Recordset.RecordCount = 0 Then
MsgBox "nothing to find"
Else
MsgBox "my code!"
End If

bos ayaw eh..
lagi nag eexecute yung my code

Upload niyo po sa mediafire ang mga ginagawa niyo then send niyo saken via PM. Try ko po gawin.

 

[maron12mrn13]

ask lng po mga ka dre .. Panu po bah mamanipulate ang broadband kit(SmartBro, Globe Tattoo) with VB6?? for example sending sms ..

 

[arnold15]

Help sa ADODB at MySQL. Lagi na lang akong may error sa UPDATE. Naiinis na ako. Ito yung code ko

Private Sub Form_Load()
Set db = New ADODB.Connection
Set rs = New ADODB.Recordset

db.ConnectionString = "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=isearch2; User=root;Password=password;Option=3;"
db.Open

End Sub

Private Sub cmdPrint_Click()
rs.Open "UPDATE cardinfo SET PrintCredits='" & Me.lblCredits.Caption &"' WHERE StudentNo='" & Me.lblStudentNo.Caption & "'", db, adOpenDynamic, adLockPessimistic
End Sub

Ito yung error:

 

[jskhulitz]

Run-time error '3001'
Comparing Fields as Criteria to Filter Recordset

Value is the value with which you will compare the field values (for example, 'Smith', #8/24/95#, 12.345 or $50.00). Use single quotes with strings and pound signs (#) with dates. For numbers, you can use decimal points, dollar signs, and scientific notation. If Operator is LIKE, Value can use wildcards. Only the asterisk (*) and percent sign (%) wild cards are allowed, and they must be the last character in the string. Value cannot be Null.

You are having a problem with this line

rs.Open "UPDATE cardinfo SET PrintCredits='" & Me.lblCredits.Caption &"' WHERE StudentNo='" & Me.lblStudentNo.Caption & "'", db, adOpenDynamic, adLockPessimistic

ano ang fieldtype nung fields mo (PrintCredits & StudentNo) ?

 

[sh1pwr3ck]

this site is a big help for me. im 32 and im taking up DIT at STI right now. although naiintindihan ko mga lectures, some things are just hard talaga. im making a program on pageant ngayon scoring system but i cant get it right talaga. all ur help guys would be greatly appreciated. btw, im just starting with VB this sem.

here is what im trying to work on right now: View attachment 63831

ranking is not working too well tlga. there are some bug on it and sometimes and ranking ay d tama. i think my logic is right on the ranking pero i dunno whats wrong. and last one, when i erase the score d nag miminus sa total score i tried if else but it doesnt work on text boxes. u can email me for any help: sh1pwr3ck1020@yc

thank you for making this site. big relief!

 

[johnbonsai]

may mga flash na animation ba dyan tungkol sa basic math, pa help naman mga boss for educational purpose.

 

[slntgamer]

mga sir patulong naman po about po sa datagrid. .,
paano po makukuha yung laman ng datagrid na selected po,
kunwari may 6 records po tas pinili po o sinelect yung third record tas pagclick po ng select na button, lalabas po sa ibang form yung laman ng record na yun sa mga textbox po, . .
patulong naman po, kailangan ko po ito para sa system namin. . ,

 

[advocate013]

Mga sir help. Gumagawa kasi ako ng age calculator. So far okay naman sya. Pero mali yung age na nilalabas nya.
Kasi for example. bday ni user is September 23,1991. So it means di pa sya nagbbday this year.
Pero ang nilalabas nya is 21 na. Pano yung compute na exact. Thankyou sa lahat!

Option Explicit
Dim Bday, Datenow As String

Private Sub Command1_Click()
Bday = ComboMonth.Text & "/" & ComboDay.Text & "/" & Year.Text
Label6.Caption = DateDiff("yyyy", Bday, Datenow)
End Sub

Private Sub Form_Load()
Datenow = Format(Now, "mm/dd/yyyy")
Text2.Text = Datenow
End Sub

And meron ba kayo SMSLibX 2.6 na ndi Demo? kasi sa net puro Demo e. Salamat!

 

[manie]

help

cnu po may alam kung ano ang mgcode ng time sa system na hndi gagamitin yong time ng computer? share nmn po. need ko lang tlaga

 

[manie]

vb6.0 po pla gamit ko.

 

[drkgme]

any idea kung paano gawin dito sa error na to..

naka primary po ung mga tables tapos nakarelation po..

 

[rozar02]

mga sir na malulupit at bangis sa VB 6

my tanong lang po ako...

meron akong datagrid n nkdisplay ung record galing sa adodc1
tapos s textbox nkdisplay yung date ngayon

gusto ko sana i copy yung content or mga lahat ng data ng table 1 n nsa datagrid papunta sa table2 pro ksma yung date n nsa textbox

ang mangyayari parang nag bbackup sya ng record by date...

gusto ko kasi gumawa ng print button na makikita yung mga records dati..

so ang mangyayari eh sa next form ay gagawa ako ng combo box at dun nkdisplay yung mga date ng records...

tapos pag nakapili na eh magdidisplay yung mga record sa datagrid or listview.... pero kung anung record lang yung nsa date na yun...

possible ba mga sir?

 

[jskhulitz]

any idea kung paano gawin dito sa error na to..

naka primary po ung mga tables tapos nakarelation po..

ayan, nasagot mo na yung question mo...
anyway, anong klase ba ng relationship ang meron yung tables mo? one-to-many or one-to-one?

 

[drkgme]

ayan, nasagot mo na yung question mo...
anyway, anong klase ba ng relationship ang meron yung tables mo? one-to-many or one-to-one?

one to many,, anong way para madelete ung record?

 

[jihadbaguinda]

TS at mga sb help nman oh, ccraan ako ng ulo sa basic programming nmin kasali kasi sa prospectus nmin eh, accountancy knuha ko pero kasali prin to hlig rn ako about hardware and software sa mga PC pero sa programming mukang hrapan na tlaga ako.

IF statements, do wile and until , next loop po rin sir. sana meron kayo mga tutorial dyan. exam nmin nxt week eh

 

[jskhulitz]

one to many,, anong way para madelete ung record?

delete the dependent records first, then the parent record

 

[kikiamer]

Hi, my idea b kayo kung how to connect vb6 sa mysql database na nasa webhosting un database? lan based po ung vb6 program kung saan mgiinput ng data tpos my website pra maview yung data, so un database nun nasa webhosting. tnx!