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!

sieg06 said:
paano kung 3 hanggang 4 ang table na i-join ko
Click to expand...

Heto sir ang SQL na nagawa ko po, galing to sa Form na ginawa ko...
SELECT tblJO.Proj_ID, tblJO.proj_date, tblJO.Customer_ID, tblCustomers.Customer_Name, tblJO.jo_no, tblJO.proj_no, tblJO.Part_Name, tblJO.dwg_no, tblJO.Req_Qty, tblJO.del_date, tblJO.Proc_ID, tblProc.Proc_Code, tblJO.Mach_ID, tblMach.Mach_Code, tblJO.time_in, tblJO.time_out, tblJO.Mach_Hr, tblJO.Qty_In, tblJO.Qty_Out, tblOperator.Optr_Name, tblJO.Stat
FROM tblMach INNER JOIN (((tblCustomers INNER JOIN tblJO ON tblCustomers.Customer_ID = tblJO.Customer_ID) INNER JOIN tblOperator ON tblJO.Optr_ID = tblOperator.Optr_ID) INNER JOIN tblProc ON tblJO.Proc_ID = tblProc.Proc_ID) ON tblMach.Mach_ID = tblJO.Mach_ID
ORDER BY tblJO.proj_date DESC;
Click to expand...
 
Re: Exclusive for Visual Basic 6.0 Programmers Only!

PINOY_RADICAL said:
1000 VISUAL BASIC6 source codes of programs.
58.74 MB

Code: 
http://w17.easy-share.com/1701368137.html

http://depositfiles.com/pt/files/7530273
Click to expand...


_---download link deleted.. elp plzzzzz
:slap:
 
sieg06 said:
nakita ko na iyong problema.
Click to expand...

SALAMAT KUNG GANON.
Baka gusto mong subukan to, para di kna mahirapan.
Import mo tong Form na to... (see attached)

Tapos sa Database mo, open qryJO in SQL Mode
then paste this SQL Statements:
SELECT tblJO.Proj_ID, tblJO.proj_date, tblJO.Customer_ID, tblCustomers.Customer_Name, tblJO.jo_no, tblJO.proj_no, tblJO.Part_Name, tblJO.dwg_no, tblJO.Req_Qty, tblJO.del_date, tblJO.Proc_ID, tblProc.Proc_Code, tblJO.Mach_ID, tblMach.Mach_Code, tblJO.time_in, tblJO.time_out, tblJO.Mach_Hr, tblJO.Qty_In, tblJO.Qty_Out, tblOperator.Optr_Name, tblJO.Stat
FROM tblMach INNER JOIN (((tblCustomers INNER JOIN tblJO ON tblCustomers.Customer_ID = tblJO.Customer_ID) INNER JOIN tblOperator ON tblJO.Optr_ID = tblOperator.Optr_ID) INNER JOIN tblProc ON tblJO.Proc_ID = tblProc.Proc_ID) ON tblMach.Mach_ID = tblJO.Mach_ID
ORDER BY tblJO.proj_date DESC;
Click to expand...

MARAMING SALAMAT.
 

Attachments

  • frmSalesViewer.zip
    2.8 KB · Views: 5
knives645 said:
SALAMAT KUNG GANON.
Baka gusto mong subukan to, para di kna mahirapan.
Import mo tong Form na to... (see attached)

Tapos sa Database mo, open qryJO in SQL Mode
then paste this SQL Statements:


MARAMING SALAMAT.
Click to expand...

ung mismong jobticket_be.mdb ang bubuksan ko or sa code?
 
sieg06 said:
ung mismong jobticket_be.mdb ang bubuksan ko or sa code?
Click to expand...

ito po concept na ginawa ko dati sa program na pinadala ko sayo


CONCEPT_zps6d4fd111.jpg



pag nagfilter ako lahat kung ano ang filter ko ung ang lalabas sa lstview na nasa baba. pag-aralan ko lang po itong pinadala mo na form.

try ko kung maiapply ko ung logic na ginawa ko sa dati.


SALAMAT!!!
 
