Comments by Beginner213456 (Top 90 by date)

Yes, the fields I want to be calculated are integers

The same if i change it to Average and etc.

No, i definitely changed it to sum.
i also tried doing it in the formula and added the formula
Sum({table.Field}) but it says: a number field and a curruncy amount field is required here

I have updated my question thank you

I have typed it properly. they are perfectly the same.
My database is linked to my project using the binding source

can you also design your report using the vb report generator?

I tried the code you provided
but i have an error
saying
Not a valid password
Highlighting
the code:
Me.Table1TableAdapter.Fill(Me.PlanzDataSet.Table1)
in the Form1_Load

I want to deploy the exe and the database file in the same folder.
should i use
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\Planz.mdb;Jet OLEDB:Database Password=ccc111;"

I have updated my question,
can crystal report generate reports from protected ms access database.
i tried but it seems i cant add tables from the database in the crystal report

i have read it . thanks
but which is better?
"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Planz.mdb;Persist Security Info=False;"
or
ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\planz.mdb"

I mean, is there a way to input the data u want to be shown in runtime, like a search button in runtime crystal report.

if i were to add this in my crystal report. should i add some textboxes?
and insert this code in the Load Form?

I understand the code, and the result is what i wanted, but im confused where should i input this code in my project? should i add this in a button in the winform?
or should i add this in my database instead?

I used crystal report parameter. and you must type the data you wanted to be shown ,before opening the crystal report. which is a solution to my problem
i'm just wondering if there is a way similar to the parameter. so that you can input data you wanted while in the crystal report?

I am using ms access as my database,
in the Total Fields.
Its not saved in the database
my only fields are male,female,total and the Department Total can only be seen in the Crystal Report.
is there a way to achieve this.
or should i add a fields with the department total?

can i apply this in my vb.net winforms?
i think the toturial is application in sql?

I have read about the article. but
i cant the
policy_8_0_Microsoft_VC80_ATL_x86.msm
CrystalReportsRedist2005_x86.msm
in my merge module folder
located at :
C:Program files(x86)\common files\merge modules
also in the
C:\Program Files\Common Files

is there a way to make it show or a link to download it?
i tried to google it but many has the same problem as i am

When you said delete the table, will it literally delete the whole table or delete the records from the table that has a duplicate?

5ed!?

Is it possible by using formula?

I edited my original post and the page wont let me maintain the spaces and others.

Its what i Thought I'd do.
But i'm still confused.
I can drag and drop then in the crystal report and do it like the above but, the order will be like in the database, Not per district.

I am having an idea on the codes you provided thank you, but can you please show me how can i code it vb

should i do it like:
dim com as oleDbCommand
com = New OleDbCommand("SELECT Elementary.District, Elementary.SchoolName, Count(*) As Total FROM(Elementary) GROUP BY Schools.District, Elementary.SchoolName")

* My Table Name is Elementary

i have added the expected result in the solution, please check if its still doable, and what should i do to achieve it

I have added the expected result in the solution, please check if it is still possible to achieve it with vb.net and ms access.

Fields: Male, Female, Districts, Total, District Male
Male: input Value
Female: Input Value
Total: sum of the the Male and Female
District Male: Total of all the males in a Certain District

can you pls show me how if u tried it before or any related article i can read?
i have browsed in the internet but can't find the right one

I realized that I'm not Inserting Decimal Numbers So I Decided to Modify my Code
Instead of double I used Integer.TryParse
Dim a as integer
dim b as integer
If Not Integer.TryParse(KMTextBox.Text, A) Then
MessageBox.Show("INVALID")
Else
If Not Integer.TryParse(KFTextBox.Text, B) Then
MessageBox.Show("INVALID")
Else
result1 = A + B
KTTextBox.Text = result1
End If
End If


and in the Save Button, I replaced the
sqlquery.Parameters.AddWithValue("@KT", KTTextBox)
with
sqlquery.Parameters.AddWithValue("@KT", A + B)

please correct me if im wrong, thank you

I already have an app.config file, should i edit the codes?
According to the questions answered and articles i have read, the codes from the articles are already in the app.config file,
my question now is how to store and retrieve the constring?

My problem regarding in the Compute and Save Have been Resolved Thank you.
I saved them as integer and used integer.tryparse to check if the values in the textboxes are integers, if not it will show "INVALID"

