Lowyat.NET: Latest topics by alesshans

<WTS> Leather Case for Nex-5N, 5R or 5T

alesshans — Tue, 03 Nov 2015 17:06:55 +0800

Item(s): Leather Case for Nex-5N, 5R or 5T

Package includes: Leather Case and leather strap

Price: Offer Me...

Warranty: 1 Week Personal Warranty

Dealing method: COD in Penang or Poslaju (Buyer pays)

Location: Penang

Contact method/details: PM or Whatsapp 0174011007

Item(s) conditions: New

Picture:

Reason for sale: Bought wrongly... ...

SOLD

alesshans — Tue, 08 Sep 2015 01:13:08 +0800

SOLD

[WTS] Pentax Takumar 200mm F4 M42 Mount

alesshans — Sat, 07 Mar 2015 15:40:40 +0800

Item(s): Pentax Takumar 200mm F4 M42 Mount

Package includes: Lens, Front Cap and Rear Cap

Price: SOLD

Warranty: 1 week personal warranty

Dealing method: COD or Poslaju

Location: Penang Island

Contact method/details: PM or SMS to 0174011007

Item(s) conditions: Excellent, no fungus, no haze, no scratches, minor dust (normal for an old lens, view the pictures below...it wont't affect the picture quality)...

Picture:

wide open at f4...creamy bokeh...

View various reviews here...http://www.pentaxforums.com/lensreviews/S-...r-200mm-F4.html

Reason for sale: Funding

---

alesshans — Sun, 10 Apr 2011 13:26:37 +0800

Forumer you are complaining against: lat_lonelyboyz

Item being sold/bought: Canon 28mm f1.8

Original thread link: http://forum.lowyat.net/topic/1800303?hl=28mm

Date of transaction: 5 April 2011

Details of the complaint :

Bought a stated superb well taken care lens but its fungus, seller refuse to return...
After communication, we agree to meet up in Seberang Jaya McD for COD at 10.30 pm. I was curious that why did the seller do not want to meet up inside the restaurant but we only do the transaction at the car park. It was dark and I do not have the chance to view the lens elements. Even right now if just look inside the lens you won't be able to view the fungus, only if you use a torchlight to view the lens elements, u will see a thin film of fungus inside the lens. I tested so many times and wonder why the lens won't sharp even it is a prime. Complaint to the seller already, but the seller refuse to return, he said that the lens is COD that is the reason he is not responsible for the problem. .
Be aware of buying lens and be smart...i was con because I was too easy to believe in someone.

SQL Stored Procedure Send Email

alesshans — Tue, 22 Dec 2009 15:07:37 +0800

CODE

set ANSI_NULLS ON
set QUOTED_IDENTIFIER ON
GO
ALTER PROCEDURE [dbo].[my_data_daily]
AS
BEGIN

EXEC master..xp_sendmail
@recipients='aleshans@hotmail.com'
,@subject='DAILY REPORT- 1‘
,@query=
'SELECT
A.team_code as ''Team''
,CONVERT(varchar(20),count (team_num), 100) as ''Report 1''
FROM tnt_db..team AS A
LEFT JOIN tnt_db..event AS H ON A.team_code = H.team_code
WHERE H.event_dtm > ''12/21/2009'' AND H.event_dtm < ''12/22/2009''
GROUP BY A.team_code'

EXEC master..xp_sendmail
@recipients='aleshans@hotmail.com'
,@subject='DAILY REPORT- 2'
,@query=
'SELECT
A.team_code as ''Team''
,CONVERT(varchar(20),count (team_num), 100) as ''Report 2''
FROM tnt_db..team AS A
LEFT JOIN tnt_db..event AS H ON A.team_code = H.team_code
WHERE H.event_dtm > ''12/21/2009'' AND H.event_dtm < ''12/22/2009'' AND H.event_code = ''PLAYED''
GROUP BY A.team_code'

END

My Result now is able to send out 2 email which is example:
Email 1:
Team Report 1
A 30
B 40
C 50

Email 2:
Team Report 2
A 15
B 20
C 25

The Result That I want is only 1 email example:
Team Report 1 Report 2
A 30 15
B 40 20
C 50 25

Anyone have idea how to do this?
thanks....

OnChange in classic ASP...

alesshans — Fri, 06 Nov 2009 09:37:21 +0800

hi...
I would like to create 2 dropdownlist...
1st is Country...2nd is State...
for example...if I choose Malaysia in 1st dropdownlist...
2nd dropdownlist will appear KL, Penang, Kedah....
if I choose USA in 1st dropdownlist...
2nd dropdownlist will appear San Francisco, New York, Chicago....
how i going to make it in ASP classic without reloading the page?...

thanks all...

Stored Procedures

alesshans — Thu, 15 Oct 2009 16:31:54 +0800

I am noob to stored prod...
I have a table of CustomerID, CustomerName, and LoginTime...
I would like to create a stored procedure to find out customer that not login for 24 hours...and then send a list of report message to my email...
is it possible to do so?

I stuck here...

CODE

DECLARE @resultDate varchar(100)
DECLARE @resultDate1 varchar(100)
DECLARE @resultDate2 varchar(100)
DECLARE @body VARCHAR(1024)
select @resultDate=(select top 1 loginDate from Customer where loginDate <getdate() order by loginDate desc)
select @resultDate1=(select top 1 CustomerID from Customer where loginDate<getdate() order by loginDate desc)
select @resultDate2=(select top 1 CustomerName from Customer where loginDate<getdate() order by loginDate desc)
SET @body = @resultDate +char(10)+ @resultDate1 +char(10)+ @resultDate2

EXEC master..xp_sendmail @recipients='alesshans@hotmail.com', @message=@body,@subject='Customer Login Report'

1. how to print out a list in message body?
2. how to calculate customer who not login for 24 hours?
3. I failed to select multiple column in select clause...have to separate to @resultDate, @resultDate1, @resultDate2...is there any better way?

thank you very very much...

Crystal Report Sum Up Total

alesshans — Fri, 29 May 2009 09:54:45 +0800

I have a crystal report that to display the records according to a parameter...
when meet the criteria...the report will generate records...
my question is how i want to sum up the total of my records that have been generated...?...
thanks...

oPPPS...can already...
Sum ({CustomerQuotationItem.CQI_Subtotal})

thanks for viewing...

datagridview problem...

alesshans — Fri, 22 May 2009 09:33:46 +0800

i would like to create a dgv...
i enter the data...
for example got 3 columns...
i enter 1st column= 2
enter 2nd column =3
when i move to 3rd column...the column will sum up 1st and 2nd column...so its 5...
i was using "endedit" but nid to move to 2nd row then it only update the 3rd column...

thanks...

Cannot display on comboxbox after pass value

alesshans — Wed, 22 Apr 2009 14:58:26 +0800

CODE

Dim frm As New CustomerQuotation

frm.txtQuoNum.Text = (DataGridView1.Item(0, e.RowIndex).Value).ToString

Dim CQ_Code As String = frm.txtQuoNum.Text
frm.CustomerQuotationItemTableAdapter.FillBy(frm.SalesInvoiceDataSet.CustomerQuotationItem, CQ_Code)
Dim cnx As OleDbConnection
Dim cmdx As OleDbCommand
Dim drx As OleDbDataReader
Dim custcode, company, no, add1, add2, add3, add4, purchaser, requestor, date1, termid, termday, revision, deliveryterm, remark, warranty, validity, ourreference As String
Dim createat As Date = Date.Now

Try

cnx = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; " _
& "Data Source= C:\SalesInvoice.mdb")

