IT Answers » VB.NET

Arithmetic Overflow when manipulating as400 data using vb.net 2008

Smccoy — Wed, 25 Apr 2012 16:44:10 +0000

I will include the code so you can see what I am talking about at the end. I have a vb.net 2008 app that I am writing. Everything seems to go fine until I add/edit/delete a record. I am getting the following error: Arithmetic Operation resulted in an overflow. If I ignore the error everything runs as I expect it to. However, I cannot have an application with an error. To give you a better idea of what is going on, I will give an example. My app allows me to select a client and choose a product that the client offers. After choosing the product I am taken to a screen that will allow me to add/delete/edit the images and image info for that product. The data is displayed using a datagridview. At first I thought it might be a timestamp issue, but I am getting this error even when doing a simple delete. Below is the code where the error occurs.

Try

If conn.State = ConnectionState.Open Then

conn.Close()

End If

ds3.Clear()

conn.Open()

'create new command variable

Dim cmdDelete As New OdbcCommand

Dim x As Integer

cmdDelete = conn.CreateCommand

'set the command text to the sql delete statement

cmdDelete.CommandText = "DELETE FROM " & companyInfo & ".ORPMIMGX WHERE " & companyInfo & ".ORPMIMGX.ORIMGNAME LIKE '" & imgName.Trim() & "'"

'executes the delete command

x = cmdDelete.ExecuteNonQuery()

pbImage.Image = Nothing

'deletes the image from the server

IO.File.Delete(tbImageLocation.Text & imgName)

MsgBox("Image Deleted")

'reloads the datagridview with the new data

Catch ex As Exception

'If there is an error above, display the error message

MsgBox("Error: " & ex.Source & ": " & ex.Message, MsgBoxStyle.OkOnly, "Connection Error !!")

Finally

reloadDG()

conn.Close()

End Try

If there is a better way for me to do this I am all ears. I just have to get this taken care off asap. I appreciate any help I can get on this. Thanks!

condition based color changing of labels

Mahaveer — Sat, 07 Apr 2012 05:52:16 +0000

Imports System.Data.OleDb

Imports System.Data

Imports System.Threading

Imports System.Data.SqlClient

Public Class Form1

Dim bm As BindingManagerBase

Dim ds As New DataSet

Dim adp As OleDb.OleDbDataAdapter

Sub showrecord(ByVal pos As Integer)

Button1.Text = ds.Tables(0).Rows(pos)("Question")

Button2.Text = ds.Tables(0).Rows(pos)("Option1")

Button3.Text = ds.Tables(0).Rows(pos)("Option2")

Button4.Text = ds.Tables(0).Rows(pos)("Option3")

Button5.Text = ds.Tables(0).Rows(pos)("Option4")

End Sub

Private Sub ButtonX1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX1.Click

LabelX1.BackColor = Color.White

ds = New DataSet

Dim dt As New DataTable

Dim con As New OleDb.OleDbConnection("provider=sqloledb; server=MICROSOF-AE7D21SQLEXPRESS; database=mahaveer; userid=; password=;Trusted_Connection=yes;")

con.Open()

adp = New OleDb.OleDbDataAdapter("SELECT TOP 10 * FROM kbc ORDER By NEWID()", con)

adp.Fill(ds, "kbc")

bm = Me.BindingContext(ds, "kbc")

bm.Position = 0

showrecord(bm.Position)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim result As DialogResult = MessageBox.Show("Are You Sure", "Millionaire", MessageBoxButtons.OKCancel, MessageBoxIcon.Question)

If result = Windows.Forms.DialogResult.OK Then

If Button2.Text = Button6.Text Then

bm.Position += 1

showrecord(bm.Position)

Else

Label2.Text = "Sorry Wrong Answer"

End If

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim result As DialogResult = MessageBox.Show("Are You Sure", "Millionaire", MessageBoxButtons.OKCancel, MessageBoxIcon.Question)

If result = Windows.Forms.DialogResult.OK Then

If Button3.Text = Button6.Text Then

bm.Position += 1

showrecord(bm.Position)

Else

Label2.Text = "Sorry Wrong Answer"

