Lowyat.NET: Latest topics by imrozx

Complaint Against mcci0101 aka ngoh chun muk

imrozx — Thu, 08 Aug 2013 00:12:41 +0800

Forumer you are complaining against: mcci0101 aka ngoh chun muk 05100313362

Item being sold/bought: Nitendo 3DS Ambassador set.

Original thread link: https://forum.lowyat.net/index.php?showtopic=2850383&hl=

Date of transaction: 01/08/2013

Details of the complaint : Seller does not reply or sent the promised item to me after I bank in the money. Bellow are the PM conversation that I did with him.

» Click to show Spoiler - click again to hide... «

After the bank in I did notice that the seller do login to his lyn account to check on something but he does not reply to my PM. I was tracking his login time. and here are a few of the time that he login..

» Click to show Spoiler - click again to hide... «

Because I thought that maybe his inbox is full so I do reply at this thread so that he will notice me. Here are my post at his thread.

» Click to show Spoiler - click again to hide... «

But later he just closed the topic like it was nothing.

I do check on the seller background and found out he was related to a dispute before but the issues is solved and he was trying to clean his name. I thought he is a good guy. but my thought was wrong. This seller is a SCAMMER he lied to his buyer. Even though his past case was solved, anybody who are going to deal with this person or a person with bank account name is NGOH CHUN MUK 05100313362 beware this person is a CONMAN and he will lie to you. Dont waste your money on this type of person. He maybe save now.. but later he will get his portion for lying and scamming other people hard owned money.

visual basic noob user here

imrozx — Tue, 05 Oct 2010 00:43:25 +0800

i got prob with my coding...
anyone master with vb.net?
here my coding
=================================================================================================
Public Class Form2
Inherits System.Windows.Forms.Form
Dim inc As Integer
Dim MaxRows As Integer
Dim con As New OleDb.OleDbConnection
Dim ds As New DataSet
Dim da As OleDb.OleDbDataAdapter
Dim sql As String

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim X As Integer
con.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source = Database1.mdb"
con.Open()
ds.Clear()
sql = "SELECT Code FROM CDinfo"
da = New OleDb.OleDbDataAdapter(sql, con)
da.Fill(ds, "dsCDinfo")
con.Close()
MaxRows = ds.Tables("dsCDinfo").Rows.Count
For X = 0 To MaxRows - 1
cbocode.Items.Add(ds.Tables("dsCDinfo").Rows(X).Item(0))
Next

End Sub

Private Sub cmdmain_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdmain.Click
Form1.Show()
Me.Hide()
End Sub

Private Sub cmdSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSearch.Click
Dim strName As String
con.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0; Data source=Database1.mdb"
con.Open()
ds.Clear()
strName = txtname.Text
sql = "SELECT * FORM CDinfo Where Artist like '%" & strName & "%'"
da = New OleDb.OleDbDataAdapter(sql, con)
da.Fill(ds, "dsCDinfo")
dgartist.DataSource = ds.Tables("CDinfo")
con.Close()
MaxRows = ds.Tables("dsCDinfo").Rows.Count

If MaxRows = 0 Then
MsgBox("No Record Found!")
Else
inc = 0
txtCode.Text = ds.Tables("dsCDinfo").Rows(inc).Item(0)
txtArtist.Text = ds.Tables("dsCDinfo").Rows(inc).Item(3)
txtAlbum.Text = ds.Tables("dsCDinfo").Rows(inc).Item(1)
End If

End Sub

Private Sub cbocode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbocode.SelectedIndexChanged
Dim strCode As String
con.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0; Data Source=Database1.mdb"
con.Open()
strCode = cbocode.Text
ds.Clear()
sql = "SELECT * FROM CDinfo where code = '" & strCode & "'"
da = New OleDb.OleDbDataAdapter(sql, con)
da.Fill(ds, "dsCDinfo")
con.Close()
MaxRows = ds.Tables("dsCDinfo").Rows.Count
If MaxRows = 0 Then
MsgBox("No Record Found")
Else
inc = 0
txtCode.Text = ds.Tables("dsCDinfo").Rows(inc).Item(0)
txtArtist.Text = ds.Tables("dsCDinfo").Rows(inc).Item(3)
txtAlbum.Text = ds.Tables("dsCDinfo").Rows(inc).Item(1)
End If