Last edited:
pwede po ba magfilter ng datacombo gamit ang isa pang data combo???
 
gumawa ako ng search form ito ang code:

Private Sub btn_Find_Click()
Dim sSQL As String
Dim sWhere As String
Dim rs As New ADODB.Recordset
Dim sConn As String

sConn.ConnectionString = gstrConnectionString = invalid qualifier daw po ito

sSQL = "SELECT * FROM qryjo"

If Trim(cboOptr) <> "" Then
sWhere = sWhere & " optr_id = '" & frm_Find.cboOptr & "' AND"
End If


If Len(sWhere) > 0 Then
sWhere = Left(sWhere, Len(sWhere) - 4)
sSQL = sSQL & " WHERE " & sWhere
Else
MsgBox "Nothing to filter!", vbExclamation, "Search"
Exit Sub
End If

sSQL = Left(sSQL, Len(sSQL) - 5)
rs.Open sSQL, sConn

frmProjectTicket.cboCustomers.Text = rs.Fields!Customer_name
frmProjectTicket.dtpProj_Date = rs.Fields!proj_date
frmProjectTicket.txtJobOrderNo = rs.Fields!jo_no
frmProjectTicket.txtProjNo = rs.Fields!proj_no
frmProjectTicket.txtPart = rs.Fields!Part_Name
frmProjectTicket.txtDrawingNo = rs.Fields!dwg_No
frmProjectTicket.txtReqQty = rs.Fields!req_qty
frmProjectTicket.dtpDeliveryDate = rs.Fields!del_Date
frmProjectTicket.cboProcess = rs.Fields!proc_code
frmProjectTicket.cboMachines = rs.Fields!mach_code
frmProjectTicket.dtpTimeIn = rs.Fields!time_in
frmProjectTicket.dtpTimeOut = rs.Fields!time_out
frmProjectTicket.txtTotalHours = rs.Fields!Mach_Hr
frmProjectTicket.txtQty_In = rs.Fields!qty_in
frmProjectTicket.txtQty_Out = rs.Fields!qty_out
frmProjectTicket.cboOptr = rs.Fields!optr_name
frmProjectTicket.cboStatus = rs.Fields!Stat
Exit Sub

Err:
MsgBox Err.Description, vbCritical
End Sub
 
sieg06 said:
gumawa ako ng search form ito ang code:

Private Sub btn_Find_Click()
Dim sSQL As String
Dim sWhere As String
Dim rs As New ADODB.Recordset
Dim sConn As String

sConn.ConnectionString = gstrConnectionString = invalid qualifier daw po ito

sSQL = "SELECT * FROM qryjo"

If Trim(cboOptr) <> "" Then
sWhere = sWhere & " optr_id = '" & frm_Find.cboOptr & "' AND"
End If


If Len(sWhere) > 0 Then
sWhere = Left(sWhere, Len(sWhere) - 4)
sSQL = sSQL & " WHERE " & sWhere
Else
MsgBox "Nothing to filter!", vbExclamation, "Search"
Exit Sub
End If

sSQL = Left(sSQL, Len(sSQL) - 5)
rs.Open sSQL, sConn

frmProjectTicket.cboCustomers.Text = rs.Fields!Customer_name
frmProjectTicket.dtpProj_Date = rs.Fields!proj_date
frmProjectTicket.txtJobOrderNo = rs.Fields!jo_no
frmProjectTicket.txtProjNo = rs.Fields!proj_no
frmProjectTicket.txtPart = rs.Fields!Part_Name
frmProjectTicket.txtDrawingNo = rs.Fields!dwg_No
frmProjectTicket.txtReqQty = rs.Fields!req_qty
frmProjectTicket.dtpDeliveryDate = rs.Fields!del_Date
frmProjectTicket.cboProcess = rs.Fields!proc_code
frmProjectTicket.cboMachines = rs.Fields!mach_code
frmProjectTicket.dtpTimeIn = rs.Fields!time_in
frmProjectTicket.dtpTimeOut = rs.Fields!time_out
frmProjectTicket.txtTotalHours = rs.Fields!Mach_Hr
frmProjectTicket.txtQty_In = rs.Fields!qty_in
frmProjectTicket.txtQty_Out = rs.Fields!qty_out
frmProjectTicket.cboOptr = rs.Fields!optr_name
frmProjectTicket.cboStatus = rs.Fields!Stat
Exit Sub

