Lowyat.NET: Latest topics by firef0x

Pointer Cursor

firef0x — Wed, 23 Dec 2009 14:03:33 +0800

I have a few laptop's pointer cursor automatically changed to hourglass cursor even i set it back in the mouse control panel.

Anybody knows what's the cause?

Syspro Crystal Report

firef0x — Thu, 24 Sep 2009 14:58:17 +0800

I am working on a print sale using crystal report.

I created a report call 'report Main', then I added in 3 'sub report'

3 of the sub reports are connected to report A, report B and report C respectively.

The problem is I don't want 3 of the sub reports appear altogether in report main.
I wanted only 1 sub report to be shown at a time when click on it, and the other 2 will automatically hide itself.

Can crystal report achieve this? Any idea?

P.S. I can't use any additional program to solve this as the crystal report appear to be standalone. The crystal report only connected to the database.

Unknown Recovered Hard Disk Data

firef0x — Tue, 21 Apr 2009 12:22:58 +0800

I had just got back my data from HDD recovery service.

I have file types like JPG, TIF, FLC, XLS but none of this can be open but scrambled random codes.

Is there any possible way to successfully read all the files?

The corrupted hard disk is taken from a DVR.

Hope the files are still intact.

Problem of class module data member

firef0x — Wed, 26 Nov 2008 16:26:46 +0800

i using class module to add data member.
i already added "Remarks" as data member in class module.
but still not found "Remarks" data member.
the program as below:-

In class Module:(class module name :clsTariff)

Option Explicit
Dim sRemarks As String
______________________________________________
Property Get Remarks() As String
Remarks = sRemarks
End Property
______________________________________________
Property Let Remarks(ByVal vData As String)
sRemarks = vData
End Property
______________________________________________

In Main form:

Option Explicit
Dim WithEvents oFrgTariff As clsTariff
________________________________________________
Private Sub MainForm()
Dim bIsNew As Boolean

On Error Resume Next
....
....
....

txtRemarks.Text = oFrgTariff.XXXX

End Sub
___________________________________________________
*normally after type in oFrgTariff. will show out the data member(Remarks) i created in class module but now dint show anything.

How to using class module to save data in msSQL.

firef0x — Mon, 24 Nov 2008 11:59:06 +0800

Below is the save function i write.
But my Lecturer want me using class module to save data.
can someone help on this issue?

Private Sub CmdSave_Click()

If TxtQuantity.Text = "" Or CboCheckinvoice.Text = "" Or CboCharge.Text = "" Then
MsgBox "The Data field must not be blank.", vbExclamation + vbOKOnly, "Warning"
Else
intResponse = MsgBox("Are you sure you want add the information in Invoice Detail?", vbYesNo + vbQuestion + vbDefaultButton2, "Confrim")
If intResponse = vbYes Then
' Save / Update command button
Set rsAdd = New ADODB.Recordset
Set Add = New ADODB.Connection

Addconnect = "Provider=SQLOLEDB;Data Source=max;Initial Catalog=tutorial"
Add.Open Addconnect, "sa", "sa"
AddSQL = "SELECT * FROM InvoiceDetails"

With rsAdd
.ActiveConnection = Add
.CursorType = adOpenStatic
.CursorLocation = adUseServer
.LockType = adLockOptimistic
.Source = AddSQL
.Open
End With
rsAdd.AddNew
rsAdd("InvoiceNo") = CboCheckinvoice.Text
rsAdd("ChargeCode") = CboCharge.Text
rsAdd("Quantity") = TxtQuantity.Text
rsAdd("UnitPrice") = TxtPrice.Text
rsAdd.Update
End If
End If
End Sub

[addedon]November 24, 2008, 4:28 pm[/addedon]i attempt writed some code, but still unsuccess.
can everyone refer to my code and advise on this issue?
Thanks.
Below is the code write by myself.

[addedon]November 24, 2008, 5:35 pm[/addedon]
come out error "type mismatch"
the code in FormSave as below:

Private Sub CmdSave_Click()

'Dim bIsNew As Boolean
'Dim iOpt As Integer
Dim intResponse As Integer
Dim Dsave As clsPayment
Set Dsave = New clsPayment

If TxtQuantity.Text = "" Or CboCheckinvoice.Text = "" Or CboCharge.Text = "" Then
MsgBox "The Data field must not be blank.", vbExclamation + vbOKOnly, "Warning"
Else
intResponse = MsgBox("Are you sure you want add the information in Invoice Detail?", vbYesNo + vbQuestion + vbDefaultButton2, "Confrim")
If intResponse = vbYes Then
With Dsave
.InvoiceNo = CboCheckinvoice.Text
.ChargeCode = CboCharge.Text <<<error here: "type mismatch"
.Quantity = TxtQuantity.Text
.UnitPrice = TxtPrice.Text
End With
End If
End If
End Sub

