Database

6-Apr-06 3:53

Cant get this code to work!? I need to write stuf to my database (access), but it wont work.

The errormessage I get says:
"
Operation must use an updateable query.
Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code.

Exception Details: System.Data.OleDb.OleDbException: Operation must use an updateable query.
"

What do they mean with an updateble query???

////// C O D E \\\\\\\\

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

Dim dbconn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; data source = C:\Inetpub\wwwroot\IED416\ied416lp3_19\db\handel.mdb")
Dim dbinsert As OleDb.OleDbCommand

dbconn.Open()

dbinsert = dbconn.CreateCommand
dbinsert.CommandText = "INSERT INTO Kunder (Namn,Ort) VALUES ('Christian','Sweden')"
dbinsert.Connection = dbconn

dbinsert.ExecuteNonQuery()

MsgBox("Weee")

dbconn.Close()

End Sub

////// C O D E \\\\\\\\

albCode6-Apr-06 4:56

6-Apr-06 4:56

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

Dim dbconn As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0;data source = C:\Inetpub\wwwroot\IED416\ied416lp3_19\db\handel.mdb")
Dim dbinsert As OleDbCommand;
dbconn.Open()
dbinsert.Connection = dbconn
dbinsert.CommandText = "INSERT INTO Kunder (Namn,Ort) VALUES ('Christian','Sweden')"
dbinsert.ExecuteNonQuery()
MsgBox("Weee")
dbconn.Close()

End Sub

Question:
'Your table Kunder does have only two columns (Name and Ort)?

ChrRun6-Apr-06 5:16

6-Apr-06 5:16

Hmm no... 3 coloums

ID, Name, Ort

ID is autoincreasment.

albCode6-Apr-06 5:31

6-Apr-06 5:31

If is AutoNumber it should work your code (modified by me) posted before.

ChrRun6-Apr-06 9:34

6-Apr-06 9:34

Errormessage:
Type 'OleDbConnection' not defined
Type 'OleDbCommand' not defined

Where should this code be? >>Import System.Data.OleDb<< and what is the meaning with it?

I get error on 'Import', cause of "Declaration expected" ...

What to do? I use Visual Basic.Net

albCode6-Apr-06 20:54

6-Apr-06 20:54

Imports.System.Data.OleDb
.
.
.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim strconn As String
strconn = "Provider=Microsoft.Jet.OleDb.4.0;data source = C:\Inetpub\wwwroot\IED416\ied416lp3_19\db\handel.mdb"
Dim dbconn As OleDbConnection = New OleDbConnection(strconn)
Dim dbinsert As OleDbCommand = New OleDbCommand("INSERT INTO Kunder (Namn,Ort) VALUES ('Christian','Sweden')", dbconn)
dbconn.Open()
dbinsert.ExecuteNonQuery()
MsgBox("Weee")
dbconn.Close()

End Sub

Imports.System.Data.OleDb means that you are using OLEDB Provider for your database
for more info check this

ChrRun6-Apr-06 22:48

6-Apr-06 22:48

It give me error when I write this code.

'Import' statements must precede any declarations.

Imports.System.Data.OleDb
'''''''

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button2.Click
Dim dbconn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; data source = C:\Inetpub\wwwroot\IED416\ied416lp3_19\db\handel.mdb")
Dim dbinsert As OleDb.OleDbCommand
dbconn.Open()
dbinsert = dbconn.CreateCommand
dbinsert.CommandText = "INSERT INTO Kunder (Namn,Ort) VALUES ('Christian','Sweden')"
>> dbinsert.CommandText = "UPDATE Kunder SET (Namn='Christian',Ort = 'Sweden')"
dbinsert.Connection = dbconn
dbinsert.ExecuteNonQuery()
MsgBox("Weee")
dbconn.Close()
End Sub

I also tried the line of code with UPDATE, but it didnt work.

Pleeze help me!!!

albCode6-Apr-06 23:06

6-Apr-06 23:06

