Db Connection and DataGrids

[adz1809]

Hi all,

I'm have issues with my DB connection and the use of DataGrids.

My DB connection is through my web.config file and the sub looks as follows:

[HTML]sub OpenDatabase()

sysConn = ConfigurationSettings.AppSettings("SystemConnectio n")

sysDatabase = server.createobject("ADODB.connection")
sysDatabase.open(sysConn)

end sub[/HTML]

This me sub for my DataGrid:

[HTML]Sub BindData()

sysConn = ConfigurationSettings.AppSettings("SystemConnectio n")

objCmd = New OleDbCommand("SELECT top 10 * FROM tbl_ACCO_EU_Contacts", sysDatabase)

sysDatabase = server.createobject("ADODB.connection")

sysDatabase.open(sysConn)

objRdr = objCmd.ExecuteReader()

dbcontacts.DataSource = objRdr

dbcontacts.DataBind()

objRdr.Close()

End Sub[/HTML]

Where am I going wrong?

Cheers
adz

[dip_developer]

Hi all,

I'm have issues with my DB connection and the use of DataGrids.

My DB connection is through my web.config file and the sub looks as follows:

[HTML]sub OpenDatabase()

sysConn = ConfigurationSettings.AppSettings("SystemConnectio n")

sysDatabase = server.createobject("ADODB.connection")
sysDatabase.open(sysConn)

end sub[/HTML]

This me sub for my DataGrid:

[HTML]Sub BindData()

sysConn = ConfigurationSettings.AppSettings("SystemConnectio n")

objCmd = New OleDbCommand("SELECT top 10 * FROM tbl_ACCO_EU_Contacts", sysDatabase)

sysDatabase = server.createobject("ADODB.connection")

sysDatabase.open(sysConn)

objRdr = objCmd.ExecuteReader()

dbcontacts.DataSource = objRdr

dbcontacts.DataBind()

objRdr.Close()

End Sub[/HTML]

Where am I going wrong?

Cheers
adz

are you creating the command object before opening the connection..?? as your code suggests...............

I think no problem in the code otherwise if connection and other stuffs are ok.

[adz1809]

are you creating the command object before opening the connection..?? as your code suggests...............

I think no problem in the code otherwise if connection and other stuffs are ok.

This is the code at the moment:

[HTML]Sub BindData()

opendatabase()

objCmd = New OleDbCommand("SELECT top 10 * FROM tbl_ACCO_EU_Contacts", sysConn )

objRdr = objCmd.ExecuteReader()

dbcontacts.DataSource = objRdr

dbcontacts.DataBind()

objRdr.Close()

End Sub[/HTML]

And I'm getting this error:

Server Error in '/AccoEndUser' Application.
--------------------------------------------------------------------------------

Specified cast is not valid.
Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code.

[HTML]Exception Details: System.InvalidCastException: Specified cast is not valid.

Source Error:


Line 55: opendatabase()
Line 56:
Line 57: objCmd = New OleDbCommand("SELECT top 10 * FROM tbl_ACCO_EU_Contacts", sysConn )
Line 58:
Line 59: objRdr = objCmd.ExecuteReader()


Source File: C:\Websites\Acco_EndUser\record_srch.aspx Line: 57[/HTML]

Any help geratly needed.

Cheers

Adz

[adz1809]

This is the code at the moment:

[HTML]Sub BindData()

opendatabase()

objCmd = New OleDbCommand("SELECT top 10 * FROM tbl_ACCO_EU_Contacts", sysConn )

objRdr = objCmd.ExecuteReader()

dbcontacts.DataSource = objRdr

dbcontacts.DataBind()

objRdr.Close()

End Sub[/HTML]

And I'm getting this error:

Server Error in '/AccoEndUser' Application.
--------------------------------------------------------------------------------

Specified cast is not valid.
Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code.

[HTML]Exception Details: System.InvalidCastException: Specified cast is not valid.

Source Error:


Line 55: opendatabase()
Line 56:
Line 57: objCmd = New OleDbCommand("SELECT top 10 * FROM tbl_ACCO_EU_Contacts", sysConn )
Line 58:
Line 59: objRdr = objCmd.ExecuteReader()


Source File: C:\Websites\Acco_EndUser\record_srch.aspx Line: 57[/HTML]

Any help geratly needed.

Cheers

Adz

All sorted, here is the finished code:

[HTML]Sub BindData()

dim dsn As String = ConfigurationSettings.AppSettings("SystemConnectio n")

dim objConn as New OleDbConnection(dsn)

objCmd = New OleDbCommand("SELECT top 10 * FROM tbl_ACCO_EU_Contacts", objConn )

objConn.open()

objRdr = objCmd.ExecuteReader()

dbcontacts.DataSource = objRdr

dbcontacts.DataBind()

objRdr.Close()

End Sub[/HTML]