cnx.Open()
cmdx = New OleDbCommand("SELECT * FROM CustomerQuotation WHERE CQ_No='" & frm.txtQuoNum.Text & "'", cnx)
drx = cmdx.ExecuteReader
While drx.Read()

company = drx("CQ_CompanyName").ToString()

custcode = drx("CQ_CustCode").ToString()

no = drx("CQ_No").ToString
add1 = drx("CQ_Address1").ToString
add2 = drx("CQ_Address2").ToString
add3 = drx("CQ_Address3").ToString
add4 = drx("CQ_Address4").ToString
purchaser = drx("CQ_Purchaser").ToString
requestor = drx("CQ_Requestor").ToString
date1 = drx("CQ_Date").ToString
termid = drx("CQ_TermID").ToString
termday = drx("CQ_TermDay").ToString
revision = drx("CQ_Revision").ToString
deliveryterm = drx("CQ_DeliveryTerm").ToString
remark = drx("CQ_Remark").ToString
warranty = drx("CQ_Warranty").ToString
validity = drx("CQ_Validity").ToString
ourreference = drx("CQ_OurReference").ToString
Console.WriteLine("test")
End While
drx.Close()
cnx.Close()
Catch
End Try

frm.txtCustCode.SelectedValue = custcode

frm.txtName.Text = company
frm.txtAdd1.Text = add1
frm.txtAdd2.Text = add2
frm.txtAdd3.Text = add3
frm.txtAdd4.Text = add4
frm.txtPurchaser.SelectedValue = purchaser
frm.txtRequester.SelectedValue = requestor
frm.txtTermID.Text = termid
frm.txtTermDay.Text = termday
frm.txtDate.Text = date1
frm.txtRevision.Text = revision
frm.txtDeliveryTerm.Text = deliveryterm
frm.txtRemark.Text = remark
frm.txtWarranty.Text = warranty
frm.txtValidity.Text = validity
frm.txtReference.Text = ourreference

