Comments by alom_93 (Top 69 by date)

can u help?

thanks for your input, but if what do i put in the 'do something' part? if it collects the rows -1 what should happen next? Display error?

Nope doesnt work just continues as normal and that is expected because there is already 3 rows in the table.. And your saying if =0 then write message but there is 3 rows already..

Could you show me how i can use the SQL count function or which ever one will help me to achieve what im after.

Thanks

here is the code i was using:

Try
sql = ("SELECT * FROM Application")

Dim dsx As New DataSet("app")
Dim dax As New OleDb.OleDbDataAdapter

dax = New OleDb.OleDbDataAdapter(sql, con)
dax.Fill(dsx, "app")


Dim tblapplications As DataTable
tblapplication = dsx.Tables("app")

If dsx.Tables("app").Rows(year).Item(0) = nothing Then

msgbox("Year does not exist!")
else
call add()

End If


Catch ex As Exception
MsgBox(ex.ToString)


End Try

End Sub


i have tried to use what u have said with the dbnull but i get blue squiggly lines.. Also if i set the SQL like this "SELECT year FROM App WHERE year=cb.text"
i also get an error saying no values given for parameters

i would have posted the code but it wasnt working and i deleted it... But i set up the data adapter and dataset and then put if function to see if the row exists or not. Ill try to put the code back up.

Thanks for the link

i have tried to execute the code to see if the row exists by using IF function and making = nothing so if the row doesnt exist the error message occurs.. But the problem i seem to face is that for e.g system accepts 2012 and accepts the application, the next user puts 2013 it skips the if function and then later throws a run time error.

Also you said try this SQL: "SELECT year FROM table WHERE year=2013" but the year could be 2014 or 2015 how do i edit this.

Could you explain the last one using the count? didnt fully understand that one

thanks but which one will help me?

please can you help?

yeah i have a primary key set to member id so its ok however will i still that new table which has id and late fee??

yeah i am just a beginner

oh ok i understand what your saying.... however it does seem rather long and complicated. isnt there another way of doing this?

thanks for your input, can you explain a little more what this does. I understood that i gets the memberID but what happens after that? i mean how do it add for e.g £2.40 to the late fee part of the record.

Thanks

didn't really understand what your saying can you kindly explain...

because the members table consists of member id,name address,tel no and late fees and if some one has a late fee then that value should be added to the late fees section of the record or at least update the current value.

Thanks

thanks got a slight problem where it says
da.fill(ds,"contacts") i get error when i press the update button. It says "No value given for one or more required parameters."

i'm looking for someone to show me how to implement what im after. The psuedo code has given me an rough idea but i cant implement it.
Can you please show me how?
thanks

thanks but still get blue line on "reservationConn"

i get blue squiggly lines around "OleDBconnection" "OleDbdataadapter" and "viewresds"

whats the problem and what is viewresds.

thanks

ok thnaks, will have a look at this!

Private Sub search_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles search.Click

dim con as new oledb.oledbconnection
dim da as new oledb.oledbdataadapter
dim fn as string
Dim c As String = "Provider = Microsoft.Jet.OLEDB.4.0;" & "Data Source = " & fn
dim ds as new dataset

con.connectionstring=(c)
con.open
da.fill(ds,"s")
con.close
inc=-1



Dim ca As New OleDb.OleDbCommandBuilder(da)

ds.Tables("s").Rows(inc).Item(1) = TextBox2.Text

ds.Tables("s").Rows(inc).Item(2) = TextBox3.Text

ds.Tables("s").Rows(inc).Item(3) = TextBox4.Text

ds.Tables("s").Rows(inc).Item(4) = TextBox5.Text

ds.Tables("s").Rows(inc).Item(5) = TextBox6.Text

ds.Tables("s").Rows(inc).Item(6) = TextBox7.Text

ds.Tables("s").Rows(inc).Item(7) = TextBox8.Text

ds.Tables("s").Rows(inc).Item(8) = TextBox9.Text



da.Update(ds, "s")
MsgBox("updated")

thanks for the link, however none of these will help me as i wish to connect and update through coding and not through the use of wizards etc.

.mdb file

sorry to disturb you, but i am require some help from you.. Using the data i already have i now wish to update some records etc and when i press update i want the actual db to be updated aswell.. can you help me, i have been spending alot of time trying to figure it out but i cant get my head around it.

e.g from you sample db i wish to change some details of say product id 12414 and when i press update i want the actual MS access database to be updated.

Can you help me?

Thanks

Private Sub search_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles search.Click

dim con as new oledb.oledbconnection
dim da as new oledb.oledbdataadapter
dim fn as string
Dim c As String = "Provider = Microsoft.Jet.OLEDB.4.0;" & "Data Source = " & fn
dim ds as new dataset
con.connectionstring=(c)
con.open
da.fill(ds,"s")
con.close
inc=-1
Dim ca As New OleDb.OleDbCommandBuilder(da)

ds.Tables("s").Rows(inc).Item(1) = TextBox2.Text