dim a as integer
dim b as integer
dim result1 as integer
If Not Integer.TryParse(KMTextBox.Text, A) Then
MessageBox.Show("INVALID")
Else
If Not Integer.TryParse(KFTextBox.Text, B) Then
MessageBox.Show("INVALID")
Else
result1 = A + B
KTTextBox.Text = result1
End If
End If

i used this code and the INVALID error was gone, but when i press the Save, it says "data type mismatch in criteria expression"

I am not saving saving decimal numbers, so is it okay to convert my code into int32.tryparse or integer.tryparse instead of double.tryparse?

I removed the .Text from the Insert Code

can you please some examples how to create a three type double variable at class level?

is there a code to store data in the config files?
are the app.config some kind of storage? are they linked with the database?

Can you tell me more,what should i do about the tryparse operation, should i copy and paste it in the save button?
or should i modify it?

It Worked Thanks

These are the examples in the Double.TryParse
My problem is i dont know how to insert it in my code

like the "console.writeline" are these like 'msgbox.show'?
where can i save the result


Dim values() As String = {"1,643.57", "$1,643.57", "-1.643e6",
"-168934617882109132", "123AE6",
Nothing, String.Empty, "ABCDEF"}
Dim number As Double

For Each value In values
If Double.TryParse(value, number) Then
Console.WriteLine("'{0}' --> {1}", value, number)
Else
Console.WriteLine("Unable to parse '{0}'.", value)
End If
Next

I have read about the double.tryparse but its in C#, i dont know to apply it in my code.

I Have also Tried This, but its only for 2 textboxes

\\If IsNumeric(KMTextBox.Text) And IsNumeric(KFTextBox.Text) Then
' Dim num1 As Double
' Dim num2 As Double
' Dim num3 As Double
' num1 = Convert.ToDouble(KMTextBox.Text)
' num2 = Convert.ToDouble(KFTextBox.Text)
' num3 = num1 + num2
' KTTextBox.Text = CStr(num3)
'End If\\

can you please drop how some examples on how to do it.
I have read about textbox.change but i cant figure out how to code it in vb10

C:\Users\P A R\Documents\Visual Studio 2010\Projects\Planz\Planz\bin\Debug\Plan.mdb


\\"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\PLANz.mdb"\\

The warning that Pops-up from the Wndows Defender:

Unauthorized Changed Blocked
Controlled Folder Access Plan.vhost.exe from making changes


It happens when i Start the Debugger from the vs10 and insert data to ms access.

so I used this line of code
for the TextBox1.Text
Me.ElementaryBindingSource.Filter = "SchoolName like '%" & TextBox1.Text & "%' "

when i type the name of the school, it immediately shows on the datagridview, whice is what i wanted to be result
now I also want to See all the data encoded in 2020(in the SY Column) but i can't figure out how to combine the two.

Or is there a parameterized way on doing these things?

Yes , i have updated my database, im now using ID as PK

Now my problem is windows defender is blocking my app from accessing my database, what should i do?
or are there articles on how to deal with it?

you seem very knowledgeable sir, so may we know the useful line of codes you got there? or better code than these ones?

I have read about your article but please help how to use c# in vb.net

I still followed the
Update elementary Set KM=? where SchoolName=?
cmd.parameters.AddWithValue("@KM",KMTextbox.Text)
cmd.parameters.AddWithValue("SchoolName",SchoolNameTextBox.Text)

and its working fine, Thank you

I am using the SchoolName as my primary key and i replaced my where clause with schoolname and supplied it using the parameters. now its working fine . thank you

I Did do what you Advise, My Update Button is now Working. Thank you

I just read about the copy to output directory , so I changed the property of the database to "Copy If Newer"

Now it Inserts and Updates Data in my Database, even after i exit and open the app again

Thank you both for the responses.
I have a question to ask,
If I will use the SchoolName in the Where Clause instead of the KM
should i also Supply it
like :
cmd.parameters.addwithvalue("@SchoolName",SchoolName.Text)

I also tried it before but i have read some answers saying access doesn't support named parameters. so i'm not sure if "SY=@SY" is considered a Named Parameter?

Thank you for your quick responses.
So is it Okay if i replace KM with SchoolName=? .
or should i change all into KM=@KM,KF=@KF ......

