What's new
Symbianize Forum

Most of our features and services are available only to members, so we encourage you to login or register a new account. Registration is free, fast and simple. You only need to provide a valid email. Being a member you'll gain access to all member forums and features, post a message to ask question or provide answer, and share or find resources related to mobile phones, tablets, computers, game consoles, and multimedia.

All that and more, so what are you waiting for, click the register button and join us now! Ito ang website na ginawa ng pinoy para sa pinoy!

Exclusively for Visual Basic 6.0 Programmers Only!

,eto nlang po ... paano ko ba iseseperate yung column CNT sa code ko .. naka distinct kasi siya sa code ko, dapat di po siya kasama sa DISTINCT..


NOTE: na grup by ko na yung 3 columns tapos di ko sinama si column CNT pero mali yung RESULT..

idea po pls/ I mean different ways para magawa ko ito thanks.:help::help::help::help::help::help:....


Code: 
SELECT DISTINCT a.site_id,a.date_survey,(a.hour_from + " - " + a.hour_to) AS hour, b.volume as cnt
FROM survinfo_1dir a,survraw_1dir b 
WHERE a.site_id =  "SV01001LZ_AC" AND a.header_no=b.header_no 
AND a.date_survey = "5/10/2006"

UNION ALL

SELECT DISTINCT  c.site_id,c.date_survey,(c.hour_from + " - " + c.hour_to) AS hour, (isnull(d.volume_inc_post,0 ) + isnull(d.volume_dec_post,0))  as cnt
FROM survinfo_2dir c,survraw_2dir d
WHERE c.site_id=  "SV01001LZ_AC" AND c.header_no=d.header_no 
AND c.date_survey = "5/10/2006"
 
lesterluma said:
,eto nlang po ... paano ko ba iseseperate yung column CNT sa code ko .. naka distinct kasi siya sa code ko, dapat di po siya kasama sa DISTINCT..


NOTE: na grup by ko na yung 3 columns tapos di ko sinama si column CNT pero mali yung RESULT..

idea po pls/ I mean different ways para magawa ko ito thanks.:help::help::help::help::help::help:....


Code: 
SELECT DISTINCT a.site_id,a.date_survey,(a.hour_from + " - " + a.hour_to) AS hour, b.volume as cnt
FROM survinfo_1dir a,survraw_1dir b 
WHERE a.site_id =  "SV01001LZ_AC" AND a.header_no=b.header_no 
AND a.date_survey = "5/10/2006"

UNION ALL

SELECT DISTINCT  c.site_id,c.date_survey,(c.hour_from + " - " + c.hour_to) AS hour, (isnull(d.volume_inc_post,0 ) + isnull(d.volume_dec_post,0))  as cnt
FROM survinfo_2dir c,survraw_2dir d
WHERE c.site_id=  "SV01001LZ_AC" AND c.header_no=d.header_no 
AND c.date_survey = "5/10/2006"
Click to expand...
di ko nagets yung problem mo hehe . pede ka bang magbigay ng sample records and yung desired output mo after ng query ?
 
Sana yung mga VB works po dito naka post sa 1st page.. pati SS..
 
yt758b34vh83 said:
di ko nagets yung problem mo hehe . pede ka bang magbigay ng sample records and yung desired output mo after ng query ?
Click to expand...



pansinin mo yung code ko ... diba yung sa SELECT statement naka include yung CNT ?


example.
SELECT DISTINCT site_id, cnt


gusto ko iseperate yan COLUMN" cnt" para di siya maGROUP BY ...
 
boss panu ba un code na sa tuwing mag-add ka ng bagong student mag auto-increment ung student-number sa text field?
at kapag nag delete ka ng student-number kung anu ung last na na-delete mo dun maguumpisa un numbering.

ex. student-001
student-002
student-003
 
Last edited:
mga tol, pahingi naman ako ng reference jan oh., GRADING SYSTEM kasi ung ga2win ko.,

pahingi ako ng grading system., thank you po ^.^:praise::praise:
 
karloy said:
boss panu ba un code na sa tuwing mag-add ka ng bagong student mag auto-increment ung student-number sa text field?
at kapag nag delete ka ng student-number kung anu ung last na na-delete mo dun maguumpisa un numbering.

ex. student-001
student-002
student-003
Click to expand...

ganito kasi ginawa ko dati dyan


Dim c As String
rs1.MoveLast
c = rs1.Fields("ID")
Label3.Caption = c + 1

so kada form load mo kung ano yung last value + 1 sa database mo yun ang lalabas sa Label3
 
Last edited:
SIR PATULONG NAMAN PO SA MGA MAGAGALING SA VB6...

NAGANA NAMAN PO SYA NG AYUS KASO NAG DAGDAG PO AKO NG DATABASE TPOS NALAGYAN KO N DIN NG DATASOURCE LAHAT KASO GANITO ANG
NANGYARI
attachment.php


attachment.php
 

Attachments

  • MISS.jpg
    MISS.jpg
    178.1 KB · Views: 39
  • DATA.jpg
    DATA.jpg
    193.6 KB · Views: 39
mga boss patulong naman po oh!
baka po alam nyo kung panu? mag convert ng time to integer..
gagawa po kasi ako ng payroll system na my timekeeping
kailangan ko po ma convert ung time to integer para po ma compute sya sa payroll pls help po this week na po ung mock defense ko T.Y SA MGA TUTULONG PO...:pray:

isa pa po tsaka panu? ko po gagawing military time ang time sa visual basic 6.0
 
Last edited:
stabilizer said:
SIR PATULONG NAMAN PO SA MGA MAGAGALING SA VB6...

