1 개요

2 샘플

On Error Resume Next

DB_SERVER = "localhost"
DB_DATABASE = "AdventureWorks"
DB_CONNECT_STRING = "Provider=SQLOLEDB.1;Data Source=" & _
    DB_SERVER & "; Initial Catalog=" & DB_DATABASE & ";Trusted_Connection=Yes"

Set myConn = CreateObject("ADODB.Connection")
Set myRecordset = CreateObject("ADODB.Recordset")

myConn.Open = DB_CONNECT_STRING
myRecordset.Open "SELECT AddressID, City FROM Person.Address", myConn

Set myResult = myRecordset
myResult.MoveFirst

Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.CreateTextFile("C:\test.html", True)

file.WriteLine "<html><body><table><tr>"
For Index = 0 To myResult.Fields.Count - 1
    file.WriteLine "<td>" & myResult.Fields.Item(Index).Name & "</td>"
Next
file.WriteLine "</tr>"

While (Not myResult.EOF)
    file.WriteLine "<tr>"
    For Index = 0 To myResult.Fields.Count - 1
        file.WriteLine "<td>" & myResult.Fields.Item(Index).Value & "</td>"
    Next
    file.WriteLine "</tr>"
    myResult.MoveNext
Wend

file.WriteLine "</body></html>"

3 링크

see also VisualBasic, WindowsScript, SqlServer

CategoryLanguage, CategoryDatabase

FindPage by browsing, title search , text search or an index
Or try one of these actions: AttachFile, DeletePage, LikePages, LocalSiteMap, RenamePage, SpellCheck

SeriousMoin v1 (koMoinMoin 1.0a4 Modified)