in Class Module:

Dim sInvoiceNo As String
Dim sChargeCode As String
Dim sQuantity As String
Dim sUnitPrice As String

'Insert or Update record
Function Dsave() As Boolean

Dim sSQL As String

With rsAdd

Call .Add("InvoiceNo", CboCheckinvoice.Text)
Call .Add("ChargeCode", CboCharge.Text)
Call .Add("Quantity", TxtQuantity.Text)
Call .Add("UnitPrice", TxtPrice.Text)

sSQL = "UPDATE InvoiceDetails SET InvoiceNo= " & CboCheckinvoice.Text & ", ChargeCode= " & CboCharge.Text & ", Quantity= " & TxtQuantity.Text & ", UnitPrice= " & TxtPrice.Text & ""

'Save items
rsAdd.AddNew
rsAdd("InvoiceNo") = CboCheckinvoice.Text
rsAdd("ChargeCode") = CboCharge.Text
rsAdd("Quantity") = TxtQuantity.Text
rsAdd("UnitPrice") = TxtPrice.Text
rsAdd.Update

End Function

Property Get InvoiceNo() As Double
InvoiceNo = sInvoiceNo
End Property
Property Let InvoiceNo(ByVal vData As Double)
sInvoiceNo = vData
End Property

Property Get ChargeCode() As Double
ChargeCode = sChargeCode
End Property
Property Let ChargeCode(ByVal vData As Double)
sChargeCode = vData
End Property

Property Get Quantity() As Double
Quantity = sQuantity
End Property
Property Let Quantity(ByVal vData As Double)
sQuantity = vData
End Property

Property Get UnitPrice() As Double
UnitPrice = sUnitPrice
End Property
Property Let UnitPrice(ByVal vData As Double)
sUnitPrice = vData
End Property

[addedon]November 24, 2008, 5:45 pm[/addedon]

QUOTE(firef0x @ Nov 24 2008, 11:59 AM)

Below is the save function i write.
But my Lecturer want me using class module to save data.
can someone help on this issue?

Private Sub CmdSave_Click()

If TxtQuantity.Text = "" Or CboCheckinvoice.Text = "" Or CboCharge.Text = "" Then
MsgBox "The Data field must not be blank.", vbExclamation + vbOKOnly, "Warning"
Else
intResponse = MsgBox("Are you sure you want add the information in Invoice Detail?", vbYesNo + vbQuestion + vbDefaultButton2, "Confrim")
If intResponse = vbYes Then
'    Save / Update command button
   Set rsAdd = New ADODB.Recordset
   Set Add = New ADODB.Connection

Addconnect = "Provider=SQLOLEDB;Data Source=max;Initial Catalog=tutorial"
   Add.Open Addconnect, "sa", "sa"
   AddSQL = "SELECT * FROM InvoiceDetails"

With rsAdd
   .ActiveConnection = Add
   .CursorType = adOpenStatic
   .CursorLocation = adUseServer
   .LockType = adLockOptimistic
   .Source = AddSQL
   .Open
End With
rsAdd.AddNew
rsAdd("InvoiceNo") = CboCheckinvoice.Text
rsAdd("ChargeCode") = CboCharge.Text
rsAdd("Quantity") = TxtQuantity.Text
rsAdd("UnitPrice") = TxtPrice.Text
rsAdd.Update
End If
End If
End Sub

[addedon]November 24, 2008, 4:28 pm[/addedon]i attempt writed some code, but still unsuccess.
can everyone refer to my code and advise on this issue?
Thanks.
Below is the code write by myself.

[addedon]November 24, 2008, 5:35 pm[/addedon]
come out error "type mismatch"
the code in FormSave as below:

Private Sub CmdSave_Click()

'Dim bIsNew As Boolean
'Dim iOpt As Integer
Dim intResponse As Integer
Dim Dsave As clsPayment
Set Dsave = New clsPayment

If TxtQuantity.Text = "" Or CboCheckinvoice.Text = "" Or CboCharge.Text = "" Then
MsgBox "The Data field must not be blank.", vbExclamation + vbOKOnly, "Warning"
Else
intResponse = MsgBox("Are you sure you want add the information in Invoice Detail?", vbYesNo + vbQuestion + vbDefaultButton2, "Confrim")
If intResponse = vbYes Then
With Dsave
.InvoiceNo = CboCheckinvoice.Text
.ChargeCode = CboCharge.Text   <<<error here: "type mismatch"
.Quantity = TxtQuantity.Text
.UnitPrice = TxtPrice.Text
End With
End If
End If
End Sub

in Class Module:

Dim sInvoiceNo As String
Dim sChargeCode As String
Dim sQuantity As String
Dim sUnitPrice As String

'Insert or Update record
Function Dsave() As Boolean

