Visual Basic

31-Oct-09 11:44

Hi
I am passing the following code to insert values in my DB table directly:

Private Sub SaveButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveButton.Click
        Using connection As New SqlClient.SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=D:\ProjectMW\MachineWale\MachineWale\DatabaseMW.mdf;Integrated Security=True;User Instance=True")
            Using command As New SqlClient.SqlCommand("INSERT INTO [MachineProfile] ([MachineID], [Category], [Type], [Brand], [Model], [Quantity], [SalePrice], [RentalRate], [ListingDate], [Agent], [Availability], [PurchaseDate], [Kmsrun], [HoursRun], [ChasisNo], [EngineNo], [OtherSpec], [WebEntry], [Ownership]) VALUES (@MachineID, @Category, @Type, @Brand, @Model, @Quantity, @SalePrice, @RentalRate, @ListingDate, @Agent, @Availability, @PurchaseDate, @Kmsrun, @HoursRun, @ChasisNo, @EngineNo, @OtherSpec, @WebEntry, @Ownership) where [MachineID] = '" & TextBox1.Text & "'", connection)

                command.Parameters.AddWithValue("@MachineID", TextBox1.Text)
                command.Parameters.AddWithValue("@Category", ComboBox2.Text)
                command.Parameters.AddWithValue("@kmsrun", TextBox10.Text)
                command.Parameters.AddWithValue("@Type", ComboBox3.Text)
                command.Parameters.AddWithValue("@Brand", ComboBox7.Text)
                command.Parameters.AddWithValue("@Model", ComboBox8.Text)
                command.Parameters.AddWithValue("@Quantity", TextBox7.Text)
                command.Parameters.AddWithValue("@SalePrice", TextBox17.Text)
                command.Parameters.AddWithValue("@RentalRate", TextBox18.Text)
                command.Parameters.AddWithValue("@ListingDate", TextBox19.Text)
                command.Parameters.AddWithValue("@Agent", ComboBox6.Text)
                command.Parameters.AddWithValue("@Availability", ComboBox4.Text)
                command.Parameters.AddWithValue("@PurchaseDate", DateTimePicker1.Value)
                command.Parameters.AddWithValue("@HoursRun", TextBox11.Text)
                command.Parameters.AddWithValue("@ChasisNo", TextBox12.Text)
                command.Parameters.AddWithValue("@EngineNo", TextBox13.Text)
                command.Parameters.AddWithValue("@OtherSpec", TextBox15.Text)
                command.Parameters.AddWithValue("@WebEntry", ComboBox5.Text)
                command.Parameters.AddWithValue("@Ownership", ComboBox1.Text)
                connection.Open()
                command.ExecuteNonQuery()
                MsgBox("Updated")

            End Using
        End Using
    End Sub

But i am getting this error after executing as:

Incorrect syntax near the keyword 'where'.

What could be possibly wrong?

LuxCoder

Henry Minute31-Oct-09 12:05

Henry Minute

31-Oct-09 12:05

Try changing your command to:

            Using command As New SqlClient.SqlCommand("INSERT INTO [MachineProfile] ([MachineID], [Category], [Type], [Brand], [Model], [Quantity],
 [SalePrice], [RentalRate], [ListingDate], [Agent], [Availability], [PurchaseDate], [Kmsrun], [HoursRun], [ChasisNo], [EngineNo], [OtherSpec], [WebEntry], 
[Ownership]) VALUES (@MachineID, @Category, @Type, @Brand, @Model, @Quantity, @SalePrice, @RentalRate, @ListingDate, @Agent, @Availability, @PurchaseDate, 
@Kmsrun, @HoursRun, @ChasisNo, @EngineNo, @OtherSpec, @WebEntry, @Ownership) where [MachineID] = <big>@MachineID</big>", connection)

Luc Pattyn31-Oct-09 12:06

Luc Pattyn

31-Oct-09 12:06

AFAIK an INSERT statement does not take a WHERE clause. New records just get added to a table.
Ref.[^]

Smile | :)

Luc Pattyn

I only read code that is properly indented, and rendered in a non-proportional font; hint: use PRE tags in forum messages

LuxCoder31-Oct-09 12:11

31-Oct-09 12:11

Well the intention is to edit an existing datarow populated on my form where the Primary key is the textbox.text....

Christian Graus31-Oct-09 12:08

Christian Graus

31-Oct-09 12:08

You should buy a book on SQL perhaps.

The update command appears to be what you want. You do realise that putting your sql in your presentation code makes for an unmaintainable mess, right ?

Christian Graus

Driven to the arms of OSX by Vista.

Read my blog to find out how I've worked around bugs in Microsoft tools and frameworks.

LuxCoder31-Oct-09 12:13

31-Oct-09 12:13

Can you give me an example of Update command?

LuxCoder31-Oct-09 12:45

create somthing like this see the example pl multi select

31-Oct-09 12:45

okay thanks i got it. Update command is working now Smile | :)

MapWindowGIS

hira0831-Oct-09 7:29

hira08

31-Oct-09 7:29

Hello.

I am currently developing an application that uses the component MapWinGIS, I managed to make a zoom on the map, move, etc. ...

