WebRessurs.no - Webprogrammering og ressurs innen ASP, ASP.NET, PHP, SQL, HTML, CSS, Javascript, XML, C#, VB, Flash mm.

KODE EKSEMPLER

ASP.net (199)

ASP 3.0 (111)

PHP (30)

HTML (66)

SQL (89)

CSS (46)

XML (7)

JavaScript (78)

Diverse kode (13)

ARTIKLER / RESSURSER

Programmering (22)

System og drift (15)

Trafikk og inntekt (11)

Guider og tips (22)

Nyttig lesestoff (23)

Web forum (604)

Link galleri (565)

KURS / TUTORIALS

ASP.NET kurs(5)

CSS kurs (2)

JQuery kurs (2)

FILM / MEDIA

Øk trafikken (8)

Facebook App. (4)

Microsoft CEO (6)

GRATIS SOFTWARE

Server & web

Internett & epost

Systemverktøy

Sikkerhet

Fildeling

Lyd & media

Diverse software

TJENESTER

Domenesalg

Metagenerator

Websikre farger

WebMail

ANNET

Bli medlem!

Siste innlegg

Gjestebok

Tips en venn

Kontakt oss

Forsiden

INTERNETT HASTIGHET

Oppdatere en tabell ved hjelp av Update metoden til Recordset objektet

av Øyvind A. Isaksen

Man kan benytte Update metoden til Recordset objektet (RS.Update) for å oppdatere felter i en tabell. I dette kodeeksempelet viser vi også hvordan du kan legge databasekoblingen og opprette et recordset i en egen prosedyre (callDB), for så å benytte denne prosedyren til å utføre ønskede operasjoner (her: oppdatere brukernavn og passord).

sub callDB(sqlString, byRef RS)
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Const adCmdText = &H0001

DIM SQLSERVERSettings
SQLSERVERSettings = "Provider=sqloledb; Data Source=servernavn; Initial Catalog=databasenavn; User Id=brukernavn; Password=passord;"

Set DB = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
DB.Open (SQLSERVERSettings)
RS.Open sqlString, DB, adOpenKeyset, adLockOptimistic, adCmdText
set conn = Nothing
set DB = Nothing

end sub

sub updateUser(inputUserID,inputEmail,inputPassword)
SQL = "select password,email from tblUser where id=" & inputUserID
call callDB(SQL, RS)
if not RS.EOF then
rs.Fields("password").Value = inputPassword
rs.Fields("email").Value = inputEmail
rs.Update
end if
RS.Close
set RS = nothing
end sub

----------------------------------------------------------------------------
Ekstra: Hente et utvalg records med samme metode (callDB)
----------------------------------------------------------------------------

Dim strSQL, objRs

strSQL = "select * from tblUser"

Call callDB(strSQL, objRS)
If objRS.EOF Then
arrUser = Null
Else
arrUser = objRS.GetRows()
End If

objRS.Close : Set objRS = Nothing
End Sub

----------------------------------------------------------------------------
Ekstra: Vi utviker eksempelet ytterligere
----------------------------------------------------------------------------

'Denne prosedyren kan feks ligge i en fil med navnet "logic.asp"
'som inkluderes i prosjektet/løsningen:

sub getElementContent(elementId, byRef contentArray)
call getElementContentData(elementId, contentArray)
end sub

'Denne prosedyren kan feks ligge i en fil med navnet "db.asp"
'som inkluderes i prosjektet/løsningen:

sub getElementContentData(elementId, byRef contentArray)
sqlStr = "select * from tblUser"

call callDB(sqlStr, RS)
if RS.eof then
contentArray = Null
else
contentArray = RS.getrows()
end if
end sub

'pageElements vil inneholde et Array med all data som returneres:
call getElementContent(ID, pageElements)

Vi skriver ut et felt feks slik:
Response.Write(pageelements(2,0))

Se også denne artikkelen for mer info:
http://www.webressurs.no/main/kode/detalj.asp?kodeid=367
%>

WebRessurs.no er utviklet og drives av SoftMaker
Sett som startside: [ ]. Bokmerk denne siden: [ klikk ]. Sitemap. http://twitter.com/webressurs_no/. Antall brukersesjoner: 14838511.
Copyright WebRessurs.no © 2003 - 2018