Err:
MsgBox Err.Description, vbCritical
End Sub
Click to expand...

sConn is a string on your declaration sir....
Wherein you were trying to treat it as an ADODB.Connection?
Dim sConn As String

sConn.ConnectionString = gstrConnectionString = invalid qualifier daw po ito

sSQL = "SELECT * FROM qryjo"
Click to expand...


Dim sConn As New ADODB.Connection

sConn.ConnectionString = gstrConnectionString

sConn.Open

sSQL = "SELECT * FROM qryjo"
Click to expand...
 
mga boss pano po ba gumawa ng visual basic codes na connected sa database(ms access), gusto ko po malaman,may project po kasi kami about hostel information system,baka po may makakatulong,thanks po in advance
 
jimuel22 said:
mga boss pano po ba gumawa ng visual basic codes na connected sa database(ms access), gusto ko po malaman,may project po kasi kami about hostel information system,baka po may makakatulong,thanks po in advance
Click to expand...

search ka marami jian or check mo signature ko
 
pano po ilagay yng caption mula sa isang label sa form tpos. ilalagay sa datareport?
 
sir gud pm help naman po

combo box value concatenation po sa sql eto po code ko...

Code: 
Private Sub txtSearch_Change()
If comboSearch.Text = "ID" Then
cmbSearch = "code"
ElseIf comboSearch.Text = "Lastname" Then
cmbSearch = "lastname"
ElseIf comboSearch.Text = "Firstname" Then
cmbSearch = "firstname"
End If

frmSrchBrrwer.Adodc1.RecordSource = "select * from client where '" &cmbSearch& "'  like '" & txtSearch & "%'"
frmSrchBrrwer.Adodc1.Refresh
End Sub
 
pa helpnamn sa code ng triangle ^_^ ung ganito plss
.......... .
......... ..
........ ...
....... ....
...... .....
..... ......
.... .......
... ........
.. .........
. ..........
 
Last edited:
Pano pagana hin to.
Hindi gumagana yung i leless nea sa Product Quantity.
Yung naka color red po yung code na dko mapagana.


Thanks in advance.
Code: 
Private Sub Command1_Click()

If qty.Text = "" Then
MsgBox "Please enter the Quantity atleast 0"
Exit Sub
End If

If Text1.Text = "" Then
MsgBox "Fill up all forms"
ElseIf item1.Text = "" Then
MsgBox "Fill up all forms"
ElseIf product.Text = "" Then
MsgBox "Fill up all forms"
ElseIf qty.Text = "" Then
MsgBox "Fill up all forms"

Else

With tbl3
tbl3.AddNew
tbl3.Fields(0) = Text1
tbl3.Fields(1) = item1
tbl3.Fields(2) = product
tbl3.Fields(3) = qty
tbl3.Fields(4) = Text2
tbl3.Update
End With
End If

[COLOR="Red"]
With tbl2
If tbl2.EOF <> True And tbl2.BOF <> True Then
tbl2!PQty = tbl2.Fields(3) - qty.Text
tbl2.Update
End If
End With[/COLOR]

End Sub

Private Sub Command2_Click()
db.Close
frmaddP.Show

End Sub

Private Sub Command4_Click()
Unload Me
End Sub

Private Sub DataGrid1_Click()
Me.Refresh
End Sub

Private Sub Form_Load()
On Error Resume Next
Call con
Call quant
Set DataGrid1.DataSource = tbl2
If tbl2.RecordCount > 0 Then
Do While Not tbl2.EOF
With item1
.AddItem tbl2.Fields("ProductID")
End With
With product
.AddItem tbl2.Fields("ProductName")
End With
tbl2.MoveNext
Loop
End If
End Sub

Private Sub item1_Change()