frm.ShowDialog()

Me.Close()

the above code is trigger after double click on the datagridview...my purpose is to pass value to another form and display it on the right textbox/comboxbox...
however, textbox can display correct data but combobox fail to display correct data...it only like default...
thanks for help...

using datagridview to filter another datagridview

alesshans — Wed, 22 Apr 2009 10:32:04 +0800

CODE

Dim frm As New MT_CustomernDetail2

Dim Cust_Code As String = "%" + (DataGridView1.Item(0, e.RowIndex).Value).ToString + "%"

frm.MT_CustomerDetailTableAdapter.FillBy(Me.SalesInvoiceDataSet9.MT_CustomerDetail, Cust_Code)

frm.ShowDialog()
Me.Close()

after i double click on the datagridview1...then i put in the code above...i try to filter the datagridview2 in other form...but cannot do it...the datagridview2 didn't trigger that fill method...
please help on this...

use double click pass parameter into another form

alesshans — Mon, 20 Apr 2009 14:34:38 +0800

CODE

Private Sub DataGridView1_CellMouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DataGridView1.CellMouseDoubleClick

TextBox1.Text = (DataGridView1.Item(0, e.RowIndex).Value.ToString)

End Sub

after double click on the grid...
how can i pass the value from the textbox to another textbox on another form?...

thanks...

datagridview filter condition using LIKE

alesshans — Sat, 18 Apr 2009 11:56:40 +0800

CODE

SELECT Cust_Code, Cust_Name, Cust_RegNo, Cust_Address1, Cust_Address2, Cust_Address3, Cust_Address4, Cust_Purchaser, Cust_TermID, Cust_TermDay, Cust_CreditLimit, Cust_Suspend, Cust_TelNum, Cust_Fax, Cust_Website FROM MT_Customer WHERE Cust_Code LIKE ?

i would like to filter the datagridview using the data above...
however the result that i filtered "LIKE " output same as using "="...
i tried different ways to put in the "%" but all gt syntax error...
please assist...
thanks...

Pass Parameter and Display it on Crystal Report

alesshans — Mon, 13 Apr 2009 09:27:40 +0800

i created a crystal report...i can display out all the data in a table from the report...
but how can i pass a parameter from my window form to filter the output of crystal report...?

thanks...

Sum Up Datagridview Column and Detect Null Column

alesshans — Thu, 09 Apr 2009 09:32:30 +0800

CODE

Dim mySum As Integer = 0
Dim currentRow As DataGridViewRow
For Each currentRow In DataGridView1.Rows

mySum += CInt(currentRow.Cells(4).Value)
Next

TextBox1.Text = mySum.ToString

I calculate the total value of the column using code as above...
however, there are some column that are null value...
as a result after i sum up the value, error message prompt out...
how can i detect the null value and skip the value or assign a "0" value to the specific column?...
thanks...

[addedon]April 9, 2009, 9:55 am[/addedon]thanks uncle9...i got the answer... ...

DataGridView Insert

alesshans — Mon, 06 Apr 2009 16:59:10 +0800

CODE

