|
Have a VB6 legacy program that has been running for years and never saw this before.
It opens a text file, reads the contents and closes the file, code is:
f1 = FreeFile
Open filename For Binary As #f1 'Open the file
RawData = Input$(fileLen(filename), #f1) 'read it
Close #f1 'Close it
When a user logs on with a non administrator account and tries to run this they get a "Path/File access error". If they log in using an administrator account it works fine.
Interestingly enough, it does appear to actually read the file, but the warning is bothersome (removing the warning is not an option)
I tried every combination of security on the the file permissions, enabling/disabling Modify, Read and Execute, Read, Write and so-on, the best I can do is generate a "file not found" error, not an access error.
Any ideas what else to look at?
Thanks in advance
no-e
|
|
|
|
|
If the file is in a 'my documents' directory which is not the logged in user then you will get a permissions error. You could try moving the file to a directory outside of 'my documents'
|
|
|
|
|
Thanks, but the file is in a short path off the root of the C: drive
No-e
|
|
|
|
|
Commonly, non administrator user can't access C: drive. U have to set access right for the limited user from admin.
|
|
|
|
|
derek9999 wrote: Like developing Commodore software? CBM prg Studio
That looks really cool and brings me back memories of programming back in the Commodore days.
"Any sort of work in VB6 is bound to provide several WTF moments." - Christian Graus
|
|
|
|
|
Thanks, did you give it a try?
|
|
|
|
|
Yes, I've given it a try, and looks to be something to mess around with on some free time.
"Any sort of work in VB6 is bound to provide several WTF moments." - Christian Graus
|
|
|
|
|
No-e wrote: When a user logs on with a non administrator account and tries to run this they get a "Path/File access error". If they log in using an administrator account it works fine.
Hence, it must be something that's bound to the profile. Are you using any environment-variables? What is the path based on? Can you show an example? Any other relevant code in there that might cause errors, like reading your path from a key in the registry?
No-e wrote: Interestingly enough, it does appear to actually read the file
It "appears"? Please verify the actual behaviour; print out the contents of the file or write it to a temp location right after reading. Does or doesn't it read the file? My guess is that it didn't.
Bastard Programmer from Hell 
if you can't read my code, try converting it here[^]
|
|
|
|
|
No environment variables, path is read from a configuration file, fairly straight forward. Not sure about additional code, it is very simple procedure, this one reads it and converts it from hex to binary and returns it in an array (of small blocks to be shoved down a serial port in the calling routing).
I could have been more clear on appears, by appears, the file must be read because the system converts it and sends it to a bunch of hardware. The operator tells me they see this happening (the system shows the file being loaded in blocks), and the hardware subsequently goes off and does its thing with this new data, which works correctly.
No-e
|
|
|
|
|
Since you're getting a Path/Access Violation error, you've got one of two causes.
Either the path you built in "filename" is invalid, or the user that's running the code doesn't have appropriate permissions to the folderpath the file is in.
|
|
|
|
|
so, I'm making an ini editor for this game that has no advanced options. I found an INI reader/writer here:
http://www.mentalis.org/soft/class.qpx?id=6[^]
When I debug or run the program on my laptop (where I have windows 7 and vb2010 installed) it works fine. I dual boot to winxp works fine there too
I have two other win7 computers and JIT debugger comes up on both saying:'
Error message: An item with the same key has already been added
I see references to the ini class inside the details. Cause it uses dictionaries. But I get no exception on xp or the dev win7 install.
also note: I changed the project down to .NET 2.0 after I made the project. Does this have anything to do with it?
please help
|
|
|
|
|
Then the ini files you read on those other computers are not correct, e.g. a duplicated section.
In order to prevent the JIT debugger rom being invoked, use some try..catch in the function where you call your ini reader.
|
|
|
|
|
I am doing research on VB.Net code to pull jobs from one printer que and sending that job to another printer on the same network. Any suggestions?
|
|
|
|
|
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
if you can't read my code, try converting it here[^]
|
|
|
|
|
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.
|
|
|
|
|
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
if you can't read my code, try converting it here[^]
|
|
|
|
|
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
|
|
|
|
|
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;
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
if you can't read my code, try converting it here[^]
|
|
|
|
|
Okay thanks I'll try it out 
|
|
|
|
|
You're welcome
|
|
|
|
|
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)
|
|
|
|
|
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
Bastard Programmer from Hell
if you can't read my code, try converting it here[^]
|
|
|
|
|
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.
|
|
|
|
|
garyu87 wrote: Where there is 5 errors:
Those are the compiler-errors, and they tell what's wrong
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
Bastard Programmer from Hell
if you can't read my code, try converting it here[^]
|
|
|
|
|
Okay thanks for the info now I am calling the data one by one.
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