I have changed the KM in the Where Clause to SY=? and removed the SY=? in the Update Command,,,, it updated the database, now the problem is when i updated 1 record, it also updates the value of some record in the cloumn. Can anybody Explain what have i encountered,

Yes, its what i wanted to say, sorry. i just cant seem to think the best way to explain it

Like when you run the vb project and insert some data. then you open the access database from its location. you CAN check if the data is inserted.
Am i a little clear or still blurry?

yeah, and all will appreciate if you we're to provide the correct code or correct the code, no one will appreciate your negative criticism

Thank you for ur advice, i have read about parameterized queries. and found out i have been doing it wrong,
please check on these new codes i've written,
Problem: Inserts data to the Access database but when you run the program again, and check the database again, the inserted data is removed from the Access Database.

i mean i can open the crystal report using these codes. it displays the correct value i designed.... but my database have i 50+ data to display yet it can only display 9 data from my database.

i opened the link you sent me it says all codes are c# , are the codes from vb.net and C# the same.

or can you please provide some of the codes i can learn from to?

also, how to save the randomized number in a textbox after clicking a button.

i tried the code you gave me and the "&" says character is not valid.
anything i can try?

using System;

public class Example
{
public static void Main()
{
String[] values = { null, "160519", "9432.0", "16,667",
" -322 ", "+4302", "(100);", "01FA" };
foreach (var value in values)
{
int number;

bool success = Int32.TryParse(value, out number);
if (success)
{
Console.WriteLine("Converted '{0}' to {1}.", value, number);
}
else
{
Console.WriteLine("Attempted conversion of '{0}' failed.",
value ?? "<null>");
}
}
}
}
// The example displays the following output:
// Attempted conversion of '<null>' failed.
// Converted '160519' to 160519.
// Attempted conversion of '9432.0' failed.
// Attempted conversion of '16,667' failed.
// Converted ' -322 ' to -322.
// Converted '+4302' to 4302.
// Attempted conversion of '(100);' failed.
// Attempted conversion of '01FA' failed.


"This is code example i saw at a try parse documentation provided by microsoft
but i cant seem to find how to apply it on my code"

i changed convert.toint32 into int.tryparse
but it says overloan

'can you please show me some example?

Dim text As String = ""
Dim stringToInteger As Integer = Convert.ToInt32(TMTextBox.Text)


TMTextBox.Text = Convert.ToInt32(KMTextBox.Text) + Convert.ToInt32(G1MTextBox.Text) + Convert.ToInt32(G2MTextBox.Text) + Convert.ToInt32(G3MTextBox.Text) + Convert.ToInt32(G4MTextBox.Text) + Convert.ToInt32(G5MTextBox.Text) + Convert.ToInt32(G6MTextBox.Text)
TFTextBox.Text = Convert.ToInt32(KFTextBox.Text) + Convert.ToInt32(G1FTextBox.Text) + Convert.ToInt32(G2FTextBox.Text) + Convert.ToInt32(G3FTextBox.Text) + Convert.ToInt32(G4FTextBox.Text) + Convert.ToInt32(G5FTextBox.Text) + Convert.ToInt32(G6FTextBox.Text)
GTTextBox.Text = Convert.ToInt32(KTTextBox.Text) + Convert.ToInt32(G1TTextBox.Text) + Convert.ToInt32(G2TTextBox.Text) + Convert.ToInt32(G3TTextBox.Text) + Convert.ToInt32(G4TTextBox.Text) + Convert.ToInt32(G5TTextBox.Text) + Convert.ToInt32(G6TTextBox.Text)
MessageBox.Show("Data Computed")

'i used that code for the computation for totals but theres an error saying about string conversion to integer.

Those are the only columns on my table database

or perhaps . there is something missing on my code?
or should i change my column properties to short text? because i used number

Those are the only columns on my table database

or perhaps . there is something missing on my code?

'Data type mismatch in criteria expression.
'that is the error message
' i have changed my code to