Dim sSQL As String

With rsAdd

Call .Add("InvoiceNo", CboCheckinvoice.Text)
Call .Add("ChargeCode", CboCharge.Text)
Call .Add("Quantity", TxtQuantity.Text)
Call .Add("UnitPrice", TxtPrice.Text)

sSQL = "UPDATE InvoiceDetails SET InvoiceNo= " & CboCheckinvoice.Text & ", ChargeCode= " & CboCharge.Text & ", Quantity= " & TxtQuantity.Text & ", UnitPrice= " & TxtPrice.Text & ""

'Save items
rsAdd.AddNew
rsAdd("InvoiceNo") = CboCheckinvoice.Text
rsAdd("ChargeCode") = CboCharge.Text
rsAdd("Quantity") = TxtQuantity.Text
rsAdd("UnitPrice") = TxtPrice.Text
rsAdd.Update

End Function

Property Get InvoiceNo() As Double
InvoiceNo = sInvoiceNo
End Property
Property Let InvoiceNo(ByVal vData As Double)
sInvoiceNo = vData
End Property

Property Get ChargeCode() As Double
ChargeCode = sChargeCode
End Property
Property Let ChargeCode(ByVal vData As Double)
sChargeCode = vData
End Property

Property Get Quantity() As Double
Quantity = sQuantity
End Property
Property Let Quantity(ByVal vData As Double)
sQuantity = vData
End Property

Property Get UnitPrice() As Double
UnitPrice = sUnitPrice
End Property
Property Let UnitPrice(ByVal vData As Double)
sUnitPrice = vData
End Property
[right][snapback]21661461[/snapback][/right]

any1 can help?

[addedon]November 24, 2008, 5:53 pm[/addedon]I found out the solution.
this problem already solved.
everyone can refer to the code as below:-
IN FormSave:

Private Sub CmdSave_Click()

Dim intResponse As Integer
Dim Dsave As clsPayment
Set Dsave = New clsPayment

If TxtQuantity.Text = "" Or CboCheckinvoice.Text = "" Or CboCharge.Text = "" Then
MsgBox "The Data field must not be blank.", vbExclamation + vbOKOnly, "Warning"
Else
intResponse = MsgBox("Are you sure you want add the information in Invoice Detail?", vbYesNo + vbQuestion + vbDefaultButton2, "Confrim")
If intResponse = vbYes Then

Set rsAdd = New ADODB.Recordset
Set Add = New ADODB.Connection

Addconnect = "Provider=SQLOLEDB;Data Source=mas;Initial Catalog=tutorial"
Add.Open Addconnect, "sa", "sa"

AddSQL = "SELECT * FROM InvoiceDetails"
With rsAdd
.ActiveConnection = Add
.CursorType = adOpenStatic
.CursorLocation = adUseServer
.LockType = adLockOptimistic
.Source = AddSQL
.Open
End With

With Dsave
.InvoiceNo = CboCheckinvoice.Text
.ChargeCode = CboCharge.Text
.Quantity = TxtQuantity.Text
.UnitPrice = TxtPrice.Text
End With

rsAdd.AddNew
rsAdd("InvoiceNo") = CboCheckinvoice.Text
rsAdd("ChargeCode") = CboCharge.Text
rsAdd("Quantity") = TxtQuantity.Text
rsAdd("UnitPrice") = TxtPrice.Text
rsAdd.Update
End If
End If
End Sub

In Clsee Module (clsPayment):

Dim sInvoiceNo As String
Dim sChargeCode As String
Dim sQuantity As String
Dim sUnitPrice As String

'Insert or Update record
Function Dsave() As Boolean

Dim sSQL As String

With rsAdd

Call .Add("InvoiceNo", CboCheckinvoice.Text)
Call .Add("ChargeCode", CboCharge.Text)
Call .Add("Quantity", TxtQuantity.Text)
Call .Add("UnitPrice", TxtPrice.Text)

sSQL = "UPDATE InvoiceDetails SET InvoiceNo= " & CboCheckinvoice.Text & ", ChargeCode= " & CboCharge.Text & ", Quantity= " & TxtQuantity.Text & ", UnitPrice= " & TxtPrice.Text & ""

'Save items
rsAdd.AddNew
rsAdd("InvoiceNo") = CboCheckinvoice.Text
rsAdd("ChargeCode") = CboCharge.Text
rsAdd("Quantity") = TxtQuantity.Text
rsAdd("UnitPrice") = TxtPrice.Text
rsAdd.Update

End Function

Property Get InvoiceNo() As String
InvoiceNo = sInvoiceNo
End Property
Property Let InvoiceNo(ByVal vData As String)
sInvoiceNo = vData
End Property

Property Get ChargeCode() As String
ChargeCode = sChargeCode
End Property
Property Let ChargeCode(ByVal vData As String)
sChargeCode = vData
End Property

