Søg
Avatar billede lullalej Nybegynder
02. november 2003 - 20:02 Der er 2 kommentarer og
1 løsning

Vis antal rows fra MySQL db?

Kan man ikke lave sådan så samurize viser et antal rows fra en MySQL db, eller viser teksten fra en js side? Hvis ja, hvordan? :D
Avatar billede sth Novice
13. november 2003 - 17:30 #1
Ønsker du at hente data fra en mysql db?

så kunne du gøre noget i stil med dette:

Set objExplorer = CreateObject("InternetExplorer.Application")
objExplorer.Navigate "blank:about"
objExplorer.ToolBar = False
objExplorer.StatusBar = False
objExplorer.Width = 400
objExplorer.Height = 400
objExplorer.Left = 0
objExplorer.Top = 0
objExplorer.Visible = True

Do While(objExplorer.Busy)
Loop

Set objDocument = objExplorer.Document

objDocument.Open
objDocument.Writeln "<html><head><title>Her er de mulige vare</title></head>"
objDocument.Writeln "<body bgcolor='white'>"
objDocument.Writeln "<TABLE><TR><TD><B>Vare navn</B></TD><TD><B>Pris</B></TD>"

SQLserveradr="en_eller_anden_ipadresse"
SQLdatabase="min_database"   
SQLlogin="login_navn"
SQLpassword="hemlig_password"

Set Conn = CreateObject("ADODB.Connection")
Conn.Open "driver={MySQL ODBC 3.51 Driver};server="& SQLserveradr &";database="& SQLdatabase &";uid="& SQLlogin &";pwd="& SQLpassword
   
SQLstmt ="SELECT * from products"
Conn.Execute (SQLstmt)
Set rs = conn.Execute(SQLstmt)
      DO WHILE NOT rs.EOF
        catalogID        = rs("catalogID")
        cname            = rs("cname")
        cprice            = rs("cprice")
        cprice            = Replace(cprice, ",",".")



objDocument.Writeln "</TR><TR>    <TD>"&cname & "</TD>    <TD>" &cprice &"</TD></TR>"
rs.MoveNext
LOOP

objDocument.Writeln "</TABLE>"


conn.Close
Set conn = nothing
Set SQLstmt = nothing
'objExplorer.Quit ' hvis der skal lukkes automatisk
Avatar billede lullalej Nybegynder
15. november 2003 - 13:56 #2
Det virker ikke.....

Det skal bruges i Samurize, og så vidt jeg kan se ud fra dit script viser den alle records i stedet for antallet af records som den skulle. Men det virker slet ikke, den åbner en IE som heller ikke virker.
Avatar billede lullalej Nybegynder
18. marts 2004 - 21:30 #3
Hmmm....
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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra VBscript kategorien

Titel Indlæg Oprettet Seneste aktivitet
VBS Af bsn i VBscript 5 16/07/202614:01 18/07/202610:46
Ændre navn på folder Af bsn i VBscript 12 07/07/202312:45 09/07/202307:04
Outlook makro Af Webnoob i VBscript 6 09/02/202313:32 16/02/202315:51
Sti / Filname med mellemrum ??? Af ksor i VBscript 10 07/10/202200:43 07/10/202215:40
GetLastRow - Google spreadsheet Af rickiegrayholm i VBscript 2 22/04/202213:23 22/04/202214:55
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
25/0916:15 Internet forsvinder hele tiden Af TTA i Internetforbindelser
23/0920:49 Fejl på Tv2 Play Af Bukse i Browsere
23/0918:11 VB, Lægge 2 celler sammen og skrive den i cellen ved side af Af MC3390 i Excel
21/0910:39 DBA er ikke hvad det tidligere var - desværre! Af ErikHg i Fri debat
18/0919:52 Libre office skriveprogram Af Frank i Office & Kontorpakker
White papers
Flere white papers »