ds.Tables("s").Rows(inc).Item(2) = TextBox3.Text

ds.Tables("s").Rows(inc).Item(3) = TextBox4.Text

ds.Tables("s").Rows(inc).Item(4) = TextBox5.Text

ds.Tables("s").Rows(inc).Item(5) = TextBox6.Text

ds.Tables("s").Rows(inc).Item(6) = TextBox7.Text

ds.Tables("s").Rows(inc).Item(7) = TextBox8.Text

ds.Tables("s").Rows(inc).Item(8) = TextBox9.Text

da.Update(ds, "s")
MsgBox("updated")

THANK YOU !!!!! for everything really thanks you have taught me few things

THANK YOU SO MUCH IT FINALLY WORKS!! THANKS FOR ALL YOUR HARD WORK!!!!
THANK YOU

its not an autogenerated ID column the product ID is set as primary key and data type is text

text is being entered such as product names, quantity ordered, in stock, product id, date of order etc

i understand what your saying but how do i edit it?
thanks

but how can edit the code to say that? index =0?

ok thanks

many thanks for all your help so far but still cant solve it, for e.g in my db my forst record has product id a1 now if i enter that results appear. the second record is a2 now if i enter that the program says not found but still displays the data.

i have seen same happens on the one u created, but only on the first one, if i enter 12414 it says not found but displays data however the others are fine.

dont understand what the problem is

on my form if i enter the details for every column and then press update i get this error message but it points at this code:

da.Update(ds, "s")

and says "syntax error in UPDATE statement"


and says

Thanks for your reply, however i'm a little confused.. Could you kindly explain clearly.

Thanks

dataadapter:
dim da as new oledb.oledbdataadapter

SELECT * FROM S
that is the staement used..

can u provide help?

thanks for all your help i will have a look..

in my code i got squiggly line for dsstock but then i realised i forgot to write check in front of it and the sql was set up as a variable.

anyway will have a look at your code.

no change still the same

ok thanks,

i'm using Visual Basic 2008 express edition

i did and when the program run this is what appears in the new textbox:
System.Windows.Forms.TextBox, Text:

what do you mean? how will it function?
can you kindly explain.

Thanks for all help so far

thanks,
now what is happening is that if i enter the first product id from the db it displays the data without any errors BUT those after the first one says not found and still displays the data..
what am i doing wrong?

how can i fix this? where is the problem

i get an error if i try this
"ElseIf index = Nothing or -1 or < 0 Then"

it dont allow the <0

how can i achieve this? im a little bit confused

thanks for your reply, the actual error i get is the line of code Not Found!
but the product ID that do exist i get the same error message which is not meant to happen.
The aim is i enter the product ID and the press search and all data is displayed on the product ID so cant really cut down, also i know quantity is misspelled but thats how it is on the actual database its self.

Any other suggestions why i get the error?

thanks for your reply, I have achieved the initial question and now moved on to the next part which is the updating. I am NOT asking you to write anything for me..
I hope the updating is easy.
ill try to code it if i cant ill post my code and try to get some help.
Thanks

hi,
thanks i used your line and tweaked it abit to get the correct answer however i require a little bit of assistance. Now imagine that the total fee the program produced needs to be saved in a database under a members ID, can this be done? For e.g member id j32 is in the database under members, now he has incured a fee of £6.00 and this needs to be added to his record.. how can i achieve this?
So far i have established connection to the database and table and to the exact field i want to update, but how do i code it to update?
Thanks

Thanks

Will try it tomorrow, if not i will post my code and you can help me correct my mistakes.
Once sorted will accept the soloution.
Many thanks for the help so far, much appreciated!!

Thanks for your help.... i understand what your saying, however i was following a tutorial from a handout somebody gave to me and this is where it lead me. I am now understanding your work and it makes better and more sense to me than what i wrote. Anyway i have a question.. on the form i have another text box called additional cost, the value of additional cost should be added to latecharge to produce a total fee, that is where the total variable was meant to come in. However i am a little confused on how i can make this possible can u help me please? thanks btw its not a homework, its just some excercises im trying out to gain some knowledge

fixed although u provided the baseline for my mistake so thanks

thanks but now fixed

examinerecords is a function it helps to display the data i want from the database.Whats currently happening is that when i enter a product ID for e.g 4 only the first record comes up i.e product id 1. I want what i searched for i.e product id 4 to appear.

Yes used SQL statement SELECT * FROM [STOCK MANAGEMENT]

Please can you help, running out of time

gives an error saying syntax error

nope not working

I'm not expecting line by line help. I know the basics but wish to progess into my task. Anyway what books/tutorials can you recommend to me?

Do you know any examples using VB?

What do i require to run this?

Oh ok, i would need to learn that and how to connect my task to the sever etc.

Can you estimate roughly how long it will take to complete this task?

Can you send me some links please.
Thanks

What do you mean by that?

my plan was for the data to be stored in a MS access database and then work from there. I have a rough idea how it should work but i needed to be guided