Post your Vb 6.0 Questions Here

 
If I get you right, you are trying to get balances, You don't need to store balances every time, you compute balance when needed.

Lets say your Table is Account_States(TransactionID AutoIncrement, AccountNo bigint, , TType, , Amount Decimal)

If you assume Debits are - and Credits are +ve
The Balance as at when you are posting is:
    select sum(Amount) from Account_States where AccountNo='2099343'
If you have used something AmountDr and AmountCr to mean Debit /Credit respectively
this will work
     select sum(AmountDr) as DebitBalance, sum(AmountCr) as CreditBalance
                       from Account_States Group By AccountNo where AccountNo='2099343'

Like this you only need to store transactions.

Note you can have a table to generate transaction ID separately. The Transaction ID will not need to be AutoIncrement in your accountstatus table, so 1 transaction ID can involve more than 100 records!


If I didn't get you right, please rephrase your question and reply.

Thanks

Hi all thanks for your respond to my question. @Nairalanda, you right i need info from last record of my fouth table (i.e accountstate table). but  i dont want use ID as my search condition because i dont have ID on the table. In my table consist of only five columns which are (Balance_Date, Total_Contribution, Total_Loan_Out, Total_Loan_Refund & Account_Balance), that's why I use LAST(Account_Balance) thinking that LAST is a function in Mysql. Because what i am interested is the Last record of (Account_Balance). For more this my code
[Private Sub cmdBalanceSearch_Click()
'On Error Resume Next
Dim rsBSearch As New ADODB.Recordset
   

    With rsBSearch
   
    .Open "Select * From accountstate where Account_Balance =  (Select LAST(Account_Balance) from accountstate)", Conn, adOpenDynamic, adLockOptimistic
   
     
        If rsBSearch.RecordCount >= 0 Then
       
            With dtgAccount
           
                .ClearFields
                Set .DataSource = rsBSearch
                .Refresh
               
                    .Columns(0).Caption = "S/N"
                    .Columns(0).Width = 900
                    .Columns(1).Caption = "Balance Date"
                    .Columns(1).Width = 2000
                    .Columns(2).Caption = "TotalContribution"
                    .Columns(2).Width = 2500
                    .Columns(3).Caption = "TotalLoanOut"
                    .Columns(3).Width = 2200
                    .Columns(4).Caption = "TotalLoanRefund"
                    .Columns(4).Width = 2500
                    .Columns(5).Caption = "AccountBalance"
                    .Columns(5).Width = 2400
                   
            End With
           
          End If
         
        End With
 
End Sub
]
The program i am writing is for Cooperative society not for bank, so i need to keep then latest account balance at all time. thats why i want create a search query so that at a click of a button the latest balance (record) will be displayed on the form in Datagrid.

Thanks in advance.

@MADAS:>

If you must get a record from the last row, it is best to use ID that is auto number. Reason is that you may be picking the wrong item especially when multiple users are accessing the table. If you still don't want to use ID, your table contains a date field. Depending on the structure of your date, you can use it to search, (If your date is stored eg as 2009-08-29:12:34:12, it means you will now depend on 'Microseconds difference' in the date to get the last record -THIS MAY NOT BE VERY CORRECT unless there are not many users/records!)

This code should work  SELECT * FROM TABLE1 as T WHERE T.Balance_Date=(SELECT max(Balance_Date) from Table1)
                                                      #and T.User= #eg if Specific User is targeted!

I feel you think you can't include ID auto-number when your table is already existing. You can use ALTER TABLE command on MySQL interface or on PHP MyAdmin. You can even code in VB by searching if ID column exists 1st then Alter if not.

              ALTER TABLE `TABLE1` ADD `ID` BIGINT NOT NULL AUTO_INCREMENT PRIMARY KEY ;

This Adds Column ID as a Primary Key and Auto Increments.

With this you can be confident in the result of


           select * from Table1 where ID in (select max(ID) from Table1)



