Visual Basic

Visual Studio Expenses Project

15-Aug-12 1:13

DWprogrammer wrote:
I am doing research

If you're doing research, then you probably already used Google. And if you have, you'll already know about the article[^] on CodeProject.

So, how would I know what links you have and haven't seen?

Bastard Programmer from Hell Suspicious | :suss:

if you can't read my code, try converting it here[^]

garyu8714-Aug-12 5:16

14-Aug-12 5:16

Hi everyone,
I am a beginner in VB. I have a project about expenses management.
So far I am having problem in inserting, updating and showing multiple table's data in 1 form(The expenses template)

Info:
SQL database:
Expenses(ExpensesID,Date,Food,Entertainment....Cash_Remains)
Food(FoodID,Breakfast....Sub_Total)
...........

Then when I click on next or previous it will show the same form but with new empty data or existing data(How do I do this?).

For the update part I know how to do it in the tableadapter but do I really need to create all the updates for all tables to work?
Like:
food.tableadapter.update(parameter)
entertainment.tableadapter.update(parameter)
or is there any better way?

Sorry for asking too much and also not politely in programming maner.

Eddy Vluggen15-Aug-12 1:21

15-Aug-12 1:21

garyu87 wrote:
Then when I click on next or previous it will show the same form but with new empty data or existing data(How do I do this?).

Display the form, and clear it's contents.

I'm not going to provide a personalized tutorial based on requirements; your question is very broad, and would require explanation on what Sql is, how you show a form, saving, loading, refreshing..

Start with displaying a form. Once you have that, move on to displaying "something". Once you have that, move on to "modifying". If you're stuck, ask for help - on that particular step. You'll get a ton more help if you ask a specific question on how to do something.

Walkthroughs[^]
How Do I video's[^]

Bastard Programmer from Hell Suspicious | :suss:

if you can't read my code, try converting it here[^]

garyu8715-Aug-12 21:20

15-Aug-12 21:20

Okay, I have all the forms and templates.
For starters my problem now is that I have multiple tables that I don't know how to display it in the templates that I have created.

Let say I have a groupbox(Food) that has all the labels and textbox. How do I display the data into each textbox with table adapters.

My database has a main table Expenses(ExpensesID, Date, Food,...Allowance, Total, Remains)
then there is a table Food(FoodID, Breakfast.....Sub_Total)
tblExpenses.food = tblFood.FoodID

Eddy Vluggen15-Aug-12 22:05

15-Aug-12 22:05

garyu87 wrote:
How do I display the data into each textbox with table adapters.

I don't know how the TableAdapter[^]s work, I don't use them. Fetching data can be done with a IDataReader, as a Reader[^] is the most efficient way. That would require code like below;

VB.NET

Using con = new SqlConnection(connectionString)
Using cmd = con.CreateCommand()

  cmd.CommandText = "SELECT * FROM Food"
  con.Open()
  
  Using rdr = cmd.ExecuteReader
    TextBox1.Text += rdr.GetString(0)
  End Using

End Using
End Using

Bastard Programmer from Hell Suspicious | :suss:

if you can't read my code, try converting it here[^]

garyu8715-Aug-12 22:24

15-Aug-12 22:24

Okay thanks I'll try it out Smile | :)

Eddy Vluggen15-Aug-12 22:31

15-Aug-12 22:31

You're welcome Smile | :)

garyu8716-Aug-12 2:54

16-Aug-12 2:54

I am having a problem right now where I want to display multiple table data in the all the textboxs in a form.

Here's my coding:

