Hey allen,
Ik werk met .net 1.1, ppc 2002, win xp pro / iis 5/ msde.
Wat ik gevonden heb over de 80004005 error, is dat het met de juiste rechten te maken kan hebben. Nu vraag ik me af wat er mis is met de rechten tot mijn eigen lokale sqlce database?
Pull van MS SQL naar SQL CE gaat goed, dataset uit sqlce vullen gaat goed, maar adapter.update geeft de error.
Kan iemand mij een tip geven, want ik kom er niet uit?
And this is the code for the MS SQL database:
Ik werk met .net 1.1, ppc 2002, win xp pro / iis 5/ msde.
Wat ik gevonden heb over de 80004005 error, is dat het met de juiste rechten te maken kan hebben. Nu vraag ik me af wat er mis is met de rechten tot mijn eigen lokale sqlce database?
Pull van MS SQL naar SQL CE gaat goed, dataset uit sqlce vullen gaat goed, maar adapter.update geeft de error.
Kan iemand mij een tip geven, want ik kom er niet uit?
Visual Basic:
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
| Friend Sub PullRegistrations() If mode = "online" Then Dim strSQL As String = "SELECT * FROM registrations WHERE deleted = 0 AND user_id = '" & CurrentUser.User_ID & "'" Dim strTable As String = "registrations" Dim strErrTable As String = ERR_TABLE & strTable Try If DoesTableExist(strTable) Then DropTable(strTable) If DoesTableExist(strErrTable) Then DropTable(strErrTable) 'rda.Pull(strTable, strSQL, rdaOleDbConnectString, RdaTrackOption.TrackingOnWithIndexes, strErrTable) rda.Pull(strTable, strSQL, rdaOleDbConnectString, RdaTrackOption.TrackingOn, strErrTable) Catch err As SqlCeException myLog.Write("LocalDB.PullRegistrations(): ERROR: " & ShowErrors(err)) MsgBox(myResx.GetString("ERR_DB_PULL_SQL")) Catch err As Exception myLog.Write("LocalDB.PullRegistrations(): ERROR: " & err.Message) MsgBox(myResx.GetString("ERR_DB_PULL")) End Try Else Return End If _PocketRegistrations = New SqlCeDataAdapter _PocketRegistrations.SelectCommand = New SqlCeCommand("SELECT * FROM registrations", _localDB) _PocketRegistrations.InsertCommand = New SqlCeCommand("INSERT INTO registrations(reg_id, user_id, object_id, place_id, reg_date, duration) VALUES(?, ?, ?, ?, ?, ?)", _localDB) _PocketRegistrations.InsertCommand.Parameters.Add("regid", SqlDbType.UniqueIdentifier, 0, "reg_id") _PocketRegistrations.InsertCommand.Parameters.Add("userid", SqlDbType.UniqueIdentifier, 0, "user_id") _PocketRegistrations.InsertCommand.Parameters.Add("objectid", SqlDbType.UniqueIdentifier, 0, "object_id") _PocketRegistrations.InsertCommand.Parameters.Add("placeid", SqlDbType.UniqueIdentifier, 0, "place_id") _PocketRegistrations.InsertCommand.Parameters.Add("datum", SqlDbType.DateTime, 0, "reg_date") _PocketRegistrations.InsertCommand.Parameters.Add("tijd", SqlDbType.DateTime, 0, "duration") _PocketRegistrations.UpdateCommand = New SqlCeCommand("UPDATE registrations SET user_id=?, object_id=?, place_id=?, reg_date=?, duration=?, deleted=? WHERE reg_id=?", _localDB) _PocketRegistrations.UpdateCommand.Parameters.Add("userid", SqlDbType.UniqueIdentifier, 0, "user_id") _PocketRegistrations.UpdateCommand.Parameters.Add("objectid", SqlDbType.UniqueIdentifier, 0, "object_id") _PocketRegistrations.UpdateCommand.Parameters.Add("placeid", SqlDbType.UniqueIdentifier, 0, "place_id") _PocketRegistrations.UpdateCommand.Parameters.Add("datum", SqlDbType.DateTime, 0, "reg_date") _PocketRegistrations.UpdateCommand.Parameters.Add("tijd", SqlDbType.DateTime, 0, "duration") _PocketRegistrations.UpdateCommand.Parameters.Add("del", SqlDbType.Bit, 0, "deleted") _PocketRegistrations.UpdateCommand.Parameters.Add("regid", SqlDbType.UniqueIdentifier, 0, "reg_id") _PocketRegistrations.UpdateCommand.Parameters("regid").SourceVersion = DataRowVersion.Original '_PocketRegistrations.UpdateCommand.Parameters.Add("regid", SqlDbType.UniqueIdentifier, 0, "reg_id") _PocketRegistrations.DeleteCommand = New SqlCeCommand("DELETE FROM registrations WHERE reg_id=?", _localDB) _PocketRegistrations.UpdateCommand.Parameters.Add("regid", SqlDbType.UniqueIdentifier, 0, "reg_id") _PocketRegistrations.UpdateCommand.Parameters("regid").SourceVersion = DataRowVersion.Original '_PocketRegistrations.DeleteCommand.Parameters.Add("regid", SqlDbType.UniqueIdentifier, 0, "reg_id") _localDB.Open() _PocketRegistrations.Fill(RegData, "registrations") myLog.Write("LocalDB.PullRegistrations(): sqlceadapter filled", LogFile.Logmode.Verbose) _localDB.Close() RegData.Tables("registrations").PrimaryKey = New DataColumn() {RegData.Tables("registrations").Columns("reg_id")} RegData.Tables("registrations").Columns("reg_id").DefaultValue = NewGuid() myLog.Write("LocalDB.PullRegistrations(): primary key created", LogFile.Logmode.Debug) End Sub |
And this is the code for the MS SQL database:
SQL:
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
| CREATE TABLE [registrations] ( [reg_id] uniqueidentifier ROWGUIDCOL NOT NULL CONSTRAINT [DF_registrations_reg_id] DEFAULT (newid()), [user_id] [uniqueidentifier] NOT NULL , [object_id] [uniqueidentifier] NOT NULL , [place_id] [uniqueidentifier] NOT NULL , [reg_date] [smalldatetime] NOT NULL , [duration] [smalldatetime] NOT NULL CONSTRAINT [DF__registrat__Afsta__7A9C383C] DEFAULT (0), [deleted] [bit] NOT NULL CONSTRAINT [DF_registrations_deleted] DEFAULT (0), [processed] [bit] NOT NULL CONSTRAINT [DF_registrations_processed] DEFAULT (0), CONSTRAINT [PK_registrations] PRIMARY KEY CLUSTERED ( [reg_id] ) ON [PRIMARY] , CONSTRAINT [FK_registrations_objects] FOREIGN KEY ( [object_id] ) REFERENCES [objects] ( [object_id] ), CONSTRAINT [FK_registrations_places] FOREIGN KEY ( [place_id] ) REFERENCES [places] ( [place_id] ), CONSTRAINT [FK_registrations_users] FOREIGN KEY ( [user_id] ) REFERENCES [users] ( [user_id] ) ) ON [PRIMARY] GO |