Tilfoej data til database og derefter laeste det
HejJeg har tilfoejet noget til min db og derefter koere jeg en select, men min select henter ikke den ny opdatering.
Hvordan kan det vaere og kan jeg goere noget for at loese det ?
Kode :
Dim arrAssProj
vartest = 0
arrAssProj = Split(varchkProjectAdd, ",")
if len(varchkProjectAdd) > 0 then
for i = 0 to ubound(arrAssProj)
SQLAssProj = "INSERT INTO tblTaskToolProRght (ProjectID, UserID) "
SQLAssProj = SQLAssProj & " VALUES ('" & arrAssProj(i) & "','" & varUserName & "')"
conn.execute(SQLAssProj)
vartest = vartest + 1
next
end if
' Creating new Array to contain current list of projects in the tblTaskToolProRght
SQLNewUsersProject = "SELECT * FROM tblTaskToolProRght WHERE UserID = '" & RsAllUsers("UserName") & "'"
RsNewUsersProject.Open SQLNewUsersProject, DSNTA, 2