Avatar billede rebel_penguin Nybegynder
21. november 2003 - 10:32 Der er 3 kommentarer

Db forbindelse

Har følgende database forbindelse forbindelse (system jeg har overtaget fra anden udvikler).

Set rsExperts = Server.CreateObject("ADODB.Recordset")
rsExperts.Open "Experts", objConn, adOpenForwardOnly, adLockOptimistic, adCmdTable

Dim strName, strValue                                  ' create session variables
  For each strField in rsExperts.Fields
  strName = strField.Name
    if strName <> "ExpertID" and strName <> "FileNameExpert1" and strName <> "FileNameExpert2" _
      and strName <> "FileExpert1" and strName <> "FileExpert2" then
    if rsExperts(strName).type=202 then
      if rsExperts(strName).DefinedSize<Len(Uploader.Form(strName)) then _
          Session("messages") = " The number of characters entered in the field " & strName & _
        " excides the allowed maximum of " & rsExperts(strName).DefinedSize & ". Please, type in fewer characters! "
    end if
    Session(strName) = Uploader.Form(strName)
    end if
  Next

Har ikke selv arbejdet med db forbindelse på den måde (bruger selv set RS = MyConn.Execute("SELE..."))

Er det korrekt forstået at:

rsExperts.Open "Experts", objConn, adOpenForwardOnly, adLockOptimistic, adCmdTable - åbner tabellen experts? Hvad hvis man kun vil hente spcifikke entititer (altså en sql sætning)

Hvad sker der lige præcis her:
For each strField in rsExperts.Fields
  strName = strField.Name
    if strName <> "ExpertID" and strName <> "FileNameExpert1" and strName <> "FileNameExpert2" _
      and strName <> "FileExpert1" and strName <> "FileExpert2" then
    if rsExperts(strName).type=202 then

takker på forhånd for hjælpen
rebel_penguin
Avatar billede hossein Nybegynder
21. november 2003 - 10:46 #1
strExperts er navnet på din sql sætning:

Set rsExperts = Server.CreateObject("ADODB.Recordset")
strExperts = "Select * from tblMIN where..."
rsExperts.Open strExperts, objConn, 1, 1
Avatar billede hossein Nybegynder
21. november 2003 - 10:48 #2
Dette tegn * betyder alle felter i tabellen. Ellers skal du skrive navnet på de felter som du vil udskrive:
strExperts = "Select navn, adresse from tblMIN where..."
Avatar billede rebel_penguin Nybegynder
28. november 2003 - 16:02 #3
hvad med For each strField in rsExperts.Fields
  strName = strField.Name
    if strName <> "ExpertID" and strName <> "FileNameExpert1" and strName <> "FileNameExpert2" _
      and strName <> "FileExpert1" and strName <> "FileExpert2" then
    if rsExperts(strName).type=202 then

takker på forhånd for hjælpen
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester