Lowyat.NET: Latest topics by v_for_vendetta

VB6

v_for_vendetta — Mon, 14 Aug 2006 11:02:04 +0800

Dear all,
I need help regarding the topic.
Here is my code:

Option Explicit

Public Declare Function WinHelp Lib "user32" Alias "WinHelpA" (ByVal hwnd As Long, ByVal lpHelpFile As String, ByVal wCommand As Long, ByVal dwData As Long) As Long
Public Const HELPC = &H3&
Public strImgN As String
Public BImg() As Byte
Public strvalid As String
Public SQLTEXT As String
Public conn As ADODB.Connection
Public Const hl = "{HOME}+{END}"
Public adoGroup As ADODB.Recordset
Public adoDepartment As ADODB.Recordset
Public adoGondola As ADODB.Recordset
Public adoItem As ADODB.Recordset
Public adoSales As ADODB.Recordset
Public adoStock As ADODB.Recordset
Public adoICS As ADODB.Recordset

Public rslog As ADODB.Recordset
Public selek As Boolean, wfine As Boolean

'connect to recordset used in frmItem.frm
Public Sub rs_act_Item()
Set adoItem = New ADODB.Recordset
adoItem.Open "Select * FROM Item", conn, adOpenStatic, adLockPessimistic
End Sub

Private Sub Form_Load()
Call rs_act_Item
Set DataGrid1.DataSource = adoItem
End Sub

Can someone point out where the error is cos when i try to load the form it gives the error statement.

Thanking all in advance...

Requesting explaination

v_for_vendetta — Sat, 12 Aug 2006 21:04:20 +0800

Dear All,
I'm currently doing a project on inventory control systems.i'm using vb with ms access as my database. i'm using ado to connect my database with my interfaces. when i run my program i keep getting the above mentioned error message that says the connection may be closed or invalid. can someone pls explain to me wut the error message means n on how to overcome the problem?

Thanking all those helping in advance.

A doubt that needs to be cleared....

v_for_vendetta — Sun, 09 Apr 2006 00:54:28 +0800

Hello to all sifus n gurus out there.....

Thanks for all ur help, at last I've managed to find out the problem with y my arithmetic function didn't work.

Well now it's up n running.

Ok I need smmr help n I hope that all in the know can help.

Ok I have this Sell function in my system in a Sell form.

So,when i press the sell button, the record should b saved in the sales database n the form has to be cleared.

I tried this code,

Private Sub cmdSell_Click()

Dim dbs As Database, rst As Recordset

frmSales.datSales.Recordset.Save
datSales.Recordset.AddNew
txtSalesDescription.SetFocus

End Sub

But I get this error messsage, 'Runtime error'438' Object doesn't support this property or method'.

Please explain y is this wrong and at the same time, can u'll suggest smtg different that could be used?

How to add arithmetic function in vb6?

v_for_vendetta — Wed, 05 Apr 2006 22:18:28 +0800

All Codemasters and sifus out there I'm in urgent need of ur assistance. i'm a new user to VB n have to create a program for my FYP. I need some help, in my program there's selling function.
What I wanna know is how do I multiply the amount with the price?
How do I code it?

i tried to manipulate my Access DB but it doesn't work that way.

1 more thing is that I can't set trigger in Access. i followed all instructions on help but when i right click my table I don't see the Trigger option.

Please help and advice.....

Thanks to all in advance

Inventory Control System Programming on VB6

v_for_vendetta — Sun, 26 Mar 2006 23:31:27 +0800

Ok guys out there,I'm doing my final year project titled inventory control systems.It uses MS Access for the databases n VB6 for the interface design.

Now i've gotta big problem that i have one database table that is linked to many forms.I can't seem to find a way on doing it.I've tried many ways but ended up with errors.

I also have report generation for sales that have been done daily,weekly,monthly and yearly.

I also need a search function in it to find the item codes of the respective item.

I'm also implementing a sell function which I still can't seem to get right.This function will minus the sold amount from the total amount and leave the reamining amount.

There should also be a trigger to inform of quantity reduction.
Please help urgent help needed,my project submission is in a weeks time.

Please all those in the know please do help.