Exclusively for Visual Basic 6.0 Programmers Only!

[xtianx]

sir need help sa vb6 need ko program para sa makita ung zodiac sign at age mo pag enter mo ng date of birth mo sino meron?

 

[VerszatileTom]

mga bossing, meron po ba kayo VB6 program na may search function working with SQL database wamp server?
pa post naman po kung meron. hirap makita sa google. salamat

 

[reiner28]

^dude mysql query pag wamp server kasi mysql ang database dun hindi sql

now search query:

select * from <table> where <field> like <match word>

yung * means all pwede mo din yang palitan ng field if gusto mo dun lang sya mag focus

 

[reack]

sir need help sa vb6 need ko program para sa makita ung zodiac sign at age mo pag enter mo ng date of birth mo sino meron?

Example may DTpicker na may Name na dtpBday

Dim Bday As String
Dim YourZodiac As String
Bday = Format(dtpBday.Value, "mm/dd" 'Sabihin omit the year

Public Function GetZodiac
Select Case Bday
Case "03/21"  To "04/19"
Zodiac="Aries"
Case "04/20" TO "05/20"
Zodiac="Taurus"
Case "05/21" TO "06/20"
Zodiac="Gemini"
Case "06/21" TO "06/22"
Zodiac="Gemini"
Case "07/23" TO "08/22"
Zodiac="Leo"
Case "08/23" TO"09/22"
Zodiac="Virgo"
Case "09/23" TO "10/21"
Zodiac="Libra"
Case "11/22" TO "12/21" Then
Zodiac="Sagitarius"
Case "12/22" TO "01/19" Then
Zodiac="Capricorn"
Case "01/20" TO "02/18"
Zodiac="Aquarius"
Case "02/19" TO "03/20"
Zodiac="Pisces"
End Select
ENd FUnction

Public Function GetAge(Bday As Date) As String
    Dim MyMonth As Integer
    Dim MyDay As Integer
    Dim Age As Integer
    MyMonth = Month(Bday)
    MyDay = Day(Bday)
        
    Age = DateDiff("yyyy", Bday, Now)
    
    If Age > 1 Then
        If MyMonth > Month(Now) Then
            Age = Age - 1
        ElseIf MyMonth = Month(Date) Then
            If MyDay <= Day(Now) Then
               Age = Age
            Else
               Age = Age - 1
            End If
        End If
    End If
    
    GetAge = Age
End Function

Msgbox "Your zodiac is " & Zodiac
GetAge(dtpBday.Value)
Msgbox Age

/

 

[whitehawk10]

penge naman po dyan ng grading system for elementary oh, di ko matapos system ko e, kulang sa syntax,

 

[bjanne2011]

Private Sub cboUsername_Click()
Connection
sql = "SELECT User_Position,UserName FROM tblUseraccount WHERE (UserName = ' " & cboUsername.Text & " ' )"
Set rs = New ADODB.Recordset
rs.Open sql, conn, adOpenDynamic, adLockOptimistic
With rs
If cboUsername.Text = !UserName Then
txtPosition.Text = !User_Position
End If
End With
rs.Close: Set rs = Nothing
txtPassword.SetFocus
End Sub

____ Pa help naman po I get runtime error 3021, gusto ko lang sana i acces ang record then display

 

[pkshy]

Hello mga bosing..... may tanong lang po ... paano ba ma e connect young Visual basic program through internet database? possible po ba yon? mas maganda kasi pag nasa internet yong database mo...

 

[ericgmejia]

Hello mga bosing..... may tanong lang po ... paano ba ma e connect young Visual basic program through internet database? possible po ba yon? mas maganda kasi pag nasa internet yong database mo...

gagamit ka ng middle tier
pag vb6 usually winsock or http ang channel
then meron app sa server na sasalo sa request mo via internet
at ipapasa sa database, hihintayin ang result ng database at ipapasa pabalik sa yo

NEVER mo gagawin na mag connect directly sa database over the internet
only id10ts do that.

 

[shonenjem]

Hello mga bosing..... may tanong lang po ... paano ba ma e connect young Visual basic program through internet database? possible po ba yon? mas maganda kasi pag nasa internet yong database mo...

naka try na ako nian TS, ganito ginawa ko:


.asp yun gamit ko pang connect sa dbase sa Server, ms access or MS SQL pede.....


yung .asp form kukuha ng value sa database tapos kukunin ni vb6 yung value ng string mo na kinuha ni .asp form sa server... ganun lng ka simple .. hanapin mo yung code sa Planetsourcecode...

 

[xtianx]

Example may DTpicker na may Name na dtpBday

Dim Bday As String
Dim YourZodiac As String
Bday = Format(dtpBday.Value, "mm/dd" 'Sabihin omit the year

Public Function GetZodiac
Select Case Bday
Case "03/21"  To "04/19"
Zodiac="Aries"
Case "04/20" TO "05/20"
Zodiac="Taurus"
Case "05/21" TO "06/20"
Zodiac="Gemini"
Case "06/21" TO "06/22"
Zodiac="Gemini"
Case "07/23" TO "08/22"
Zodiac="Leo"
Case "08/23" TO"09/22"
Zodiac="Virgo"
Case "09/23" TO "10/21"
Zodiac="Libra"
Case "11/22" TO "12/21" Then
Zodiac="Sagitarius"
Case "12/22" TO "01/19" Then
Zodiac="Capricorn"
Case "01/20" TO "02/18"
Zodiac="Aquarius"
Case "02/19" TO "03/20"
Zodiac="Pisces"
End Select
ENd FUnction

Public Function GetAge(Bday As Date) As String
    Dim MyMonth As Integer
    Dim MyDay As Integer
    Dim Age As Integer
    MyMonth = Month(Bday)
    MyDay = Day(Bday)
        
    Age = DateDiff("yyyy", Bday, Now)
    
    If Age > 1 Then
        If MyMonth > Month(Now) Then
            Age = Age - 1
        ElseIf MyMonth = Month(Date) Then
            If MyDay <= Day(Now) Then
               Age = Age
            Else
               Age = Age - 1
            End If
        End If
    End If
    
    GetAge = Age
End Function

Msgbox "Your zodiac is " & Zodiac
GetAge(dtpBday.Value)
Msgbox Age

/

salamat sir your the best

 

[lead.sei_24]

dead link na po TS! pa rin sa share

 

[lorrainelovely]

patambay po aq..!!

 

[reiner28]

Private Sub cboUsername_Click()
Connection
sql = "SELECT User_Position,UserName FROM tblUseraccount WHERE (UserName = ' " & cboUsername.Text & " ' )"
Set rs = New ADODB.Recordset
rs.Open sql, conn, adOpenDynamic, adLockOptimistic
With rs
If cboUsername.Text = !UserName Then
txtPosition.Text = !User_Position
End If
End With
rs.Close: Set rs = Nothing
txtPassword.SetFocus
End Sub

____ Pa help naman po I get runtime error 3021, gusto ko lang sana i acces ang record then display

gawin mong ganito yung sql mo...

alisin mo yung () sa loob ng WHERE

 

[niCa_28]

pm me. naka upload sa mediafire ko. madali kasi magdelete mediafire eh or tignan mo sa thread ko kung buhay pa ung mga links

delete na po ms. ee.. need ko din po ng vb with msdn .. please.. thankyou

 

[lakertstep]

merin po ba kau jan na code

evry tym na mag log in po ang isang user ma save po ung date and time nya sa database... access po ang data base

or kahit simple lng po na ma lagay sya sa label

 

[reiner28]

^ dude kung marunong ka ng add at save sa database.. magagawa mo yang gusto mong mangyari...

ibato mo lang sa variable yung current date at current time like this:

dim d as date
dim t as time

d=date
t=time

rs.field("date").value = d
rs.field("time").value = t

save code

idea lang yan dude... if gets mo yung code...

 

[stripes20]

naman po about sa daily time record ng employee . atsaka salary computation sa payroll system thanks in advance

 

[knowmeifyou]

naman po about sa daily time record ng employee . atsaka salary computation sa payroll system thanks in advance

simulan mona gawin tol at tutulungan ka namin. alam mona ba ung flow ng system mo? mga need mong info at anong datbase gagamitin? siguro vb6 naman ang gagamitin mo kasi nandito ka eh

 

[pnxstan23]

Sir's Patulong naman po ulit kailangan na kailangan ko lang po

Paano ko po ba icconect ung dalawang pc gamit mysql database 5.1? + vb6
ni ne network kopo kasi , problema ko pa po nag lilimit ung connection.
Anu po ba dapat ko gawin?
diba po ung database lang yung nasa isang p.c? tapos ung isa wala? tapos po anu po gagawin ko?

THANK YOU PO Talaga Pag nasagot to

 

[prncss]

patulong po.please.naggagawa po kasi ako ng computerized examination system medyo nahihirapan ako dun sa pagkuha ng result.dapat ung result lalabas sa datagrid kasama ung student info.