NAGANA NAMAN PO SYA NG AYUS KASO NAG DAGDAG PO AKO NG DATABASE TPOS NALAGYAN KO N DIN NG DATASOURCE LAHAT KASO GANITO ANG
NANGYARIhttp://www.symbianize.com/attachment.php?attachmentid=787096&stc=1&d=1379079178

http://www.symbianize.com/attachment.php?attachmentid=787097&stc=1&d=1379079178
Click to expand...


baka ganito dapat yan sir

lblvote1.caption = adodc.fields("vote1") + 1
adodc.update

yung vote1 yun ang field mo sa database.

tapos para maganda :)

ilagay mo sa form load yung last value ng lblvote1.caption mo :)
 
Last edited:
frozenice13 said:
baka ganito dapat yan sir

lblvote1.caption = adodc.fields("vote1") + 1
adodc.update

yung vote1 yun ang field mo sa database.

Tapos para maganda :)

ilagay mo sa form load yung last value ng lblvote1.caption mo :)
Click to expand...

sir try ko po yan thank you po sa reply..hehe
 
Last edited:
sentihtic said:
mga boss patulong naman po oh!
baka po alam nyo kung panu? mag convert ng time to integer..
gagawa po kasi ako ng payroll system na my timekeeping
kailangan ko po ma convert ung time to integer para po ma compute sya sa payroll pls help po this week na po ung mock defense ko T.Y SA MGA TUTULONG PO...:pray:

isa pa po tsaka panu? ko po gagawing military time ang time sa visual basic 6.0
Click to expand...

alam ko may datedifference eh/ eto yung pag ipag p'plus yung date , search mo nlang..







anyways may nakakaalam ba nito ?


dim n as integer
cmd.Execute n


bakit kaya 0 yung value nya ? okay naman code ko?



. ano sa tingin nyo ?



paano magiging 1 yung value ng n ? thx
 
lesterluma said:
alam ko may datedifference eh/ eto yung pag ipag p'plus yung date , search mo nlang..







anyways may nakakaalam ba nito ?


dim n as integer
cmd.Execute n


bakit kaya 0 yung value nya ? okay naman code ko?



. ano sa tingin nyo ?



paano magiging 1 yung value ng n ? thx
Click to expand...

pwede kaya yung ganito dyan sir ?

dim n as integer
n = 1
cmd.execute n
 

Attachments

  • MARK.rar
    155.7 KB · Views: 11
stabilizer said:
frozenice13 said:
SIR ITO PO YUNG SYSTEM KO
LAGAY MUNA KAU NG CONNECTION STRING PARA GUMANA..
http://www.symbianize.com/attachment.php?attachmentid=787442&stc=1&d=1379144902
Click to expand...

napagana ko na sir :)

eto nilagay ko :)

'General Declaration ko
Option Explicit
Private cn As ADODB.Connection 'this is the connection object
Private rs As ADODB.Recordset 'this is the recordset object


sa form load

Set cn = New ADODB.Connection
'specify the connectionstring
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & "C:\Users\MARK\database.mdb"
'open the connection
cn.Open

'instantiate the recordset object
Set rs = New ADODB.Recordset
'open the recordset
With rs
.Open "data1", cn, adOpenKeyset, adLockPessimistic, adCmdTable
End With

sa vote()

Dim a As Integer
Dim b As Integer


If optitem1.Value = True Then
rs.Fields("vote1") = Val(lblvote1.Caption) + 1
ElseIf optitem2.Value = True Then
rs.Fields("vote2") = rs.Fields("vote2") + Val(lblvote2.Caption)

kung ayaw mo ng declaration
pwede mong gamitin ganito

adodc1.recordset.fields("vote1")
Click to expand...
 

Attachments

  • 1.rar
    158.8 KB · Views: 11
Last edited:
frozenice13 said:
stabilizer said:
napagana ko na sir :)

eto nilagay ko :)

'General Declaration ko
Option Explicit
Private cn As ADODB.Connection 'this is the connection object
Private rs As ADODB.Recordset 'this is the recordset object


sa form load

Set cn = New ADODB.Connection
'specify the connectionstring
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & "C:\Users\MARK\database.mdb"
'open the connection
cn.Open

'instantiate the recordset object
Set rs = New ADODB.Recordset
'open the recordset
With rs
.Open "data1", cn, adOpenKeyset, adLockPessimistic, adCmdTable
End With

sa vote()

Dim a As Integer
Dim b As Integer


If optitem1.Value = True Then
rs.Fields("vote1") = Val(lblvote1.Caption) + 1
ElseIf optitem2.Value = True Then
rs.Fields("vote2") = rs.Fields("vote2") + Val(lblvote2.Caption)

kung ayaw mo ng declaration
pwede mong gamitin ganito

adodc1.recordset.fields("vote1")
Click to expand...

SIR MARAMING SALAMAT PO PAPABURGER AKO..HEHE
Click to expand...
 
You must log in or register to reply here.

Similar threads

TambayBlues
Hands-On Visual Studio 2022: A Developer's Guide to New Features and Best Practices with .NET 8 and VS 2022 for Maximum Productivity, 2nd Edition
Replies
0
Views
330
TambayBlues
TambayBlues
TambayBlues
Visual Studio 2023 - The Most Concise and Detailed Guide to Mastering all the Features and the Use of Visual Studio
Replies
0
Views
318
TambayBlues
TambayBlues
raven2709
Android (Kotlin & Java) Programming Corner!
Replies
1
Views
493
manlors
manlors
Aimershin
[Udemy Course] PHP Registration Form, Email Verification & Responsive Email | Direct Download | Requested
Replies
7
Views
698
poiqwe
P
sonraffae888
BASIC DELIVERANCE MANUAL
Replies
0
Views
163
sonraffae888
sonraffae888
Back
Top Bottom