Dim sql As String = "INSERT INTO Elementary (SchoolName,SchoodID,KM,KF,KT,G1M,G1F,G1T,G2M,G2F,G2T,G3M,G3F,G3T,G4M,G4F,G4T,G5M,G5F,G5T,G6M,G6F,G6T,TM,TF,GT,SY,District,Field2) VALUES(@SchoolName, @SchoodID, @KM, @KF,@KT,@G1M,@G1F,@G1T,@G2M,@G2F,@G2T,@G3M,@G3F,@G3T,@G4M,@G4F,@G4T,@G5M,@G5F,@G5T,@G6M,@G6F,@G6T,@TM,@TF,@GT,@SY,@District,@Field2)"
Using conn = New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\plan.mdb")
Using sqlCom = New System.Data.OleDb.OleDbCommand(sql, conn)
conn.Open()
sqlCom.Parameters.Add("@SchoolName", OleDbType.VarWChar).Value = SchoolNameTextBox.Text
sqlCom.Parameters.Add("@SchoodID", OleDbType.VarWChar).Value = SchoodIDTextBox.Text
sqlCom.Parameters.Add("@KM", OleDbType.VarWChar).Value = KMTextBox.Text
sqlCom.Parameters.Add("@KF", OleDbType.VarWChar).Value = KFTextBox.Text
sqlCom.Parameters.Add("@KT", OleDbType.VarWChar).Value = KTTextBox.Text
sqlCom.Parameters.Add("@G1M", OleDbType.VarWChar).Value = G1MTextBox.Text
sqlCom.Parameters.Add("@G1F", OleDbType.VarWChar).Value = G1FTextBox.Text
sqlCom.Parameters.Add("@G1T", OleDbType.VarWChar).Value = G1TTextBox.Text
sqlCom.Parameters.Add("@G2M", OleDbType.VarWChar).Value = G2MTextBox.Text
sqlCom.Parameters.Add("@G2F", OleDbType.VarWChar).Value = G2FTextBox.Text
sqlCom.Parameters.Add("@G2T", OleDbType.VarWChar).Value = G2TTextBox.Text
sqlCom.Parameters.Add("@G3M", OleDbType.VarWChar).Value = G3MTextBox.Text
sqlCom.Parameters.Add("@G3F", OleDbType.VarWChar).Value = G3FTextBox.Text
sqlCom.Parameters.Add("@G3T", OleDbType.VarWChar).Value = G3TTextBox.Text
sqlCom.Parameters.Add("@G4M", OleDbType.VarWChar).Value = G4MTextBox.Text
sqlCom.Parameters.Add("@G4F", OleDbType.VarWChar).Value = G4FTextBox.Text
sqlCom.Parameters.Add("@G4T", OleDbType.VarWChar).Value = G4TTextBox.Text
sqlCom.Parameters.Add("@G5M", OleDbType.VarWChar).Value = G5MTextBox.Text
sqlCom.Parameters.Add("@G5F", OleDbType.VarWChar).Value = G5FTextBox.Text
sqlCom.Parameters.Add("@G5T", OleDbType.VarWChar).Value = G5TTextBox.Text
sqlCom.Parameters.Add("@G6M", OleDbType.VarWChar).Value = G6MTextBox.Text
sqlCom.Parameters.Add("@G6F", OleDbType.VarWChar).Value = G6FTextBox.Text
sqlCom.Parameters.Add("@G6T", OleDbType.VarWChar).Value = G6TTextBox.Text
sqlCom.Parameters.Add("@TM", OleDbType.VarWChar).Value = TMTextBox.Text
sqlCom.Parameters.Add("@TF", OleDbType.VarWChar).Value = TFTextBox.Text
sqlCom.Parameters.Add("@GT", OleDbType.VarWChar).Value = GTTextBox.Text
sqlCom.Parameters.Add("@SY", OleDbType.VarWChar).Value = SYTextBox.Text
sqlCom.Parameters.Add("@District", OleDbType.VarWChar).Value = DistrictTextBox.Text
sqlCom.Parameters.Add("@Field2", OleDbType.VarWChar).Value = Field2TextBox.Text


Dim icount As Integer = sqlCom.ExecuteNonQuery
End Using
End Using

Dim sql As String = "INSERT INTO Elementary (SchoolName,SchoodID,KM,KF,KT,G1M,G1F,G1T,G2M,G2F,G2T,G3M,G3F,G3T,G4M,G4F,G4T,G5M,G5F,G5T,G6M,G6F,G6T,TM,TF,GT,SY,District,Field) VALUES(@SchoolName, @SchoodID, @KM, @KF,@KT,@G1M,@G1F,@G1T,@G2M,@G2F,@G2T,@G3M,@G3F,@G3T,@G4M,@G4F,@G4T,@G5M,@G5F,@G5T,@G6M,@G6F,@G6T,@TM,@TF,@GT,@SY,@District,@Field2)"