If tbl2 > 0 Then
With tbl2
.AddItem tbl2.Fields("ProductID")
.AddItem tbl2.Fields("ProductName")
End With
End If
End Sub

Sub quant()
Dim i
For i = 1 To 1000
 qty.AddItem i
Next
End Sub
 
intheb0x said:
sir gud pm help naman po

combo box value concatenation po sa sql eto po code ko...

Code: 
Private Sub txtSearch_Change()
If comboSearch.Text = "ID" Then
cmbSearch = "code"
ElseIf comboSearch.Text = "Lastname" Then
cmbSearch = "lastname"
ElseIf comboSearch.Text = "Firstname" Then
cmbSearch = "firstname"
End If

frmSrchBrrwer.Adodc1.RecordSource = "select * from client where '" &cmbSearch& "'  like '" & txtSearch & "%'"
frmSrchBrrwer.Adodc1.Refresh
End Sub
Click to expand...


Try this

Code: 
frmSrchBrrwer.Adodc1.RecordSource = "select * from client where " & cmbSearch & "  like '" & txtSearch & "%'"

tinanggal ko yung single quote sa may WHERE, hindi lang halata hehe

zee62 said:
Pano pagana hin to.
Hindi gumagana yung i leless nea sa Product Quantity.
Yung naka color red po yung code na dko mapagana.


Thanks in advance.
Code: 
Private Sub Command1_Click()

If qty.Text = "" Then
MsgBox "Please enter the Quantity atleast 0"
Exit Sub
End If

If Text1.Text = "" Then
MsgBox "Fill up all forms"
ElseIf item1.Text = "" Then
MsgBox "Fill up all forms"
ElseIf product.Text = "" Then
MsgBox "Fill up all forms"
ElseIf qty.Text = "" Then
MsgBox "Fill up all forms"

Else

With tbl3
tbl3.AddNew
tbl3.Fields(0) = Text1
tbl3.Fields(1) = item1
tbl3.Fields(2) = product
tbl3.Fields(3) = qty
tbl3.Fields(4) = Text2
tbl3.Update
End With
End If

[COLOR="Red"]
With tbl2
If tbl2.EOF <> True And tbl2.BOF <> True Then
tbl2!PQty = tbl2.Fields(3) - qty.Text
tbl2.Update
End If
End With[/COLOR]

End Sub

Private Sub Command2_Click()
db.Close
frmaddP.Show

End Sub

Private Sub Command4_Click()
Unload Me
End Sub

Private Sub DataGrid1_Click()
Me.Refresh
End Sub

Private Sub Form_Load()
On Error Resume Next
Call con
Call quant
Set DataGrid1.DataSource = tbl2
If tbl2.RecordCount > 0 Then
Do While Not tbl2.EOF
With item1
.AddItem tbl2.Fields("ProductID")
End With
With product
.AddItem tbl2.Fields("ProductName")
End With
tbl2.MoveNext
Loop
End If
End Sub

Private Sub item1_Change()

If tbl2 > 0 Then
With tbl2
.AddItem tbl2.Fields("ProductID")
.AddItem tbl2.Fields("ProductName")
End With
End If
End Sub

Sub quant()
Dim i
For i = 1 To 1000
 qty.AddItem i
Next
End Sub
Click to expand...

try this one

Code: 
If tbl2.EOF <> True And tbl2.BOF <> True Then
tbl2!PQty = [B]val([/B]tbl2.Fields(3)[B])[/B] - [B]val([/B]qty.Text[B])[/B]
tbl2.Update
End If

ginawa kong val() para iconvert into double value ung string. :)
 
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
300
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
276
TambayBlues
TambayBlues
raven2709
Android (Kotlin & Java) Programming Corner!
Replies
1
Views
469
manlors
manlors
Aimershin
[Udemy Course] PHP Registration Form, Email Verification & Responsive Email | Direct Download | Requested
Replies
7
Views
616
poiqwe
P
sonraffae888
BASIC DELIVERANCE MANUAL
Replies
0
Views
132
sonraffae888
sonraffae888
Back
Top Bottom