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!
thx sa advice Sir. ((MSchart properties..))
1. ano po ba ang gagamitin kong properties para baguhin ang icon sa gilid ng SERIES?? see picture.
View attachment 749295
sir knives. salamat ng marami... hehe..
pag aaralan ko muna yung flow ng system tapos ask nalang ako kung may mga hindi ako maintindihan..
Grabe kasi yung system na hinaHANDLE ko e, weak/newbie palang ako, bigatin na agad tong system na to.. hmm. kaya need ko talaga ng tulong mga kaSYMBIANZED..
sa MSCHART na yung FOCUS ko ngayon eh. Pinapagawa ako ng Graph about sa database nila using VB6.
---Nga po pala and DAPAT na gamit na chart eh XY(Scatter) or VtChChartType2dXY..
TRY ko po yung code sir. Knives, at wait ko po yung "help file ng MS Chart" nyo.. pag aaralan ko din) thx talaga.. di ko pa kasi gamay yung mschart..
..
Sir, salamat po sa mga help file at sa tip na din
SCENARIO:
---as of now, eto palang yung binigay nilang info. about sa kanilang database sa akin..
"SYBASE CENTRAL".. dito naviview ko yung tables and columns but not the data.. see pics..
View attachment 749888
eto naman yung kanilang system..
View attachment 749889
bale dito lang ako bumabase sa data nila...
Here's the question..
1. Posible ba na magawa kong itransfer ito sa chart kahit di ko pa nakikita yung data nila ?
accdg. to them para ma View ko daw yung data dapat meron akong POWERBUILDER na nakainstall sa pc ko.
2. kung possible, paano ko itaTransfer yung data sa MSChart ng VB6, Kahit isang halimbawa lang sir. makukuha ko na to, dami kasing graph na gagawin at isa pa di ko pa gamay itong SYBASE, tanging alam ko lang is MSAccess, SQL at MYSQL..
Private Sub lblReport_Click()
Dim RS As ADODB.Recordset
Dim begindate As Date
Dim lstdate As Date
Dim STRSQL As String
Dim strStatus As String
Dim vType As Byte
If validateSite Then
Screen.MousePointer = vbHourglass
lv.ListItems.Clear
' If cboVehicle.ListIndex = cboVehicle.ListCount - 1 Then
' 'All vehicle is selected
' strVCriteria = ""
' Else
STRSQL = "SELECT vehicle_type FROM " & VEHICLE_TYPES & _
" WHERE description ='" & RemoveQoute(cboVehicle.List(cboVehicle.ListIndex)) & "'"
Debug.Print STRSQL
Set RS = getData(STRSQL, adLockReadOnly, adOpenForwardOnly, adUseClient)
strSCriteria = "site_id='" & cboSites & "'"
strVCriteria = "AND vehicle_type=" & RS!vehicle_type
vType = RS!vehicle_type
Call CloseRecordset(RS)
' End If
Set RS = gConnect1.Execute("sp_report_vsummary '" & cboSites & "'," & vType & ",'" & CDate(format(dtp1.Value, DATEFORMAT)) & "','" & CDate(format(dtp2.Value, DATEFORMAT)) & "'")
begindate = format(dtp1.Value, DATEFORMAT)
RS.Sort = "date_survey ASC"
Do
lstdate = getdate(begindate)
RS.Filter = "date_survey >= #" & begindate & "# and date_survey <= #" & lstdate & "#"
Call Fillrecord(RS, begindate, lstdate)
begindate = DateAdd("d", 1, lstdate)
Loop Until lstdate = format(dtp2.Value, DATEFORMAT)
Call CloseRecordset(RS)
PreviewStatus lv.ListItems.Count > 0
If lv.ListItems.Count = 0 Then
MsgBox "No records found", vbOKOnly + vbInformation, "Report"
End If
Screen.MousePointer = vbDefault
mdiMain.mnuExport.Enabled = lv.ListItems.Count <> 0
End If
End Sub
Private Function validateSite() As Boolean
Dim strError As String
Dim intErrorCnt As Integer
Dim STRSQL As String
Dim RS As ADODB.Recordset
Screen.MousePointer = vbHourglass
validateSite = True
intErrorCnt = 1
If cboSites = "" Then
strError = intErrorCnt & ") Please fill-in all required information."
intErrorCnt = intErrorCnt + 1
validateSite = False
End If
STRSQL = "SELECT site_id FROM " & SITES & _
" WHERE site_id='" & RemoveQoute(cboSites.Text) & "'"
Debug.Print STRSQL
Set RS = getData(STRSQL, adLockReadOnly, adOpenStatic, adUseClient)
If RS.EOF Then
If Trim(strError) = "" Then
strError = intErrorCnt & ") Survey Site ID not found."
Else
strError = strError & vbCrLf & intErrorCnt & ") Survey Site ID not found."
End If
intErrorCnt = intErrorCnt + 1
validateSite = False
Call CloseRecordset(RS)
End If
If dtp1.Value > dtp2.Value Then
If Trim(strError) = "" Then
strError = intErrorCnt & ") Invalid date range."
Else
strError = strError & vbCrLf & intErrorCnt & ") Invalid date range."
End If
intErrorCnt = intErrorCnt + 1
validateSite = False
End If
Screen.MousePointer = vbDefault
If Not validateSite Then
MsgBox strError, vbExclamation, "Validate"
End If
End Function
)
Private Sub lblReport_Click()
Dim RS As ADODB.Recordset
Dim begindate As Date
Dim lstdate As Date
Dim STRSQL As String
Dim strStatus As String
Dim vType As Byte
If validateSite Then
Screen.MousePointer = vbHourglass
lv.ListItems.Clear
' If cboVehicle.ListIndex = cboVehicle.ListCount - 1 Then
' 'All vehicle is selected
' strVCriteria = ""
' Else
STRSQL = "SELECT vehicle_type FROM " & VEHICLE_TYPES & _
" WHERE description ='" & RemoveQoute(cboVehicle.List(cboVehicle.ListIndex)) & "'"
Debug.Print STRSQL
Set RS = getData(STRSQL, adLockReadOnly, adOpenForwardOnly, adUseClient)
strSCriteria = "site_id='" & cboSites & "'"
strVCriteria = "AND vehicle_type=" & RS!vehicle_type
vType = RS!vehicle_type
Call CloseRecordset(RS)
' End If
Set RS = gConnect1.Execute("sp_report_vsummary '" & cboSites & "'," & vType & ",'" & CDate(format(dtp1.Value, DATEFORMAT)) & "','" & CDate(format(dtp2.Value, DATEFORMAT)) & "'")
begindate = format(dtp1.Value, DATEFORMAT)
RS.Sort = "date_survey ASC"
Do
lstdate = getdate(begindate)
RS.Filter = "date_survey >= #" & begindate & "# and date_survey <= #" & lstdate & "#"
Call Fillrecord(RS, begindate, lstdate)
begindate = DateAdd("d", 1, lstdate)
Loop Until lstdate = format(dtp2.Value, DATEFORMAT)
Call CloseRecordset(RS)
PreviewStatus lv.ListItems.Count > 0
If lv.ListItems.Count = 0 Then
MsgBox "No records found", vbOKOnly + vbInformation, "Report"
End If
Screen.MousePointer = vbDefault
mdiMain.mnuExport.Enabled = lv.ListItems.Count <> 0
End If
End Sub
Hello guys can anyone please help me how to use this code?
How can I get the AutoNumber/Identity value for the record just added?
Hindi ko po kasi magets kung san ko ilalagay yan... Please mga ser
Generate autoNumber.
pwede nyo ba akong tulungang hanapin guys sa code na ito kung saan nanggagaling yung data nila sa database?
Code:Private Sub lblReport_Click() Dim RS As ADODB.Recordset Dim begindate As Date Dim lstdate As Date Dim STRSQL As String Dim strStatus As String Dim vType As Byte If validateSite Then Screen.MousePointer = vbHourglass lv.ListItems.Clear ' If cboVehicle.ListIndex = cboVehicle.ListCount - 1 Then ' 'All vehicle is selected ' strVCriteria = "" ' Else STRSQL = "SELECT vehicle_type FROM " & VEHICLE_TYPES & _ " WHERE description ='" & RemoveQoute(cboVehicle.List(cboVehicle.ListIndex)) & "'" Debug.Print STRSQL Set RS = getData(STRSQL, adLockReadOnly, adOpenForwardOnly, adUseClient) strSCriteria = "site_id='" & cboSites & "'" strVCriteria = "AND vehicle_type=" & RS!vehicle_type vType = RS!vehicle_type Call CloseRecordset(RS) ' End If Set RS = gConnect1.Execute("sp_report_vsummary '" & cboSites & "'," & vType & ",'" & CDate(format(dtp1.Value, DATEFORMAT)) & "','" & CDate(format(dtp2.Value, DATEFORMAT)) & "'") begindate = format(dtp1.Value, DATEFORMAT) RS.Sort = "date_survey ASC" Do lstdate = getdate(begindate) RS.Filter = "date_survey >= #" & begindate & "# and date_survey <= #" & lstdate & "#" Call Fillrecord(RS, begindate, lstdate) begindate = DateAdd("d", 1, lstdate) Loop Until lstdate = format(dtp2.Value, DATEFORMAT) Call CloseRecordset(RS) PreviewStatus lv.ListItems.Count > 0 If lv.ListItems.Count = 0 Then MsgBox "No records found", vbOKOnly + vbInformation, "Report" End If Screen.MousePointer = vbDefault mdiMain.mnuExport.Enabled = lv.ListItems.Count <> 0 End If End Sub
STRSQL = "SELECT vehicle_type FROM " & VEHICLE_TYPES & _
" WHERE description ='" & RemoveQoute(cboVehicle.List(cboVehicle.ListIndex)) & "'"
Debug.Print STRSQL
Set RS = getData(STRSQL, adLockReadOnly, adOpenForwardOnly, adUseClient)
strSCriteria = "site_id='" & cboSites & "'"
strVCriteria = "AND vehicle_type=" & RS!vehicle_type
vType = RS!vehicle_type Set RS = gConnect1.Execute("sp_report_vsummary '" & cboSites & "'," & vType & ",'" & CDate(format(dtp1.Value, DATEFORMAT)) & "','" & CDate(format(dtp2.Value, DATEFORMAT)) & "'")
begindate = format(dtp1.Value, DATEFORMAT)
RS.Sort = "date_survey ASC"