Alternatively (get more complicated thou), You can use TRIGGERS to monitor insert into your table and let the trigger do something like in this algorithm
Create a Table Table1Temp
CREATE a Trigger on Insert into Table1
   Delete Content of Table1Temp
   Insert Record Inserted into Table1Temp
End of Trigger
 After all your insert> The last Item inserted is what is on the Temp Table
Triggers are like Stored Procedures
Hope this helps.

the two are within thread, Plz look for it.

It's a good practice to always have a unique Id column in your tables. Even if you will not use it in retrieving your data. You may also write a code to generate your custom unique Id not necessarily auto-incremented. It is the most reasonable way of accomplishing your aim as MADAS advised. He gave the right answer to your question.
There is not a function like "LAST" in Mysql. Don't imagine it for them. Always refer to documentation when in doubt.

i really don't mean any dis respect guys but i wouldn't believe that vb 6 programmers still exit. i once was a vd 6 programmer myself but have since moved to .net and right now am moving over to java.

Well, it depe
It depends on what u want to achieve in life. If u are so much interested in code aspect  then you are good enough to continue pursuing languages or business aspect of programming then you are good enough to continue to make your money.

We have many programming languages, even dotnet we use, its version increase in an unprecedented scale; 2001,2002,2003,2005,2008 and even 2010. I think one should be so confused to pursuing these language!

Someone still make serious money with access programming,dos fox pro etc, one many condemn him but what he does works for his clients and they pay him up 200k per installation, he makes his living from it.

I think it is share confusion 4 one to know a tool that will assist him/her achieve an idea faster, one start feeling it is vb6.0.

I use vb.net 2003,2005,2008,2010, I use C#, I use vb6.0 but then why must I be ashamed that am still modifying my vb6.0 business code on my client sites which they still enjoy without complaining?

Think code, think business aspect of your coding solutions, I think that is what we should bear in mind.

It is like a university graduate wasting his time thinking he is better of than the Polytechnic counterpart.

In almost all federal and state universities and Polytechnic you hardly not see them teach GW Basic,qbasic,Fortran,Cobol and other mere forgotten languages.

In case those people need help who will they run to? That is the aim of this thread among other things.

Since you said you mean no insult I shall stop here.

Below is code on how to set a active printer before printing.

Public Function Set_Printer(PrinterName As String)
Dim Prt As Printer
For Each Prt In Printers
    If Prt.deviceName = PrinterName  Then
        Set Printer = Prt
    End If
Next
End Function

The code below paints form

Public Sub PaintForm3D(frm As Form)
    ' This Sub draws lines around the Form to make it 3d
   
    ' white, upper - horizontal
    frm.Line (0, 0)-(frm.ScaleWidth, 0), &HFFFFFF, BF
    ' white, left - vertical
    frm.Line (0, 0)-(0, frm.ScaleHeight), &HFFFFFF, BF
    ' darkgrey, right - vertical
    frm.Line (frm.ScaleWidth - 15, 0)-(frm.ScaleWidth - 15, _
       frm.Height), &H808080, BF
    ' darkgrey, lower - horizontal
    frm.Line (0, frm.ScaleHeight - 15)-(frm.ScaleWidth, _
      frm.ScaleHeight - 15), &H808080, BF

End Sub

LuckyCo are you still there? Need to create some Vbasic 6 solutions. Will like to have some help. Should be mutually rewarding. Best wishes. I can be reached at  komotundeyoung@yahoo.com

Thanks. Will contact you this morning. Im impressed by your prompt and ever willing response. God bless you.

Well if you really need anything in vb you are lucky that am on this forum, you can check out this blog
www.visualbasicguru.blogspot.com, or you can also call me on 07031043884.

I also have programs for sale so if you are interested you give me a buzz
God bless you.

Thanks LuckyCO. Im putting my request together in form of meaningful specs. Will get back to you , once through
kyoung

Do you want to make connection to SQLSever 2000?, if so you dont need to use DSN.
You can use connection string to do that.