Exclusively for Visual Basic 6.0 Programmers Only!

[knowmeifyou]

pano poh un.. dih qo poh ma gets...

poede sample..?

lagay ka ng column na ilalagay doon kung ilang drop na siya eh di na count mo agad heheh

mga sir may code for sale and inventory ba kau?

Y dont u try to create one?

Help naman Faculty time in time out ung pag nag in ang proof pag late sya mababawasan ung salary nya piso per minute ung bawas

nasayo na nga po ung flow eh. alamin mo kung paano mag connect sa database, tapos mga query

 

[Sudimar]

ahmm.. oo kung e ka count lang ung dami ng drope.. kuha ko na un peo ang problema.. individual poh...

ayy ang hirap epaliwanag tsaka na poh un..

salamat sa sumobok tumulong..

mayruon poh ba kaung code.. para mapali8 ang data report..???
kahit poh half lang...

 

[naglasnats]

Help naman po. Paano ba isync yung progress bar sa pagkacopy ng files/folders? Thanks ng marami.

 

[knowmeifyou]

ahmm.. oo kung e ka count lang ung dami ng drope.. kuha ko na un peo ang problema.. individual poh...

ayy ang hirap epaliwanag tsaka na poh un..

salamat sa sumobok tumulong..

mayruon poh ba kaung code.. para mapali8 ang data report..???
kahit poh half lang...

mapaliit ang data report? na try mo na iset ung size niya?

 

[singkitvector]

punta lng kau sa signiture ko sana makahelp

 

[nivranad]

paHelp po sana ako sa project namin..nagpapagawa kc teacher nmin ng program using visualbasic na nagsosolve ng roots using gauss-seidel po..
..nahihilo lng po ako pano magloop pag sa formula na po..tnx in advnce

 

[elle_bryan29]

guys possible po ba sa datareport ung every row may count po sya. parang ganito po example.

first group
============
1 testing name
2 testing name
3 testing name
============
2nd group
============
1 second group name
2 second group name
3 second group name
============

thanks po in advance.

 

[jazzlirio]

pa tamabay

 

[NEODEL]

mga sirs, gandang araw po, need ko po visual basic 6.0, sinong pong meron or link para mag karoon po ako need ko lang po sa study, salamat po

 

[Sudimar]

mapaliit ang data report? na try mo na iset ung size niya?

ahh dun poh va sa properties... ung hight at width?? subukan ko po maraming salamat.. nag ka idea na ako....

maraming salamat uli sa pag tulong...


peo anu poh va ang nakalagay na measurement sa size nia.. by inch,ba by cm or by pixel

 

[hewlettPackard]

mga sir... pwede pa help paano gumawa ng logic bomb...for educational purposes lang poh

 

[RozerO]

mGndandang gabi mga genius

 

[uchihame]

any idea poh about computerized examination?..mejo nahihirapan akung mag analyze sa dbase niya..hehhe

 

[antropos123]

pa help po ako pra gumawa ng tes paper checking system

 

[elle_bryan29]

guys possible po ba sa datareport ung every row may count po sya. parang ganito po example.

first group
============
1 testing name
2 testing name
3 testing name
============
2nd group
============
1 second group name
2 second group name
3 second group name
============

thanks po in advance.

up ko lang po ulit ung tanong ko thanks

 

[jeramix]

tol . .may.project ako!!! pedi pa.help . .magbabayad naman po ako sa inyo . .pm lang po

 

[iknowhtml]

sir help
request lang po sino po may file maintenance dito?
pagawa naman po.
please.


salamat po.

 

[lovelyabella]

koya bat ganun help nga po..

Private Function Load() As Boolean


'On Error GoTo ERROR_LINE
Dim bReturn As Boolean
Dim strSQL As String
strSQL = "select tblEmployee.Position from tblemployee Group by Position " ' order by position"
Dim myConn As New ADODB.Connection
myConn.Open strConn
Dim Rs As New ADODB.Recordset


If myConn.State = adStateOpen Then

Rs.Open strSQL, myConn, adOpenForwardOnly