End If

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Dim result As DialogResult = MessageBox.Show("Are You Sure", "Millionaire", MessageBoxButtons.OKCancel, MessageBoxIcon.Question)

If result = Windows.Forms.DialogResult.OK Then

If Button4.Text = Button6.Text Then

bm.Position += 1

showrecord(bm.Position)

Else

Label2.Text = "Sorry Wrong Answer"

End If

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

Dim result As DialogResult = MessageBox.Show("Are You Sure", "Millionaire", MessageBoxButtons.OKCancel, MessageBoxIcon.Question)

If result = Windows.Forms.DialogResult.OK Then

If Button5.Text = Button6.Text Then

bm.Position += 1

showrecord(bm.Position)

Else

Label2.Text = "Sorry Wrong Answer"

End If

End Sub

End Class

i have written a quiz game in this code. i have 12 labels from LabelX1 to LabelX12.

here i want their background color white one by one when a user click on the correct answer.

how can i do that ?

Insert values into database from form VB.NET

Darthswift00 — Sat, 24 Mar 2012 09:52:40 +0000

Hi guys, Having abit of trouble with inserting values that i have in my form into my sql database.
Basically it supposed to calculate a customer who borrowed a DVD or CD. I select the date that the customer brings the returned item by selecting a datepicker. The calculation works fine, but i want to insert 3 values into my database under column names that i already have. The table name is Trnsaction. it has the following coloumn names:
Trnsaction_id
Member_id
Album_id
issue_date
return_date
members_date
days_delayed
fine
The last 3 coloumns(members_date ,days_delayed ,fine) are values i wish to add to my database. The values days_delayed and fine only pop up when i have selected my date (thats members_date) form the datepicker and selected the calculate button
How can i insert these values to my existing database?
Thanks

DPI settings different on user machines

Cevonne — Wed, 14 Mar 2012 15:16:05 +0000

How do I fix my VB.Net application to handle different DPI settings on the users machine?

vb.net telnet

Hil — Wed, 29 Feb 2012 08:41:42 +0000

my job is to telnet a cisco router, pass the credentiials and build configuration. after building the same, i have to search for a line in the config. i want to automate this whole pocess with vb.net.

help me

Need a little VB.Net help -2

philpl1jb — Sat, 28 Jan 2012 23:36:54 +0000

New Answer by

How to make my VB.Net application communicate with a barcode scanner

BrownAsakpa — Fri, 20 Jan 2012 11:47:46 +0000

Question Edited by deanco

Need a little VB.Net help

philpl1jb — Mon, 16 Jan 2012 02:57:17 +0000

New Answer by

Visual Basic and SQL database design

msmj86 — Sat, 10 Sep 2011 06:56:27 +0000

i have vb.net & sql application

sql database have one tabe with 37 column (there is no normalization)

after runing the application more than three million of rows will enterd by users .

I’m afraid it Will give a bad performance or have (out of memory massge)

so i Made a solution (i make [strong]Queries(with vb.net wich will returnd only 800 row of data at atime[/strong])(max row size 1200)

is that the perfect solution .

plz heeeeeeeeeeeeeeeelp

How to use an object to travel data from one form to another

EhteshamSiddiqui — Wed, 07 Sep 2011 07:18:32 +0000

Hi,

I have two forms.Both having DatagridView.There are two comboboxes to filter the record from Database and fill in Datagridview.My requirement is when all the data is populated in DataGrid after selecting the comboboxes and when the user clicks on Delete.

The comboboxes and Datagrid on second form should have the same values as that was on first form.The names of my Comboboxes and Datagridview are same on both the forms

Below is the code my Datagrid view getting populated in First Form.

Sub GetData(ByVal StrQuery As String)

If CBMedium.Text <> "" And CBClass.Text <> "" Then

DGVStudRecord.Rows.Clear()

con = DBConnect()

cmd = New SqlCommand(StrQuery, con)

dr = cmd.ExecuteReader

If dr.HasRows Then

While dr.Read

DGVStudRecord.Rows.Add(dr(0), dr(1), dr(2), dr(3), dr(4), dr(5))

End While

End If

con.Close()

End If

End Sub

Please suggest how can i populate my datagrid in second form by using the Data populated in Datagrid of Firrt Form