Sub Fill_Template()

        cmd.CommandText = "SELECT tblExpenses.Date, tblFoodAndBeverage.Breakfast, tblFoodAndBeverage.Lunch"
        cmd.CommandText += "tblFoodAndBeverage.Dinner, tblFoodAndBeverage.Snack, tblFoodAndBeverage.Beverage"
        cmd.CommandText += "tblFoodAndBeverage.Grocerries, tblFoodAndBeverage.Sub_Total, tblHousing.Rental"
        cmd.CommandText += "tblHousing.Electricity, tblHousing.Water, tblHousing.Gas, tblHousing.Supplies"
        cmd.CommandText += "tblHousing.Others, tblHousing.Sub_Total, tblTransportation.Bus_Fare"
        cmd.CommandText += "tblTransportation.Taxi_Fare, tblTransportation.Train_Fare, tblTransportation.Fuel"
        cmd.CommandText += "tblTransportation.Maintainence, tblTransportation.Others, tblTransportation.Sub_Total"
        cmd.CommandText += "tblEntertainment.Video_Rental, tblEntertainment.Cinema, tblEntertainment.Concert"
        cmd.CommandText += "tblEntertainment.Sport, tblEntertainment.Club_Bar_Disco, tblEntertainment.Games"
        cmd.CommandText += "tblEntertainment.Others, tblEntertainment.Sub_Total, tblPersonalCareAndItems.Medical_Fees"
        cmd.CommandText += "tblPersonalCareAndItems.Hair_Or_Nail, tblPersonalCareAndItems.Clothing"
        cmd.CommandText += "tblPersonalCareAndItems.Supplements, tblPersonalCareAndItems.Soap_Or_Shampoo"
        cmd.CommandText += "tblPersonalCareAndItems.Facial_Cleanser, tblPersonalCareAndItems.Others"
        cmd.CommandText += "tblPersonalCareAndItems.Sub_Total, tblLoan.Personal, tblLoan.Student, tblLoan.Business"
        cmd.CommandText += "tblLoan.Mortgage, tblLoan.Others, tblLoan.Sub_Total, tblLegal.Attorney, tblLegal.Alimony"
        cmd.CommandText += "tblLegal.Summons, tblLegal.Others, tblLegal.Sub_Total, tblPaymentsAndOthers.Phone_Bill"
        cmd.CommandText += "tblPaymentsAndOthers.College_Fee_And_Misc, tblPaymentsAndOthers.Vehicle_Payment"
        cmd.CommandText += "tblPaymentsAndOthers.Vehicle_Insurance, tblPaymentsAndOthers.Vehicle_License"
        cmd.CommandText += "tblPaymentsAndOthers.Credit_Card, tblPaymentsAndOthers.Debit_Card"
        cmd.CommandText += "tblPaymentsAndOthers.Others, tblPaymentsAndOthers.Sub_Total, tblBanking.Maybank_Balance"
        cmd.CommandText += "tblBanking.Maybank_Withdraw, tblBanking.Maybank_Deposit, tblBanking.CIMB_Balance"
        cmd.CommandText += "tblBanking.CIMB_Withdraw, tblBanking.CIMB_Deposit, tblBanking.Public_Bank_Balance"
        cmd.CommandText += "tblBanking.Public_Bank_Withdraw, tblBanking.Public_Bank_Deposit"
        cmd.CommandText += "tblBanking.Other_Bank_Balance, tblBanking.Other_Bank_Withdraw, tblBanking.Other_Bank_Deposit"
        cmd.CommandText += "tblExpenses.Allowance, tblExpenses.Total, tblExpenses.Wallet"
        cmd.CommandText += "FROM tblExpenses, tblFoodAndBeverage, tblHousing, tblTransportation, tblEntertainment"
        cmd.CommandText += "tblPersonalCareAndItems, tblPaymentsAndOthers, tblLoan, tblLegal, tblBanking)"
        cmd.CommandText += "WHERE tblExpenses.Food_And_Beverage = tblFoodAndBeverage.Food_And_BeverageID"
        cmd.CommandText += "AND tblExpenses.Housing = tblHousing.HousingID"
        cmd.CommandText += "AND tblExpenses.Transportation = tblTransportation.TransportationID"
        cmd.CommandText += "AND tblExpenses.Entertainment = tblEntertainment.EntertainmentID"
        cmd.CommandText += "AND tblExpenses.Personal_Care_And_Items = tblPersonalCareAndItems.Personal_Care_And_ItemsID"
        cmd.CommandText += "AND tblExpenses.Loan = tblLoan.LoanID"
        cmd.CommandText += "AND tblExpenses.Legal = tblLegal.LegalID"
        cmd.CommandText += "AND tblExpenses.Payments_And_Others = tblPaymentsAndOthers.Payments_And_OthersID"
        cmd.CommandText += "AND tblExpenses.Banking =tblBanking.BankingID"

        cmd.Connection = connection
        da.SelectCommand = cmd
        da.Fill(ds, "tblExpenses", "tblFoodAndBeverage", "tblHousing", "tblTransportation", )

        For Me.i = 0 To ds.Tables("tblFoodAndBeverage").Rows.Count - 1
            txtBreakFeast.Text = ds.Tables("tblFoodAndBeverage").Rows(i).Item(0)
            txtLunch.Text = ds.Tables("tblFoodAndBeverage").Rows(i).Item(1)
            txtDinner.Text = ds.Tables("tblFoodAndBeverage").Rows(i).Item(2)
            txtSupper.Text = ds.Tables("tblFoodAndBeverage").Rows(i).Item(3)
            txtSnack.Text = ds.Tables("tblFoodAndBeverage").Rows(i).Item(4)
            txtBeverage.Text = ds.Tables("tblFoodAndBeverage").Rows(i).Item(5)
            txtGroceries.Text = ds.Tables("tblFoodAndBeverage").Rows(i).Item(6)
            txtSubFnB.Text = ds.Tables("tblFoodAndBeverage").Rows(i).Item(7)
        Next
    End Sub

