Notifikationer

Markér alle som læst Log ud

stinejh1980 Nybegynder

06. december 2005 - 13:48 Der er 3 kommentarer og
1 løsning

Do While - Loop

Hvorfor viser denne kun den sidste sætning i Db???

Sub BtnHent_Click(sender As Object, e As EventArgs)
Dim strSQL as string

strSQL = "Select NAME from SalesLine;"
ObjConn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.Mappath("AXAPTA.MDB") & ";")
ObjComm = New OleDbCommand(strSQL, objConn)

ObjConn.Open()
ObjRs = objComm.ExecuteReader()
'response.write(strSQL)
Do While objRs.Read() = true
LblVis.text = "<table><tr><td>Navn</td><td>" & objrs("NAME") & "</td></tr></tabel><hr>"
Loop
ObjRs.Close()
objConn.Close()
End Sub

Synes godt om

erikjacobsen Ekspert

06. december 2005 - 13:48 #1

Prøv at rette </tabel> til </table>

Synes godt om

erikjacobsen Ekspert

06. december 2005 - 13:49 #2

Og så:

LblVis.text = LblVis.text & "<table><tr><td>Navn</td><td>" & objrs("NAME") & "</td></tr></table><hr>"

Synes godt om

stinejh1980 Nybegynder

06. december 2005 - 13:55 #3

Jeg har brugt samme kontruktion før, men på denne måde:
Do While objRs.Read() = true
lblShow.text += "<table width='60%' border='0' align='center' cellpadding='2' cellspacing='2' >"
lblShow.text += "<tr><td class='Showtext'>Clientno:</td><td class='Text'>" & objrs("clientno") & "</td></tr>"
lblShow.text += "<tr><td class='Showtext'>Password:</td><td class='Text'>" & objrs("password") & "</td></tr>"
lblShow.text += "<tr><td class='Showtext'>Companyname:</td><td class='Text'>" & objrs("companyname") & "</td></tr>"
lblShow.text += "<tr><td class='Showtext'>Contactname:</td><td class='Text'>" & objrs("contactname") & "</td></tr>"
lblShow.text += "<tr><td class='Showtext'>Adress:</td><td class='Text'>" & objrs("adress") & "</td></tr>"
lblShow.text += "<tr><td class='Showtext'>City:</td><td class='Text'>" & objrs("city") & "</td></tr>"
lblShow.text += "<tr><td class='Showtext'>State:</td><td class='Text'>" & objrs("state") & "</td></tr>"
lblShow.text += "<tr><td class='Showtext'>Zipcode:</td><td class='Text'>" & objrs("zipcode") & "</td></tr>"
lblShow.text += "<tr><td class='Showtext'>Phonenumber:</td><td class='Text'>" & objrs("phoneno") & "</td></tr>"
lblShow.text += "<tr><td class='Showtext'>E-mail:</td><td class='Text'>" & objrs("email") & "</td></tr>"
lblShow.text += "<tr><td class='Showtext'>Projectstatus:</td><td> </td>"
lblShow.text += "<tr class='Text'><td colspan='2' align='left'>" & objrs("projectstatus") & "</td>"
lblShow.text += "</tr></table><hr>"
Loop

Og da virkede det fint

Synes godt om

stinejh1980 Nybegynder

13. december 2005 - 16:32 #4

Satte html uden for sub'en
Lukker selv

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Send mail fra "Outlook New" via VBA i excel Af lonmat i Visual Basic	5	29/08/202512:28	04/09/202515:48
Klik Event i MS Project Af per2edb i Visual Basic	0	05/08/202510:10	-
VBA koder lagt i MS project kolonner Af per2edb i Visual Basic	0	16/05/202512:31	-
Foto fra Word eller Excel Af MSchlamovitz i Visual Basic	1	22/04/202514:55	25/04/202511:21
Proxy server.. Af SommerFyr i Visual Basic	12	10/07/202417:34	12/07/202414:34

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS