Ø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
Ny bruger
Nybegynder
Opret
Preview