Property Get Quantity() As String
Quantity = sQuantity
End Property
Property Let Quantity(ByVal vData As String)
sQuantity = vData
End Property

Property Get UnitPrice() As String
UnitPrice = sUnitPrice
End Property
Property Let UnitPrice(ByVal vData As String)
sUnitPrice = vData
End Property

how to show mssql data in vb6 list view

firef0x — Mon, 24 Nov 2008 11:51:45 +0800

Now i using Flexgrid the show the mssql data, but my lecturer want me use listview. but i poor in listview, so can someone teach me how to do on this?
below is the code i using to show data. please refer and advise by the code i writed. thank you.

Private Sub Invoice_Click()
' show Customer detail
Set rsinfo = New ADODB.Recordset
Set coninfo = New ADODB.Connection

strconnect1 = "Provider=SQLOLEDB;Data Source=mas;Initial Catalog=tutorial"
coninfo.Open strconnect1, "sa", "sa"

infoSQL = "SELECT InvoiceMaster.*, Customer.* FROM InvoiceMaster INNER JOIN Customer ON InvoiceMaster.CustomerCode = Customer.CustomerCode WHERE InvoiceNo ='" & Invoice.Text & "'"
With rsinfo
.ActiveConnection = coninfo
.CursorType = adOpenStatic
.CursorLocation = adUseServer
.LockType = adLockOptimistic
.Source = infoSQL
.Open
End With

CustName.Text = rsinfo.Fields(4)
Address.Text = rsinfo.Fields(5) + rsinfo.Fields(6) + rsinfo.Fields(7) + rsinfo.Fields(8)
Date.Text = rsinfo.Fields(1)

' Show Data Grid
Set rsdata = New ADODB.Recordset
Set condata = New ADODB.Connection
strconnect2 = "Provider=SQLOLEDB;Data Source=mas;Initial Catalog=tutorial"
condata.Open strconnect2, "sa", "sa"
dataSQL = "SELECT InvoiceDetails.InvoiceNo, InvoiceDetails.ChargeCode, InvoiceDetails.Quantity, ChargeCode.Description, ChargeCode.UnitPrice FROM InvoiceDetails INNER JOIN ChargeCode ON InvoiceDetails.ChargeCode = ChargeCode.ChargeCode WHERE InvoiceNo ='" & Invoice.Text & "'"

With rsdata
.ActiveConnection = condata
.CursorType = adOpenStatic
.CursorLocation = adUseServer
.LockType = adLockOptimistic
.Source = dataSQL
.Open
End With
DisplayRecord dataSQL
End Sub

Private Sub DisplayRecord(dataSQL As String)
Dim i As Integer
Dim j As Currency
MSHFlexGrid.Row = 1
If rsdata.RecordCount > 0 Then
With rsdata
i = 0
j = 0
.MoveFirst
While Not .EOF
If !InvoiceNo >= Invoice.Text Then
MSHFlexGrid.Row = MSHFlexGrid.Row + 1
i = i + 1
MSHFlexGrid.TextMatrix(i, 0) = !ChargeCode
MSHFlexGrid.TextMatrix(i, 1) = !Description
MSHFlexGrid.TextMatrix(i, 2) = !Quantity
MSHFlexGrid.TextMatrix(i, 3) = !UnitPrice
MSHFlexGrid.TextMatrix(i, 4) = (!Quantity * !UnitPrice)
j = MSHFlexGrid.TextMatrix(i, 4) + j
End If
.MoveNext
Wend
End With
Total.Text = j
End If
End Sub

Vista 64 and HDMI

firef0x — Tue, 09 Sep 2008 20:32:39 +0800

i experience audio lag over hdmi.

i am using HP2228h which has built in speaker and Gecube HD3870.

so i just plug in my hdmi cable.

program notification sound like msn message sound. application sounds is not there.

i have to click repeatedly then the windows sound comes back. application sounds will dissapear again when at slow pace.

the application sound will only go back to normal which means i can hear every sound when i open music.
that is when i listen to continuous sound.

may i know what causing the lag?

edit

the sound will ONLY comes out when there is continuous audio signal.

edit

update

the lag gone when i open music player.
is it win vista problem

memory missing

firef0x — Wed, 03 Sep 2008 15:21:18 +0800

supposely 32bit windows can only detect 3.5GB ram.

i use gecube HD3870 which suppose has its on board memory.

when i check computer properties, it shows only 3.25GB

may i know where the other 250MB ram gone ?

foxconn mars and xeon 3110

firef0x — Tue, 02 Sep 2008 10:03:11 +0800

I installed new xeon 3110 to my motherboard.

everytime on my computer, there is a halt and indicate new cpu installed, change cpu setting.

may i know where should i change the cpu setting?