I cant get this SQL statement to insert any of the values in the form to add to the database
sql
sql = "INSERT INTO prevresults (ExamDate, ExamTime, CorrectAnswers, PassPercentage) VALUES (date.now, time.now, rightanswers, percentage.text)"
[code]....
See
Public Class Form1
Dim sql As String
Dim conn As New OleDb.OleDbConnection
Dim da As New OleDb.OleDbDataAdapter
[CODE]...
The problem, The INSERT statement works fine in the form load but not in the button click event?
I was convinced that If <expression> Then <statement [:statement]> Else [statements] in concrete form of If a = b Then SayHello() Else SayBye() End has sense. I read article on msdn on If-then-else, but I forgot why I was reading, so I concluded, that snippet above means this
If a = b Then HelloIsSaid : IsNotEnded Else ByeIsSaid : IsEnded But I have tested it now, and I see, that Else without statement is nothing more than decoration. It would be pretty good if it had function I described. Do you think its good request? Or do you know any circumstance where this Else has some function?
Trying to get a IF statement working.
strUSER = "Test1"
This works.... The exception does not fire
ElseIf Not strUSER Like "Test1" Then
Throw New ArgumentException("Error")
End If
This does not.....The exception does fire
strUSER = "Test1"
ElseIf Not strUSER Like "Test2" Or Not strUSER Like "Test1" Then
Throw New ArgumentException("Error")
End If
I need the second one to work as well. The exception should not fire.Why?
why can't I do
If ( textbox1 1= " ")
endif
MVC3 VB.NET application. I have the below section of code in a function. This code is supposed to only fire if the handout1 is not nothing. But for some reason it is going into the then block when the handout1 is nothing in the database... I have tried a hundred different ways of checking but it is still trying to run that line of code even when there is nothing to assign to it....
[Code]...
I am creating a feature in my application that will allow a logged in user to add additional users to be logged in. The usernames and passwords are kept in a single database created in Access 2007. The table has 3 columns: ID, UserName, and Password. I am trying to insert user-inputted data through a TableAdapter function in a DataSet. It has worked once but for some reason it stopped working, and I can't figure out why.
Calling the TableAdapter function...
Me.UsersTableAdapter1.AddUser(Me.txtID.Text, Me.txtUsername.Text, Me.txtPassword.Text)
[Code].....
Visual Studio isn't throwing any errors my way or anything so I am not sure what's going on here. The fact that the code worked once but isn't working now is also confusing, and I don't recall making any changes related to this feature since it worked that one time.
Okay, so I have the following code.
[Code]...
Conversion failed when converting the varchar value '17, 18' to data type int. Which is the same error message I get when I run my application. So I guess somewhere along the line, when passing those values in the parameterized query, they are being passed as string literals with quotes around them, instead of integer values separated by commas. How do I add the string that I obtain as the argument for this subprocedure into my sql query's parameter such that they do not get passed as string literals with quotation marks around them?
I have form1 and form2. On form 2 i have 2 combo boxes where the user is asked to make selections. once back on form1 i try to use those selections as part of an if statement but although i should be triggring them it does not. I cannot figure this out. I have set up test variables and msgboxes along the way to test this.
The code excecutes. I have double checked the variables on form 2. They just do not trigger a response that will enter the if statements even though it looks like they should. I have double checked that test1 and test 2 are grabbing the variables from form 2
test1 is "Male"
test2 is "10 - 19"
When the code excecutes i never get to the msgbox("Age") line of code. I have also tried taking the spaces out of the strings with no luck as well.
[Code]...
I made a smallprogramm. Each Q is at the top of the Form.vb right under the Public Class.Each A is declared in the Private Sub where the given A is matched with the stored Q. Each A looks like this: DIM Answer1 As String = "Answer" and so on. I would like to use just one DIM statement for all the answers.
View 1 Repliesy friend and I are re-learning Visual Basic, and we are stumped on this bit of code.
For intAsterisks As Integer = 0 To intLine - 1
lblAsterisks.Text = lblAsterisks.Text + "*"
Next
I have the following SQL:
[Code]...
I want to put it (the select count statement) in this LINQ statement so I can get the sales count in my linq statement: Dim TheLeads = (From L In DB.Leads Where L.IsDeleted = False Select L).ToList() Is this possible to do in LINQ?
I need some help working with an OleDbCommand Statement existing statement
OleDb.OleDbCommand("Select *, (([AddressDisplay])&', '&([City])) AS Address
The City is stored in database with the city name and an additional abbreviation added. I need to get rid of the abbreviation, if possible.I DONT control the database its from a 3rd party.
Example: Houston[HST] I need to remove the [HST]
Can this be done? Either in the command statement of perhaps in the displaymember of the combobox that reads the database?
I'm running into a slight problem with an SQL INSERT INTO statement. I've tried setting this up first as a command statement and now as a stored procedure. When the process runs it's not signaling any errors and it appears that it's working properly. However when I check the database nothing new has been added. I have the statement within a try catch and it's not catching any errors. I've gone so far as to delete the table and recreate it, still nothing. I should also point out that this entire statement was essentially a copy & paste from another program that's working perfectly.
vb.net code below
Code:
Try
Dim cmd As New SqlCommand
cmd.Connection = con
[code]....
my simple update statement is not working on my database software with .mdbCompanyDa.Update(CompanyDs, "DisplaycenterData")it works but only in cache, when i restart my application the record is not updated.i solved my problem with some informal steps. i m attaching vb projects zip file, plz open coding for update button and Help me with simple coding.yes one important thing i need help and suggestion for is that in that project and forms are working nice, but with form i m facing problems, specially i cant update new added data/record, it returns error enven i follwed very same coding patterns and formate as i used in other forms in this project, i tried again and again but faild to solve the problem, i also changed table name and fields in database table but it still not working, and coding of other forms is working nice and 's update coding is not working.(update coding for company and book entry form is working and it is not working with purchase5 form, plz help to solve the problem)plz help me with simple coding and removing above mentioned error.to move between all three forms plz click related button at bottom of each form.
View 4 Repliesadd an if statement and an exit statement to my do loop that exits when my future value (FV) is greater than 1000, then to change the exit statement to a continue statement so my loop will continue even though my fv is greater then 1000, point is to get this to run even though my if statement doesnt do anything. problem something wrong in my code and an exception error (xception of type 'System.OverflowException' occurred in mscorlib.dll)
so can someone show me where or why I have an error is, what am I overthinking now! I could use a hint, OMG i could use a tutor for that matter
[Code]...
A co-worker wants to convert the following IfThenElseIf statement into a Select Case statement.
Explain why this is not possible.
If temperature = 100 Then
X = 0
ElseIf population > 1000 Then
X = 1
ElseIf rate < .1 Then
X = -1
End If
I keep getting the following error when inserting in to my Access DB using VB.
THe code I use is:
Code:
Dim code As String = "INSERT INTO tblUser(Username, Password, Forename, Surname) VALUES('" + txtrEmail.Text.Trim + "','" + "dfd" + "','" + txtrForename.Value.Trim + "','" + txtrSurname.Value.Trim + "');"
[Code].....
I got the sql code to write in a text box and executed i manually in to Access DB and it works perfectly.
I am converting old VB6 code to VB.NET with ADO.NET (OleDB). This is my query that will create a blank table when ran in VB.NET, but then works when ran directly in Access. This code presumably also works in VB6, as I am using the same SQL:
SELECT qryAsOf.name, qryAsOf.type, 0 as opt, 0 as swap
INTO qryCon
FROM qryAsOf
LEFT JOIN qryLinked on qryAsOf.c = qryLinked.lc
I feel like this has something to do with the left join and select into being together, but like I said it is only VB that has an issue with it, Access handles it perfectly.Without the INTO line, this query returns all 600+ rows.
This DOES NOT WORK:
cm.CommandText = "CREATE TABLE qryCon (etc...)"
cm.ExecuteNonQuery()
cm.CommandText = "INSERT INTO qryCon SELECT ..." '(rest of query above without INTO line)
cm.ExecuteNonQuery
This DOES WORK:
cm.CommandText = "CREATE PROC qryCon AS SELECT ..." '(same select as above without INTO, again)
cm.ExecuteNonQuery
The CREATE PROC that does work is fine, except I need to insert data into it later, so I get errors about how I need an updatable table. I really want the end qryCon to be a table, but I can't seem to get that to work :(
*However, when I do something like this (using the stored proc (renamed) above which, if viewed in Access, is full of data)
cm.CommandText = "SELECT * FROM storedProc"
dr = cm.ExecuteReader
[code]....
This DOES NOT WORK! By the way, I removed the concatenation in the query for readability. It is correct in the actual project.
I am entering a value in textbox and click the find button. In the button click i've written the following code, but it does not yield any result.
dbprovider = "PROVIDER=Microsoft.Jet.OLEDB.4.0;"
dbsource = "Data Source = D:sprrg.mdb"
con.ConnectionString = dbprovider & dbsource
[Code]....
Here is my select stament to store values when username and password and check boxes are check
com =
New OleDbCommand("INSERT
INTO Users (UserName,Password,IsAdmin,Read,Write,Change,REMOVE,User_st) VALUES ('" & txtusername.Text &
"','" & txtpassword.Text &
"'," &
CInt(chkIsadmin.Checked) &
[Code]...
My problem is this wehen i add new record to my db it saves values like this the value of read column is as follows read = 1 when check box is checked and read = 0 when check box is checked but i want to save true or false instead 1 and 0 how to achieve this using vb.net and my db is Oracle.
Is there a way to do a select statement with conditional values?
For example: select * from table where column1 = (ifequals(column1, Active, Y, N))
Is this not the correct way to do this? I get an error with it but if I change it to only one value then it works.
If dt2.Rows(0)("STATUS") = "COMP" Or "CLOSE" Or "CAN" Or "INCOMP" Or "WAPPR" Then
dt.Rows(currentRow).Delete()
End If
I want to check the current time with the half an hour time slots (total of 48 starts from 00:00,00:30,01:00,....23:30). Is it possible using select case statement.
I am storing the current time in an object.
Dim datime As DateTime = DateTime.Now.ToString("t")
now i need to do conditional check on this variable. under whichever the time slot the variable belongs, i need to write a value under corresponding timeslot.
How do you test multiple values for equality in one line?
Basically I want to do
if (val1 == val2 == val3 == ... valN)
but in VB.Net.
i have 10 radio buttons that have yes/no values. These are options to one question, so need to in the database under 1 record. so - question1 yes, question 1 no, question1 yes and so on. i want to use a while loop or some other loop to take all these values and insert them or update them in the database for that particular question. i m new to programming. the db table is ID, question, Answer. so it will be 1 question1 yes, 2 question1 yes, 3 question1 no.
View 2 RepliesI have this SQL:
SELECT count (1) FROM users AS total_drafts WHERE version_replace = @sid
SELECT count (1) AS unpublished_drafts FROM users WHERE version_replace = @sid AND moderated = 0
[code].....
How would I add the values from this case statement to figure out a total of all commission sales??
'declare variables for commission amount
Dim intAmount As Integer
Dim Sold As Integer
[code]....
intAmount is the commission
Return statement which is true in an if statement
View 3 RepliesHow can i return null values in if statement above. This statement is not working if condtion is false its retruning me 0 value even if condition is false
dim d as nullable(0f Decimal)
d=(if(_dr("value") isnot dbnull.value,Convert.toDecimal((_dr("value")),Nothing)