Re: Oppkobling og utskrift fra MSSQL [
Besvar ]
Hei igjen. Fikk en kjapt svar fra Lurifax fra NWF. Jeg har klart å fiske ned en VB.NET Provider i stedet for en ASP Provider.
Fullt funksjonelt script blir da som følger:
<%
'********************************************************
'* Funksjoner *
'********************************************************
Function kobleTilMSSQL()
Dim Con, Ret
Ret = "Driver={SQL Server};Server=**.**.**.***;Database=Database;Uid=Brukernavn;Pwd=Passord;"
Set Con = Server.CreateObject("ADODB.Connection")
Con.Open Ret
Set kobleTilMSSQL = con
End Function
Function kobleFra()
Con.close
Set Con = nothing
End Function
'********************************************************
'* Lese fra database *
'********************************************************
Dim Con, RecSet
Set Con = kobleTilMSSQL()
SQL = "SELECT * FROM tabell"
set RecSet = server.CreateObject("ADODB.Recordset")
RecSet.Open SQL,Con
Do While Not RecSet.EOF
Response.Write RecSet.Fields("tabellnr")
RecSet.MoveNext
Loop
'********************************************************
'* Koble fra *
'********************************************************
kobleFra()
%>