<InsertCommand>
<DbCommand CommandType="Text" ModifiedByUser="False">
<CommandText>INSERT INTO `CustomerQuotationItem` (`CQ_Code`, `CQI_LineNum`, `CQI_StockCode`, `CQI_Barcode`, `CQI_ItemName`, `CQI_Qty`, `CQI_UOM`, `CQI_UnitPrice`, `CQI_Subtotal`, `CQI_UnitCost`, `CQI_VendorName`, `CQI_SubCost`, `CQI_Profit`, `CQI_Cat`, `CQI_Group`, `CQI_Class`) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)</CommandText>
<Parameters>
<Parameter AllowDbNull="True" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="CQ_Code" Precision="0" ProviderType="VarWChar" Scale="0" Size="0" SourceColumn="CQ_Code" SourceColumnNullMapping="False" SourceVersion="Current">
</Parameter>
<Parameter AllowDbNull="True" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="CQI_LineNum" Precision="0" ProviderType="VarWChar" Scale="0" Size="0" SourceColumn="CQI_LineNum" SourceColumnNullMapping="False" SourceVersion="Current">
</Parameter>
<Parameter AllowDbNull="True" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="CQI_StockCode" Precision="0" ProviderType="VarWChar" Scale="0" Size="0" SourceColumn="CQI_StockCode" SourceColumnNullMapping="False" SourceVersion="Current">
</Parameter>
<Parameter AllowDbNull="True" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="CQI_Barcode" Precision="0" ProviderType="VarWChar" Scale="0" Size="0" SourceColumn="CQI_Barcode" SourceColumnNullMapping="False" SourceVersion="Current">
</Parameter>
<Parameter AllowDbNull="True" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="CQI_ItemName" Precision="0" ProviderType="VarWChar" Scale="0" Size="0" SourceColumn="CQI_ItemName" SourceColumnNullMapping="False" SourceVersion="Current">
</Parameter>
<Parameter AllowDbNull="True" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="CQI_Qty" Precision="0" ProviderType="VarWChar" Scale="0" Size="0" SourceColumn="CQI_Qty" SourceColumnNullMapping="False" SourceVersion="Current">
</Parameter>
<Parameter AllowDbNull="True" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="CQI_UOM" Precision="0" ProviderType="VarWChar" Scale="0" Size="0" SourceColumn="CQI_UOM" SourceColumnNullMapping="False" SourceVersion="Current">
</Parameter>
<Parameter AllowDbNull="True" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="CQI_UnitPrice" Precision="0" ProviderType="VarWChar" Scale="0" Size="0" SourceColumn="CQI_UnitPrice" SourceColumnNullMapping="False" SourceVersion="Current">
</Parameter>
<Parameter AllowDbNull="True" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="CQI_Subtotal" Precision="0" ProviderType="VarWChar" Scale="0" Size="0" SourceColumn="CQI_Subtotal" SourceColumnNullMapping="False" SourceVersion="Current">
</Parameter>
<Parameter AllowDbNull="True" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="CQI_UnitCost" Precision="0" ProviderType="VarWChar" Scale="0" Size="0" SourceColumn="CQI_UnitCost" SourceColumnNullMapping="False" SourceVersion="Current">
</Parameter>
<Parameter AllowDbNull="True" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="CQI_VendorName" Precision="0" ProviderType="VarWChar" Scale="0" Size="0" SourceColumn="CQI_VendorName" SourceColumnNullMapping="False" SourceVersion="Current">
</Parameter>
<Parameter AllowDbNull="True" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="CQI_SubCost" Precision="0" ProviderType="VarWChar" Scale="0" Size="0" SourceColumn="CQI_SubCost" SourceColumnNullMapping="False" SourceVersion="Current">
</Parameter>
<Parameter AllowDbNull="True" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="CQI_Profit" Precision="0" ProviderType="VarWChar" Scale="0" Size="0" SourceColumn="CQI_Profit" SourceColumnNullMapping="False" SourceVersion="Current">
</Parameter>
<Parameter AllowDbNull="True" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="CQI_Cat" Precision="0" ProviderType="VarWChar" Scale="0" Size="0" SourceColumn="CQI_Cat" SourceColumnNullMapping="False" SourceVersion="Current">
</Parameter>
<Parameter AllowDbNull="True" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="CQI_Group" Precision="0" ProviderType="VarWChar" Scale="0" Size="0" SourceColumn="CQI_Group" SourceColumnNullMapping="False" SourceVersion="Current">
</Parameter>
<Parameter AllowDbNull="True" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="CQI_Class" Precision="0" ProviderType="VarWChar" Scale="0" Size="0" SourceColumn="CQI_Class" SourceColumnNullMapping="False" SourceVersion="Current">
</Parameter>
</Parameters>
</DbCommand>
</InsertCommand>