I am having problem with the da.fill-with multiple tables(giving me error)

Eddy Vluggen16-Aug-12 3:05

16-Aug-12 3:05

garyu87 wrote:
I am having problem with the da.fill-with multiple tables(giving me error)

If you encounter an exception, then please, post the entire message. It helps in finding the cause of the problem.

In this case, it's probably caused by a malformed Sql-statement. Take a look at the concatenation;

cmd.CommandText = "SELECT tblExpenses.Date, tblFoodAndBeverage.Breakfast, tblFoodAndBeverage.Lunch"
cmd.CommandText += "tblFoodAndBeverage.Dinner, tblFoodAndBeverage.Snack, tblFoodAndBeverage.Beverage"

That would result in the string below;

"SELECT tblExpenses.Date, tblFoodAndBeverage.Breakfast, tblFoodAndBeverage.LunchtblFoodAndBeverage.Dinner, tblFoodAndBeverage.Snack, tblFoodAndBeverage.Beverage"

Can you see the problem? Those two items should be separated by a comma. I recommend putting the Sql-statement in a separate textfile, and to use File.ReadAllText to load it into the CommandText. That way you can write your Sql-statement in the Management Studio, and simply save it when you're done - and there's the benefit of not having to concatenate a lot if you save it in an external file. Third advantage is that you can update your Sql without a recompile Smile | :)

Bastard Programmer from Hell Suspicious | :suss:

if you can't read my code, try converting it here[^]

garyu8716-Aug-12 3:48

16-Aug-12 3:48

I see...thanks for the tip but the compiler does not show any error.

My main problem is here:
da.Fill(ds, "tblExpenses", "tblFoodAndBeverage", "tblHousing", "tblTransportation")
Where there is 5 errors:
1. Value of type'system.data.dataset' cannot be converted into integer
2. Value of type 'String' cannot be converted to 'system.data.datatable'
3,4,5. Same as 3.

Eddy Vluggen16-Aug-12 5:12

16-Aug-12 5:12

garyu87 wrote:
Where there is 5 errors:

Those are the compiler-errors, and they tell what's wrong Smile | :)

A data-adapter has four overloads[^], none of which have that many strings.

Like I said, not much experience with table-adapters and data-adapters; it seems like you want to load multiple tables into a dataset; but the result of the select-query would be a single table, not multiple.

MSDN has a page[^] on the adapter-topic, which includes some examples - those might help Smile | :)

Bastard Programmer from Hell Suspicious | :suss:

if you can't read my code, try converting it here[^]

garyu8716-Aug-12 5:36

16-Aug-12 5:36

Okay thanks for the info now I am calling the data one by one.

Eddy Vluggen16-Aug-12 5:47

Run-time 430: class doesnot support automation or does not support expected interface

16-Aug-12 5:47

You're welcome Smile | :)

Karthik Chintala12-Aug-12 23:35

Re: Run-time 430: class doesnot support automation or does not support expected interface

12-Aug-12 23:35

Hi All,

I'm new to Visual Basic

My question is: When i tried to execute the EXE in vb6 it is getting error as 'Run-time 430: class doesnot support automation or does not support expected interface'

I'm using Microsoft.Jet.OLEDB.4.0 in my component. I'm calling component from vb6, my component is made com visible.

I've tried googled for hours, but could not find solution to my problem .

Also i didnot register my component with regsvr32, but it is visible in COM.

Please help me out from this.

Also please explain why this problem has occured.

OS: Windows 7

Component developed on Visual Studio 2010

Please help me out.

Thanks,

Eddy Vluggen12-Aug-12 23:47

Re: Run-time 430: class doesnot support automation or does not support expected interface

12-Aug-12 23:47

Karthik Reddy wrote:
I'm new to Visual Basic

