PHP@Sindrem.com - et online opplæringssenter i PHP, ASP, JavaScript og SQL.

Åpne opp Visual Basic, lag en ny ActiveX dll, lagre
prosjektet som parameter og døp klassen til funksjon. 
Denne koden tar altså inn sql-spørringa som
innparameter. Det vil også være enkelt å lage
connection-strengen som innparameter. Det må understrekes at
dette er et MEGET enkelt eksempel uten noen som helst form for
feilsjekking.

Koden i "funksjon" ser slik ut:

Function getlist(sql As String) As Variant 
'sender inn sql-spørringen' 
Dim rs As New ADODB.Recordset 
'lager et nytt recordset' 
rs.CursorType = adOpenStatic 
'setter cursortypen' 
Const Connect = "DSN=sindre; UID=alle; pwd=alle;" 
'lager connectionstringen' 
rs.Open sql, Connect 
'åpner strenger' 
getlist = rs.GetRows() 
rs.Close 
'lukker rs' 
End Function

Du må også huske å kompilere den til en
dll-fil som du døper til parameter. Deretter åpner du
DOS å skriver "regsvr32.exe parameter.dll". Gjorde du noe
feil?? Isåfall du du skrive "regsvr32.exe parameter.dll 
/u" og registrere den på nytt...

Som kalles opp slik på en ASP-side:

<% 
Dim Products,Productlist,Product 
Set Products = Server.CreateObject("parameter.funksjon") 
Productlist = Products.getlist("select * from kunder") 
For each Product in Productlist 
Display=display&Product&" " 
Next 
Response.write Display 
%>

Håper dere får det til, og hvis det er noen
spørsmål er det bare å maile!

Skrevet av Sindre Mathisen 2001

Spam vil bli anmeldt. Jeg vil se igjennom forslagene før de blir lagt ut.

<< tilbake

Nyttige program