End Sub

Private Sub txtname_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtname.TextChanged
Dim strName As String
con.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0; Data source=Database1.mdb"
con.Open()
ds.Clear()
strName = txtname.Text
sql = "SELECT * FORM CDinfo Where Artist like '%" & strName & "%'"
da = New OleDb.OleDbDataAdapter(sql, con)
da.Fill(ds, "dsCDinfo")
dgartist.DataSource = ds.Tables("CDinfo")
con.Close()
MaxRows = ds.Tables("dsCDinfo").Rows.Count

If MaxRows = 0 Then
MsgBox("No Record Found!")
Else
inc = 0
txtCode.Text = ds.Tables("dsCDinfo").Rows(inc).Item(0)
txtArtist.Text = ds.Tables("dsCDinfo").Rows(inc).Item(3)
txtAlbum.Text = ds.Tables("dsCDinfo").Rows(inc).Item(1)
End If
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If inc <> 0 Then
inc = 0
txtCode.Text = ds.Tables("dsCDinfo").Rows(inc).Item(0)
txtArtist.Text = ds.Tables("dsCDinfo").Rows(inc).Item(3)
txtAlbum.Text = ds.Tables("dsCDinfo").Rows(inc).Item(1)
End If
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If inc <> MaxRows - 1 Then
inc = MaxRows - 1
txtCode.Text = ds.Tables("dsCDinfo").Rows(inc).Item(0)
txtArtist.Text = ds.Tables("dsCDinfo").Rows(inc).Item(3)
txtAlbum.Text = ds.Tables("dsCDinfo").Rows(inc).Item(1)
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If inc > 0 Then
inc = inc - 1
txtCode.Text = ds.Tables("dsCDinfo").Rows(inc).Item(0)
txtArtist.Text = ds.Tables("dsCDinfo").Rows(inc).Item(3)
txtAlbum.Text = ds.Tables("dsCDinfo").Rows(inc).Item(1)
ElseIf inc = -1 Then
MsgBox("No Record yet", 0 + 64, "Message")
ElseIf inc = 0 Then
MsgBox("First Record", 0 + 64, "Message")
End If
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If inc <> MaxRows - 1 Then
inc = inc + 1
txtCode.Text = ds.Tables("dsCDinfo").Rows(inc).Item(0)
txtArtist.Text = ds.Tables("dsCDinfo").Rows(inc).Item(3)
txtAlbum.Text = ds.Tables("dsCDinfo").Rows(inc).Item(1)
Else
MsgBox("No More Rows", 0 + 64, "Message")

End If
End Sub
End Class

===============================================================================================

at dgartist.DataSource = ds.Tables("CDinfo")
i got prob with declaration..
i jz follow paper i got to make the coding..
anyone can share idea?

Badcaps replacement service!

imrozx — Sat, 22 Sep 2007 06:35:06 +0800

I got a mobo that have badcaps, and its start to show the problems.. i just buy a new proc for it... and i dont think i can buy a new mobo to replace it... im realy short in money... so anybody who have the skills to replace the badcaps... around KL area la...

Where I can fix my broken Linksys gateway router

imrozx — Wed, 27 Jun 2007 13:05:38 +0800

Thank you for reading. I would like to ask expirence user, where can i find a good repair shop to fix my linksys gateway router, someone have drop some water in it maybe that shock it abit. the condition is 50%-70% where the problem comes to the eathernet does not work anymore. the DSL and wireless fuctions still work but the wireless cannot connect because the router is not responding. Looking at the condition i think somebody expert can fix it. i love this router so i willing to pay to fix it. the warranty is not expired yet but the rescipt was lost already. so cannot RMA send to linksys. Can someone who know where i can send my router to repair the problem. I livein KL so maybe area around selangor la. ok sory for the broken langs. hehe... thankz...