this is the code in my dataset...the code is after i wanna add new rows in datagridview...i add in using the row in datagridview....mean directly add into datagridview...
the problem is...
i wanna set 1 column to insert textbox data...
mean that if got 10 column...first column will not display...but insert textbox data....the rest 9 column insert directly using datagrid view...

if this 1 i wanna use textbox's data...how?...

CODE

thanks for help...

Pass textbox parameter to filter datagridview

alesshans — Fri, 03 Apr 2009 12:15:07 +0800

the problem as title said...
i have a datagridview...that i dun want it to filled automatically...
but after i write something in a textbox...then i click a button...
it will fill the datagridview but using textbox's data as a filter...
using web form is easier...cos the wizard got column to set the textbox name...
but in window form i failed to locate any method to solve this...
please assist...

thanks...

Update database in bin only...?

alesshans — Fri, 27 Mar 2009 10:57:13 +0800

why everytime i update the changes that i've done on the datagridview...
the update only applied to the database inside the bin folder...
when i close the system and open again...
it replace the database in bin folder with the current database...
means that everytime i update a database it only update the database in bin...

is my update precedure wrong?...please advise...thanks...

1. I create a datagridview
2. i add project data source (microsoft access)
3. tick on a table
4. add binding navigator
5. select binding source
6. when click on save button...then use this code...

CODE

If Me.Validate Then
Me.CustomerQuotationItemBindingSource.EndEdit()
Me.CustomerQuotationItemTableAdapter.Update(Me.SalesInvoiceDataSet.CustomerQuotationItem)
System.Windows.Forms.MessageBox.Show(Me, "The Record has been saved....", "Save", System.Windows.Forms.MessageBoxButtons.OK, _
System.Windows.Forms.MessageBoxIcon.Warning)
Else
System.Windows.Forms.MessageBox.Show(Me, "Validation errors occurred.", "Save", System.Windows.Forms.MessageBoxButtons.OK, _
System.Windows.Forms.MessageBoxIcon.Warning)
End If

DatagridView Update data...

alesshans — Fri, 13 Mar 2009 12:21:15 +0800

i create a datagridview...using the datagridview task to add the datasource from my access database...
after that i add a binding navigator...
my problem is when i click the "save" button on the binding navigator...
this error message come out...
"Update requires a valid UpdateCommand when passed DataRow collection with modified rows."
i do not know what is the problem...
thanks...

this is the save code...

CODE

Private Sub SaveToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripButton.Click
Try
Me.Validate()
Me.CustomerQuotationItemBindingSource.EndEdit()
Me.CustomerQuotationItemTableAdapter.Update(Me.SalesInvoiceDataSet3.CustomerQuotationItem)
MsgBox("Update successful")

Catch ex As Exception

MessageBox.Show(ex.Message & " - " & ex.Source, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try

End Sub

VB.Net Insert Record into Access

alesshans — Mon, 16 Feb 2009 15:20:36 +0800

CODE

Dim datenow As Date = Date.Now
Dim user = "Admin"
Dim TermID = TextBox1.Text
Dim TermDays = TextBox7.Text
Dim Cmd As OleDbCommand
Dim SQL As String
Dim objCmd As New OleDbCommand

Dim Con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=SalesInvoice.mdb")

SQL = "INSERT INTO MT_Term VALUES ('" & TermID & "', '" & TermDays & "','" & datenow & "','" & user & "','" & datenow & "','" & user & "')"
Cmd = New OleDbCommand(SQL, Con)

Con.Open()
objCmd = New OleDbCommand(SQL, Con)
objCmd.ExecuteNonQuery()
Con.Close()

MsgBox("Record Inserted Successfully")

my table MT_Term got 6 column:
TermID
TermDays
CreateAt
CreateBy
UpdateAt
Updateby

I just want to create a simple form that insert record...however...no matter how many times i insert the record...inside the database showing nothing...
i m using VS2005
thanks for help...