DB Connection in Config.web using VB calls.

StuartD · Apr 28, 2012

Hi all, All demos in the quickstart have a connection string right in the Page_Onload sub. In the portal example this uses a config.web key that each page can then call the connection string by a Key instead of embedding the connection string in each page. This example in the portal example is done in c#. This is my 1st attempt to do this in VB and hit a brick wall. In asp applications, I put in the global.asa (which all we know is nice and secure....HAHA) and had an include file that called the application root that was set in global.asa on top of each page. Am I going about this the wrong way? Below is the config.web, page i&#039m using, Error i&#039m getting and what the compiler spits out steve schofield [email protected] Webmaster http://aspfree.com Here is my config.web <configuration> <security> <authorization> <allow users="*" />  </authorization> </security> <configsections> <add name="aspfreedsn" type="System.Web.Configuration.DictionarySectionHandler"/> </configsections> <aspfreedsn> <set key="aspfreedsn" value=http://aspmessageboard.com/archive/index.php/"server=localhost;uid=connID;pwd=Password;database= devDB" /> </aspfreedsn> </configuration> Page that I&#039m trying to use. <%@ Import Namespace="System.Data" %> <%@ Import Namespace="System.Data.SQL" %> <html> <script language="VB" runat="server"> Sub Page_Load(Sender As Object, E As EventArgs) Dim DS As DataSet Dim MyConnection As SQLConnection Dim MyCommand As SQLDataSetCommand String mydsn = (String) ((Hashtable) Context.GetConfig("aspfreedsn"))("devDB") MyConnection = New SQLConnection(mydsn) MyCommand = New SQLDataSetCommand("select * from tblSiteName", MyConnection) DS = New DataSet() MyCommand.FillDataSet(DS, "tblSiteName") MyDataList.DataSource = DS.Tables("tblSiteName").DefaultView MyDataList.DataBind() End Sub </script> <body> <ASP

ataList id="MyDataList" runat="server"> RepeatColumns="2" RepeatDirection="Horizontal" ItemStyle-Font-Size="10pt" ItemStyle-Font-Name="Verdana" </ASP

ataList> </body> </html> Error I&#039m getting Syntax Error: Line 11: Dim MyCommand As SQLDataSetCommand Line 12: Line 13: String mydsn = (String) ((Hashtable) Context.GetConfig("aspfreedsn"))("devDB") Line 14: MyConnection = New SQLConnection(mydsn) Line 15: MyCommand = New SQLDataSetCommand("select * from tblSiteName", MyConnection) Here is what the compiler spits out C:WINNTsystem32> "vbc.exe" /t:library /R:"C:WINNTComPlusv2000.14.1812System.Drawing.DLL" /R:"C:WINNTComPlusv2000.14.1812System.Text.RegularExpr essions.DLL" /R:"C:WINNTComPlusv2000.14.1812System.DLL" /R:"C:WINNTComPlusv2000.14.1812System.Web.DLL" /R:"C:WINNTComPlusv2000.14.1812System.Data.DLL" /R:"C:WINNTComPlusv2000.14.1812System.Web.Services.DLL" /R:"C:WINNTComPlusv2000.14.1812System.Xml.Serializatio n.DLL" /out:"c:inetpubwwwroot estcodegengen2292.dll" /optionexplicit- /debug- "c:inetpubwwwroot estcodegengen2292.freehosts_aspx.vb" Microsoft (R) Visual Basic Compiler Version 7.00.8905 [NGWS version 2000.14.1812.10] Copyright (C) Microsoft Corp 2000. All rights reserved. c:inetpubwwwroot estfreehosts.aspx(13) : error BC30035: Syntax error String mydsn = (String) ((Hashtable) Context.GetConfig("aspfreedsn"))("devDB") ~~~~~~ Hey Steve, I put a reply up on ASPFree.com http://www.aspfree.com/discuss_aspplus/GetMessage.asp?RootID=6214&ID=6216 ______________________________________ Don R. Wolthuis, MCSD CodeJunkies.Net / ASPNextGen.com [email protected] Visit www.ASPNextGen.com or www.theFutureOfASP.com, both brought to you exclusively by CodeJunkies.Net, for tutorials and information on ASP+ - the next generation of Active Server Pages. http://www.codejunkies.net

DB Connection in Config.web using VB calls.

StuartD

New Member