is this correct?

sqlCom.Parameters.Add("@SchoolName", OleDbType.VarWChar).Value = SchoolNameTextBox.Text
sqlCom.Parameters.Add("@SchoodID", OleDbType.VarWChar).Value = SchoodIDTextBox.Text
sqlCom.Parameters.Add("@KM", OleDbType.VarWChar).Value = KMTextBox.Text
sqlCom.Parameters.Add("@KF", OleDbType.VarWChar).Value = KFTextBox.Text
sqlCom.Parameters.Add("@KT", OleDbType.VarWChar).Value = KTTextBox.Text
sqlCom.Parameters.Add("@G1M", OleDbType.VarWChar).Value = G1MTextBox.Text
sqlCom.Parameters.Add("@G1F", OleDbType.VarWChar).Value = G1FTextBox.Text
sqlCom.Parameters.Add("@G1T", OleDbType.VarWChar).Value = G1TTextBox.Text
sqlCom.Parameters.Add("@G2M", OleDbType.VarWChar).Value = G2MTextBox.Text
sqlCom.Parameters.Add("@G2F", OleDbType.VarWChar).Value = G2FTextBox.Text
sqlCom.Parameters.Add("@G2T", OleDbType.VarWChar).Value = G2TTextBox.Text
sqlCom.Parameters.Add("@G3M", OleDbType.VarWChar).Value = G3MTextBox.Text
sqlCom.Parameters.Add("@G3F", OleDbType.VarWChar).Value = G3FTextBox.Text
sqlCom.Parameters.Add("@G3T", OleDbType.VarWChar).Value = G3TTextBox.Text
sqlCom.Parameters.Add("@G4M", OleDbType.VarWChar).Value = G4MTextBox.Text
sqlCom.Parameters.Add("@G4F", OleDbType.VarWChar).Value = G4FTextBox.Text
sqlCom.Parameters.Add("@G4T", OleDbType.VarWChar).Value = G4TTextBox.Text
sqlCom.Parameters.Add("@G5M", OleDbType.VarWChar).Value = G5MTextBox.Text
sqlCom.Parameters.Add("@G5F", OleDbType.VarWChar).Value = G5FTextBox.Text
sqlCom.Parameters.Add("@G5T", OleDbType.VarWChar).Value = G5TTextBox.Text
sqlCom.Parameters.Add("@G6M", OleDbType.VarWChar).Value = G6MTextBox.Text
sqlCom.Parameters.Add("@G6F", OleDbType.VarWChar).Value = G6FTextBox.Text
sqlCom.Parameters.Add("@G6T", OleDbType.VarWChar).Value = G6TTextBox.Text
sqlCom.Parameters.Add("@TM", OleDbType.VarWChar).Value = TMTextBox.Text
sqlCom.Parameters.Add("@TF", OleDbType.VarWChar).Value = TFTextBox.Text
sqlCom.Parameters.Add("@GT", OleDbType.VarWChar).Value = GTTextBox.Text
sqlCom.Parameters.Add("@SY", OleDbType.VarWChar).Value = SYTextBox.Text
sqlCom.Parameters.Add("@District", OleDbType.VarWChar).Value = DistrictTextBox.Text
sqlCom.Parameters.Add("@Field2", OleDbType.VarWChar).Value = Field2TextBox.Text


i changed it to that but the error is still the same

I have checked and the parameters position and names are correct

Can you please give me an example

i tried

KTTextBox.Text = int32.typeparse(kmtextbox.Text) + int32.tryparse(kftextbox.Text)

but it says

Overload resolution failed because no accessible 'TryParse' accepts this number of arguments.

Conversion from string "Update requires a valid UpdateCo" to type 'Integer' is not valid.

that is the exact error that pops up

Can you still use the subreport when you try to create different designs on the report?
and where can i find the crystalreportviewer in the toolbox, i searched in the reporting tab in the toolbox but the pointer and report viewer is present.
than you for your reply

Is there a way to a code to correct
The
Operation must use an updatable query?
When you converted it to an installer
And installed it in a new computer

Can the ms access database still be updated if the database is encrypted?

Thank you