SQL Database Connection Sample Code

As requested by some user, below is a sample code to query a MS SQL DB table


<%@ import namespace="system.data.sqlclient" %>

<Script runat="server">

Sub page_load

Dim dbconn as sqlconnection
Dim dbCMD as sqlCommand
Dim dtr as sqldatareader

dbConn = New SQLConnection ("Data Source=sql_server_name;Initial Catalog=database_name;User ID=user_name;Password=password")
dbConn.open()
dbCMD = new sqlcommand ("select * from tblTest",dbconn)
dtr = dbCMD.executereader()

While dtr.read()

response.write ("<li>")
response.write (dtr(0) & "---" & dtr(1))
End while

dtr.close()
dbConn.close()

End Sub

</Script>