1. Double click in button and go on top of the class and write this line of code Imports.System.Data.OleDb
2. Code which i modified at least time must work (must insert data in your dataabse)
3. When you try to update data you should based in ID of that row. (ID is Autonumber as you said)
4. Can you share here your update code
5. Did you check link which i have posted before?

ChrRun6-Apr-06 23:31

6-Apr-06 23:31

I did check the link.

But I dont get any smarter =)

The code you wrote dont work, look at the picture.

Picture

When I delete the ";" all the errors dissaears, but then I get the errormessage: "Object reference not set to an instance of an object."

The line of code... Imports.System.Data.OleDb I need to write without the first dot, like this: Imports System.Data.OleDb, do you work in the same program like me?

albCode6-Apr-06 23:37

6-Apr-06 23:37

1. You have right that for importin OleDb namespace it should be like this Imports System.Data.OleDb
2. Delete ';' and debug your appliaction

here is correct code

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />
        Dim strconn As String<br />
        strconn = "Provider=Microsoft.Jet.OleDb.4.0;data source = C:\Inetpub\wwwroot\IED416\ied416lp3_19\db\handel.mdb"<br />
        Dim dbconn As OleDbConnection = New OleDbConnection(strconn)<br />
        Dim dbinsert As OleDbCommand<br />
        dbconn.Open()<br />
        dbinsert.Connection = dbconn<br />
        dbinsert.CommandText = "INSERT INTO Kunder (Namn,Ort) VALUES ('Christian','Sweden')"<br />
        dbinsert.ExecuteNonQuery()<br />
        MsgBox("Weee")<br />
        dbconn.Close()<br />
<br />
    End Sub

ChrRun6-Apr-06 23:39

6-Apr-06 23:39

>>>>>Errormessage<<<<<

albCode6-Apr-06 23:42

6-Apr-06 23:42

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />
Dim strconn As String<br />
        strconn = "Provider=Microsoft.Jet.OleDb.4.0;data source = C:\Inetpub\wwwroot\IED416\ied416lp3_19\db\handel.mdb"<br />
        Dim dbconn As OleDbConnection = New OleDbConnection(strconn) <br />
        dbconn.Open()<br />
        Dim dbinsert As OleDbCommand = New OleDbCommand("INSERT INTO Kunder (Namn,Ort) VALUES ('Christian','Sweden')", dbconn)<br />
        dbinsert.ExecuteNonQuery()<br />
        MsgBox("Weee")<br />
        dbconn.Close()<br />
<br />
End Sub

ChrRun6-Apr-06 23:53

6-Apr-06 23:53

>>> Code <<<<
>>> E-message <<<<

My knowledge of these problem is very finite Smile | :)

Im very thankful of ur help!!

albCode7-Apr-06 0:04

7-Apr-06 0:04

Dude this code below works 100% and your duty is just to copy from here and paste in your project

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />
<br />
Dim strconn As String ' here declare string variable for instance of OleDbConnection<br />
strconn = "Provider=Microsoft.Jet.OleDb.4.0;data source = C:\Inetpub\wwwroot\IED416\ied416lp3_19\db\handel.mdb" ' here initialize  string  variable  by  givin  string  of  conenction<br />
Dim dbconn As OleDbConnection = New OleDbConnection(strconn) 'here  initialize OleDbConnection  with string  variable<br />
dbconn.Open() 'Here open OleDb connection string<br />
Dim dbinsert As OleDbCommand = New OleDbCommand("INSERT INTO Kunder (Namn,Ort)  VALUES ('Christian','Sweden')", dbconn)  'Here is initialize  of OleDbCommand  and  here you  get  your  error but if  you  use  this  code  you  should  not  get  any  error<br />
dbinsert.ExecuteNonQuery() 'Here  executed  OleDbCommand <br />
MsgBox("Weee") 'Here Display MessageBox with string Weee<br />
dbconn.Close() ' Here Closed  your  connection string<br />
<br />
End Sub

-- modified at 6:04 Friday 7th April, 2006