Ik heb een formulier gemaakt waarin de gebruiker nieuwe gegevens kan invoeren. Deze worden opgeslagen in een access database.
Zodra ik gegevens in de database wil opslaan krijg ik de navolgende fout op line 45:
Exception Details: System.Data.OleDb.OleDbException: Syntax error in FROM clause.
Source Error:
Line 43:
Line 44: 'Fill the dataset with info from the database
Line 45: Adapter.Fill(UserDS,"User")
Ik gebruik deze code:
Na eindeloos zoeken op internet heb ik nog steeds geen idee van wat er fout gaat
.
- Rechten staan goed
- Select query is in orde
Iemand een verhelderend idee? Alvast enorm bedankt!
Zodra ik gegevens in de database wil opslaan krijg ik de navolgende fout op line 45:
Exception Details: System.Data.OleDb.OleDbException: Syntax error in FROM clause.
Source Error:
Line 43:
Line 44: 'Fill the dataset with info from the database
Line 45: Adapter.Fill(UserDS,"User")
Ik gebruik deze code:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
| <%@ Page Language="VB" Debug="True" Explicit="True" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.Oledb" %>
Sub SaveAndNext (Sender As Object, E As EventArgs)
'Create Database connection information
Dim Connect As OleDbConnection = New OleDbConnection
Dim ConnectString As String
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\Inetpub\wwwroot\crf\data\users.mdb"
Connect.ConnectionString = ConnectString
'Create the database commands
Dim InsertRowCommand As OleDbCommand = New OleDbCommand
'Create the SQL and gives the connection info to the command object
InsertRowCommand.CommandText = "Select * from User"
InsertRowCommand.Connection = Connect
'Create a adapter and gives the command object to the adapter object
Dim Adapter As OleDbDataAdapter = New OleDbDataAdapter
Adapter.SelectCommand = InsertRowCommand
'Connect to the database
Adapter.SelectCommand.Connection.Open
'Create a dataset to store the tables in.
Dim UserDS As DataSet = New DataSet
'Fill the dataset with info from the database
Adapter.Fill(UserDS,"User")
Dim Row As DataRow
Row = UserDS.Tables("User").NewRow
Row.Item("CRF") = 1
Row.Item("Username") = Username.Text
Row.Item("Domain") = Domain.SelectedItem.Text
Row.Item("Firstname") = Firstname.Text
Row.Item("Lastname") = Lastname.Text
Row.Item("Mail") = Email.Text
Row.Item("Location") = Location.SelectedItem.Text
Row.Item("sector") = Sector.SelectedItem.Text
Row.Item("Department") = Department.Text
Dim ItemNum As Integer
Dim RoleForDB As String
For ItemNum = 0 To Role.Items.Count - 1
If Role.Items(ItemNum).Selected = True Then
RoleForDB = RoleForDB & Role.Items(Itemnum).Text
End If
Next
Row.Item("Role") = RoleForDB
UserDS.Tables("User").Rows.Add(Row)
Adapter.Update(UserDS,"User")
Response.redirect("CreateNewUser.aspx")
End Sub |
Na eindeloos zoeken op internet heb ik nog steeds geen idee van wat er fout gaat
- Rechten staan goed
- Select query is in orde
Iemand een verhelderend idee? Alvast enorm bedankt!