Lowyat.NET: Latest topics by acaisan

WTS Monitor Acer EK221Q H

acaisan — Tue, 10 Dec 2024 20:22:23 +0800

Item(s): Monitor Acer EK221Q H

Package includes:All in box

Price:RMSOLD (!!!NOTICE!!!: Sellers are required to display the exact selling prices of their products. Failure to do so will result in the deletion of the topic)

Warranty:3 Years Acer Malaysia Warranty

Dealing method:COD

Location:KL

Contact method/details:WA - 019 258 5836
---

Item(s) conditions:New Unsealed

Picture:As attached

Reason for sale:B wrong monitor

WTB - Used GTX1070/ti

acaisan — Mon, 19 Oct 2020 12:38:17 +0800

Item(s):WTB - Used GTX1070/ti

Package includes:Set with box

Price: Your best price (!!!NOTICE!!!: Sellers are required to display the exact selling prices of their products. Failure to do so will result in the deletion of the topic)

Dealing method:COD area ampang

Location:kl/selangor

Contact method/details:PM
---

Item(s) conditions:Used

IT Job Vacancy

acaisan — Sat, 04 Nov 2017 13:12:52 +0800

Name of Company:Huawei Sdn Bhd (Outsourcing) Celcom Project

Role:Back Office Engineer (10 position)

Remuneration:RM3000 and above based on experience

Requirements:Experience in configuration MYSQL, UNIX, LINUX

Contact Person:If interested please submit your CV to afeeq.kamarudin@huawei.com

Work Location:Menara Celcom Jalan Tun Razak Kuala Lumpur/ Menara Atlan Jalan Ampang

p/s: Preferred Chinese and Indian candidate who can start ASAP.

Thank you.

Retrieve multiple rows form db to datagridview

acaisan — Mon, 23 Sep 2013 01:25:21 +0800

Hye all. I need some help. Iam using vb.net 2010 and MS Acsess 2013. I have problem when retrieve multiple rows from database to datagridview. All rows have the same identification number(RFID Card No.).I want to record how many times the card had scan. Please help me here. Thanks in advance.

here my code :

Public Sub updateTextBox()
data = data + myComPort.ReadExisting()
If Len(data) = 12 Then

Dim i As Integer
Dim newdata As Boolean = True
For i = 0 To (grid.Rows.Count - 1)
If grid.Rows.Item(i).Cells(0).Value = Microsoft.VisualBasic.Mid(data, 6, 6) Then
newdata = False
Exit For
Else
newdata = True
End If
Next
If newdata = True Then
Dim gr As Integer
gr = grid.Rows.Add()
grid.Rows.Item(gr).Cells.Item(0).Value = Microsoft.VisualBasic.Mid(data, 6, 6)
grid.Rows.Item(gr).Cells.Item(3).Value = DateString() + " " + TimeString()
Notify.BalloonTipTitle = "New Tag"
Notify.BalloonTipText = Microsoft.VisualBasic.Mid(data, 6, 6)
Notify.ShowBalloonTip(2000)

Try
cn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Afeeq\Documents\Database2.accdb")
cn.Open()

str = "insert into table1 (Tag, L_Scan) values('" & grid.Rows.Item(grid.RowCount() - 1).Cells.Item(0).Value & " ','" & grid.Rows.Item(grid.RowCount() - 1).Cells.Item(3).Value & "')"
'string stores the command and CInt is used to convert number to string
cmd = New OleDbCommand(str, cn)
icount = cmd.ExecuteNonQuery
'MessageBox.Show(icount)
'displays number of records inserted
Catch e2 As Exception
MessageBox.Show(e2.ToString)
End Try
cn.Close()

Else
grid.Rows.Item(i).Cells.Item(3).Value = DateString() + " " + TimeString()
grid.Rows.Item(i).Selected = True
Notify.BalloonTipTitle = "Tag Scanned"
Notify.BalloonTipText = Microsoft.VisualBasic.Mid(data, 6, 6)
Notify.ShowBalloonTip(2000)

Try
cn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Afeeq\Documents\Database2.accdb")
cn.Open()

str = "update table1 SET L_Scan = '" & grid.Rows.Item(i).Cells.Item(3).Value & "' where Tag = '" & grid.Rows.Item(i).Cells.Item(0).Value & "'"
'string stores the command and CInt is used to convert number to string
cmd = New OleDbCommand(str, cn)
icount = cmd.ExecuteNonQuery
'MessageBox.Show(icount)
'displays number of records inserted
Catch e2 As Exception
MessageBox.Show(e2.ToString)
End Try
cn.Close()

End If
myComPort.DtrEnable = False
RadioButton1.Enabled = False
RadioButton2.Checked = True

If CheckBox1.Checked = True Then
Beep()
End If

Dim timeOut As DateTimeOffset = Now.AddMilliseconds(1500)
Do
Application.DoEvents()
Loop Until Now > timeOut
data = myComPort.ReadExisting()
myComPort.DiscardInBuffer()
data = ""
myComPort.DtrEnable = True
RadioButton1.Enabled = True
RadioButton1.Checked = True

End If
End Sub

SOLD

acaisan — Fri, 24 May 2013 13:28:29 +0800

SOLD

WTS - Muchkin 8GB Ram

acaisan — Wed, 06 Mar 2013 11:23:26 +0800

Item(s): Muchkin 8GB Ram

Package includes: Resit

Price: RM120

Warranty:

Dealing method: COD/Postage

Location of seller: Kajang

Contact method/details: PM/sms 0192585836

Age of item: 3 days

---

Item(s) conditions: Excelent

Picture:

Reason for sale: I wrongly bought for my friend and now he ask me to sell it back..never open it or even use it..

Any PC shop accept bb1m?

acaisan — Sat, 02 Mar 2013 16:31:08 +0800

Hi guy..anyone noe any PC shop in Kuala Lumpur or nearby that accept BB1M?

WTS - PC part

acaisan — Sat, 02 Mar 2013 04:32:04 +0800

Item(s): 1) AMD Phenom II X2 550 Processor 3.10GHz
2) MSI 770-C45 (MS-7599)
3) 4 GB ram DDR3
4) ATI Radeon HD5700 series

Package includes: The item itself no Box

Price: SOLD

Warranty: none

Dealing method: COD

Location of seller: Kajang

Contact method/details:

Age of item: 3 years

---

Item(s) conditions: Still in good condition

Picture:

Reason for sale: Upgrade

HP G4-1342TX vs Asus a43sm-vx002v

acaisan — Fri, 13 Jul 2012 21:02:18 +0800

hye guys..
need help here.. which one is better? and can u guys explain why? tQ for ur cooperation
HP G4-1342TX vs Asus a43sm-vx002v