My current problem is that I do not know how to handle the event click on the map control: click on an object (eg a town) to display information from the latter.

Thank you in advance for your prompt replies.

Re: MapWindowGIS

DaveAuld31-Oct-09 7:40

DaveAuld

31-Oct-09 7:40

Have a look here http://www.mapwindow.org/tutorials/[^] There is an ActiveX tutorial an also a sample project source code.

Cheers,

Dave
Who am I?:
Web|Facebook|Twitter|LinkedIn|Bebo

Re: MapWindowGIS

hira081-Nov-09 3:03

hira08

1-Nov-09 3:03

I looked but I could not find. Could you elaborate?

Re: MapWindowGIS

DaveAuld1-Nov-09 7:38

DaveAuld

1-Nov-09 7:38

Its under the section; "Getting Started Using MapWinGIS ActiveX Control"

Links

PDF Tutorial[^]

and

Sample Project[^]

Dave
Who am I?:
Web|Facebook|Twitter|LinkedIn|Bebo

neverpleat31-Oct-09 5:52

neverpleat

31-Oct-09 5:52

http://users.telenet.be/voorbeeld/vb.JPG[^]

how can i create somthing like this in visual studio 2008
i don't find nothing for doing this like the exampel and i don't want to use 100's off button's any help or direction

T'hanks

Re: create somthing like this see the example pl multi select

Henry Minute31-Oct-09 6:07

Henry Minute

31-Oct-09 6:07

I am not going to follow a link from someone I do not know. This is no reflection on you, just a rule I have.

Therefore can you describe what you are trying to do?

Re: create somthing like this see the example pl multi select

neverpleat31-Oct-09 7:23

neverpleat

31-Oct-09 7:23

i try to explain

you have 14 Squares with 42 numbers in it
you can select 6 numbers at eatch Square
if you do this with buttons you have 588 this is big
is there a other way to do this
t'hanks

Re: create somthing like this see the example pl multi select

Henry Minute31-Oct-09 10:22

Henry Minute

31-Oct-09 10:22

As Luc has said below, I would simply draw lines to represent the squares and use the Graphics.DrawString() method to 'paint' the numbers in each square.

Again, as Luc has said, you could use a Panel and add the code to do the above to the Paint event handler of the Panel.

Re: create somthing like this see the example pl multi select

Luc Pattyn31-Oct-09 6:27

Luc Pattyn

31-Oct-09 6:27

Things like that I create by code, and not through Visual Designer.
So get a Panel, and add stuff to its Paint handler for drawing the squares and the numbers.
Decide on a data structure to keep track of the numbers you want marked.

Good luck with our lottery!

Smile | :)

Luc Pattyn

I only read code that is properly indented, and rendered in a non-proportional font; hint: use PRE tags in forum messages

How to clear multiple textboxes in a form (using vb.net)

Luc Baetsle31-Oct-09 2:59

Re: How to clear multiple textboxes in a form (using vb.net)

31-Oct-09 2:59

Hello,

I have 15 textboxes ( textbox1 => textbox15).
After calculating the values, i want to clear them with a single press on a button:

I tried:

For Each ctl As Control In Me.Controls

If TypeOf ctl Is TextBox Then
ctl.Text = ""
End If
Next

but it won't work. What am I doing wrong?
Thanks in advance

Luc

Milad.Biroonvand31-Oct-09 3:06

Milad.Biroonvand

31-Oct-09 3:06

hi
dim arratxt as object = {textbox1,textbox2textbox3,textbox4,textbox5, ... textbox15}
for i as integer = 0 to arratxt.length
arratxt(i).text=""
next

Re: How to clear multiple textboxes in a form (using vb.net)

Luc Baetsle31-Oct-09 3:11

Re: How to clear multiple textboxes in a form (using vb.net)

31-Oct-09 3:11

Putting object to an array initializer?

Milad.Biroonvand31-Oct-09 3:13

Milad.Biroonvand

31-Oct-09 3:13

yes ,

Re: How to clear multiple textboxes in a form (using vb.net)

Luc Baetsle31-Oct-09 3:16

Re: How to clear multiple textboxes in a form (using vb.net)

31-Oct-09 3:16

That doesn't work
See following error:
Error 1 Array initializers are valid only for arrays, but the type of 'arratxt' is 'Object'.

Milad.Biroonvand31-Oct-09 3:19

Milad.Biroonvand

31-Oct-09 3:19

this is for 3 textbox

Dim ObjArray() As Object = {TextBox1, TextBox2, TextBox3}
     For i As Integer = 0 To ObjArray.Length - 1
         ObjArray(i).text = ""
     Next

Re: How to clear multiple textboxes in a form (using vb.net)

DaveAuld31-Oct-09 3:17

DaveAuld

31-Oct-09 3:17

This works;

Dim xTextBox As TextBox = Nothing

For Each xObject As Object In Me.Controls
    If TypeOf xObject Is TextBox Then
        xTextBox = xObject
        xTextBox.Text = ""
    End If
Next

Dave
Who am I?:
Web|Facebook|Twitter|LinkedIn|Bebo

Re: How to clear multiple textboxes in a form (using vb.net)

Luc Baetsle31-Oct-09 3:19