I’d like to read data from mssql 2005 in xml format. I’ve the working code in VB6 but the notes write a type mismatch at thie row:adocmd.Properties.Item(“Output Stream”).Value = outstream
What’s the problem?
This is the full code:
Sub Initialize
Dim adocmd As Variant, adoconn As Variant, adostreamquery As Variant
Dim outstream As Variant
Dim strcomm As String, query As String
Const srv = “server”
Const db = “db”
Const id = “id”
Const pw = “password”
strconn = “Provider=SQLOLEDB.1;Server=” + srv + “;Database=” + db + “;UID=” + id + “;PWD=” + pw
Set adoconn = CreateObject(“ADODB.Connection”)
Set adostreamquery = CreateObject(“ADODB.Stream”)
adoconn.ConnectionString = strconn
adoconn.Open
Set adocmd = CreateObject(“ADODB.Command”)
Set adocmd.ActiveConnection = adoconn
adoconn.CursorLocation = 3
Set adocmd.ActiveConnection = adoconn
query = “”
query = query & “sql:querySELECT * FROM dbo.telepules FOR XML AUTO</sql:query>”
query = query & “”
adostreamquery.Open
adostreamquery.WriteText query, 0
adostreamquery.Position = 0
Set adocmd.CommandStream = adostreamquery
Set outstream = CreateObject(“ADODB.Stream”)
outstream.Open
adocmd.Properties.Item(“Output Stream”).Value = outstream
adocmd.Execute , , 1024
Msgbox outstream.ReadText(-1)
End Sub