-=Apollo=-
Legacy Member
Hallo allemaal,
ik ben momenteel bezig met een klein projecten in ASP.Net. Ik maak in de website verbinding met een Access databank.
Voor het overzichtelijk te houden heb ik gebruik gemaakt van 'unique indentifiers' om telkens een uniek nummer te hebben voor gebruikers en dergelijke. Er worden dus nummers gemaakt als deze: {712f3d4e-a853-4708-8225-81a24b24d1f3}
Nu probeer ik via een formulier nieuwe gebruikers toe te voegen, maar het insert commando lukt niet. Er zijn blijkbaar problemen met het oproepen van de juist gegenereerde ID. Die ID wordt namelijk automatisch aangemaakt in Access. Nu probeer ik die op te roepen in mijn ASP.Net pagina zodat ik een goede insert kan doorvoeren.
in mijn vb code heb ik dit als volgt aangepakt:
Eerst dacht ik dat er misschien iets fout is omtrent "newid()" die wordt opgeroepen in de select!
Hopelijk kunnen jullie me een handje helpen!!
Alvast bedankt!
ik ben momenteel bezig met een klein projecten in ASP.Net. Ik maak in de website verbinding met een Access databank.
Voor het overzichtelijk te houden heb ik gebruik gemaakt van 'unique indentifiers' om telkens een uniek nummer te hebben voor gebruikers en dergelijke. Er worden dus nummers gemaakt als deze: {712f3d4e-a853-4708-8225-81a24b24d1f3}
Nu probeer ik via een formulier nieuwe gebruikers toe te voegen, maar het insert commando lukt niet. Er zijn blijkbaar problemen met het oproepen van de juist gegenereerde ID. Die ID wordt namelijk automatisch aangemaakt in Access. Nu probeer ik die op te roepen in mijn ASP.Net pagina zodat ik een goede insert kan doorvoeren.
in mijn vb code heb ik dit als volgt aangepakt:
Code:
Imports Microsoft.VisualBasic
Imports System.Data
Imports System.Data.OleDb
Public Class n_unique_identifier
Public Shared Function get_uuid(ByVal connection_string As String) As Guid
Dim new_uuid As Guid
Dim Zeus As OleDbConnection
Dim ConnectionStringAccess As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source= C:\Inetpub\wwwroot\Zeus\Database\Zeus.mdb"
Zeus = New OleDbConnection(ConnectionStringAccess)
Dim MySQL As String = "SELECT newid() AS new_uuid "
Dim cmd As OleDbCommand = New OleDbCommand(MySQL, Zeus)
'open connection
cmd.Connection.Open()
Dim dr_sql As OleDbDataReader = cmd.ExecuteReader(CommandBehavior.CloseConnection)
If dr_sql.Read Then
new_uuid = dr_sql.GetValue(0)
End If
'close the connection
cmd.Connection.Close()
Return new_uuid
End Function
End ClassEerst dacht ik dat er misschien iets fout is omtrent "newid()" die wordt opgeroepen in de select!
Hopelijk kunnen jullie me een handje helpen!!
Alvast bedankt!