If Not Rs.EOF Then
'Do
cmdPosition.AddItem Rs.Fields("Position")
'Rs.MoveNext
' Loop Until Rs.EOF
Rs.Close
cmdPosition.AddItem "Other Position.."
Else
cmdPosition.AddItem "Other Position.."
End If

Else
Err.Raise vbObjectError + 513, ERR_CAN_NOT_OPEN_CONNECTION
End If
bReturn = True
EXIT_FUNCTION:
Load = bReturn
Set Rs = Nothing
myConn.Close
Set myConn = Nothing
Exit Function
ERROR_LINE:
MsgBox Err.Description
bReturn = False
Resume EXIT_FUNCTION
End Function

 

[chocobo162002]

Hi mga Sir and Ma'am, ask po sana ako ng help sa inyo regarding sa vb6 connected to msaccess database. Nagawa po kasi ako ng inventory system for progamming. Kaya lang, may di po ako magawa para sa Order Entry form ko. Meron po akong 5 datacontrol combo box. Meron akong database item table wherein my data na para Item_Code="000001", Item_Name="sabon", Supplier_Code="S-00001", Supplier_Name="Procter", at Item_Type="Detergent". Gusto ko po sana sa Order Form ko, pag sinelect dun yung Item_Number na "000001" eh iddisplay dun sa ibang datacontrol combobox yung value na Item_Code="000001", Item_Name="sabon", Supplier_Code="S-00001", Supplier_Name="Procter", at Item_Type="Detergent". Nilagay ko po dito yung sample form na gagawin ko pati sample database.

ito po yung current na code na meron ako. Di ko po sure kung effective yung query na meron ako na nakalagay sa form load.

Option Explicit
Dim ItemName As String
Dim ItemCode As String
Dim ItemType As String
Dim SupplierCode As String
Dim SupplierName As String
Dim ItemPrice As String
Dim TotalPrice As String
Private dc_rs As ADODB.Recordset

Private Sub dc_ItemCode_Click(Area As Integer)
Set dc_rs = New ADODB.Recordset
With dc_rs
'.ActiveConnection = cnMHS
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockPessimistic
.Source = "SELECT Item_Name FROM Ordered_Item WHERE Item_Code = " & "'" & dc_ItemCode.Text & "'"
' .Open
dc_ItemName = dc_rs("Item_Name")
End With
End Sub

Private Sub dc_ItemName_Click(Area As Integer)

End Sub

Private Sub Form_Load()
On Error Resume Next
ado_OrderedItems.Recordset.MoveLast
cmd_OrderEntry.Enabled = True
cmd_SaveEntry.Enabled = False

ItemName = "SELECT Item_Name FROM Add_Item WHERE Item_code = '" & dc_ItemCode.Text & "'"
ItemType = "SELECT Item_Type FROM Add_Item WHERE Item_code = '" & dc_ItemCode.Text & "'"
SupplierCode = "SELECT Supplier_Code FROM Add_Item WHERE Item_code = '" & dc_ItemCode.Text & "'"
SupplierName = "SELECT Supplier_Name FROM Add_Item WHERE Item_code = '" & dc_ItemCode.Text & "'"
ItemPrice = "SELECT Supplier_Price FROM Add_Item WHERE Item_code = '" & dc_ItemCode.Text & "'"

End Sub

Private Sub cmd_OrderEntry_Click()

ado_OrderedItems.Recordset.AddNew
Call clear
cmd_OrderEntry.Enabled = False
cmd_SaveEntry.Enabled = True
End Sub

Private Sub cmd_SaveEntry_Click()
ado_OrderedItems.Recordset!Date_Ordered = Format(Date, "mm/dd/yyyy")
ado_OrderedItems.Recordset!Time_Ordered = Format(Time, "hh:nn:ss")
ado_OrderedItems.Recordset.Update
Call clear
cmd_OrderEntry.Enabled = False
cmd_SaveEntry.Enabled = False


End Sub


Public Sub clear()
With Me
.dc_ItemName = ""
.dc_ItemCode = ""
.dc_SupplierCode = ""
.dc_SupplierName = ""
.dc_ItemType = ""
.txt_OrderQty = ""

End With
End Sub

 

[RozerO]

maganda gabi!!!mga masters!!!!