Welcome to the wondrous world of programming! Now, uninstall VB6 and install VB.NET; VB6 has been developed a long time ago, and targeted a Windows-version prior to Win7. VB6 is no longer sold, no longer supported. VB.NET on the other hand, has a growing community, and it is free.

Karthik Reddy wrote:
I've tried googled for hours, but could not find solution to my problem .

Because VB6 is not only old, it's actively being abandoned. If you "insist" on using VB6, then your best source of information are old second-hand books.

Karthik Reddy wrote:
OS: Windows 7

Component developed on Visual Studio 2010

If you want to use a .NET control in your VB6-app, you'd best use the VB6 interop toolkit[^]. Contains a complete walkthrough and examples.

Bastard Programmer from Hell Suspicious | :suss:

if you can't read my code, try converting it here[^]

Karthik Chintala12-Aug-12 23:51

Re: Run-time 430: class doesnot support automation or does not support expected interface

12-Aug-12 23:51

I also dont want to use this Visual Basic, but client wants to develop app in vb6 D'Oh! | :doh:

let me know if you have an answer to this ...

By the way, thanks for the instant reply

Eddy Vluggen13-Aug-12 0:06

Re: Run-time 430: class doesnot support automation or does not support expected interface

13-Aug-12 0:06

Karthik Reddy wrote:
I also dont want to use this Visual Basic, but client wants to develop app in vb6

Since when do clients dictate which language we use? Does your client know the implications of this choice? Do they understand that there will be almost zero support?

If the client tells you that "strings" are bad, would you try to create a program that doesn't use strings?

Karthik Reddy wrote:
let me know if you have an answer to this .

It's a generic error, and usually it includes the classname. It'll be caused by "any" of the components not being registered correctly, with MDAC being the prime suspect. You'd need to install the exact same version of the libraries that you developed against.

Hence the pointer to the VB6-Toolkit from Microsoft; it also explains what needs to be deployed and how, and the most common pitfalls. It's free to download, and it's created to help with mixing VB/.NET.

And again; if you are using .NET already, you'd have the dependency anyway. Why not write the whole thing in a modern language?

Bastard Programmer from Hell Suspicious | :suss:

if you can't read my code, try converting it here[^]

Karthik Chintala13-Aug-12 0:14

Re: Run-time 430: class doesnot support automation or does not support expected interface

13-Aug-12 0:14

The client has asked in vb6, if we guys develop in VB.NET then there is no point that we are serving the clients with their requirements.

And i don't understand that what should be the best version of MDAC to be installed on the machine. I've the latest 2.8.

Mr.Eddy Vluggen I can see my component in COM, still do I need to register my component with 'regsvr32' ?

Eddy Vluggen13-Aug-12 0:28

Re: Run-time 430: class doesnot support automation or does not support expected interface

13-Aug-12 0:28

Karthik Reddy wrote:
The client has asked in vb6, if we guys develop in VB.NET then there is no point that we are serving the clients with their requirements.

You mentioned VS2010; sounds like you are already developing in .NET - what language is the component written in? And yes, I expect you to understand "why" the client proposes the requirement, as opposed to simply agreeing. Keep in mind that you're the programmer, you are the one who knows what the language-choice implicates, and YOU are the one responsible for using it.

Karthik Reddy wrote:
Mr.Eddy Vluggen I can see my component in COM, still do I need to register my component with 'regsvr32' ?

Yes. You need to register your .NET control before you can use it in VB6.

That goes for all ActiveX controls.

Bastard Programmer from Hell Suspicious | :suss:

if you can't read my code, try converting it here[^]

Karthik Chintala13-Aug-12 0:34

Re: Run-time 430: class doesnot support automation or does not support expected interface

13-Aug-12 0:34

crieterion is to develop a component. We have done everything and sent to them..

After few days, all of a sudden he said he want the component to be used in vb6 applications.

Thank you for your suggestions !! Smile | :)

But my component is not registering with regsvr32.exe

Eddy Vluggen13-Aug-12 1:24

Re: Run-time 430: class doesnot support automation or does not support expected interface

13-Aug-12 1:24

Karthik Reddy wrote:
After few days, all of a sudden he said he want the component to be used in vb6 applications.

I believe it's regasm[^], not regsvr. I tend to confuse them often; it's easier to search codeproject[^] for an article that has the procedure than it is to remember it after not using it for a few years. The CP-article shows all required steps, including registering.

Bastard Programmer from Hell Suspicious | :suss:

if you can't read my code, try converting it here[^]

Karthik Chintala13-Aug-12 1:29