myFirstConnection (fallita)

[burruchaga]

salve, scusate, sto tentando di capire cpome connettermi ad un db access. ma ancora non ci riesco. chiedo il vostro aiuto per essere illuminato.

il codice che ho scritto è questo (conterrà chissà quanti errori concettuali)

Imports System
Imports System.web
Imports System.web.UI
Imports System.web.UI.WebControls
Imports System.web.UI.HtmlControls
Imports System.IO
Imports System.Data
Imports System.Data.OleDb

Public Class db1 : Inherits page
	protected lblInfo as Label
	Dim conn AS NEW OleDbconnection()
	conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False; Data Source=" & server.mappath("/writable/rlazio.mdb")
	private sub Page_load(sender as object, e as eventArgs) handles MyBase.load

....
....
....
....

ricevo il seguente errore: Declaration expected

al rigo conn.ConnectionString="....."

cosa succede?

[riccardone]

Originariamente inviato da burruchaga
cosa succede?

dopo la dichiarazione della classe puoi inserire altre dichiarazioni di variabili usate all'interno della classe.
Il codice che utilizza le variabili devi invece racchiuderlo all'interno di sub o function (vedo che usi vb).
Quindi

Dim conn AS OleDbconnection 
private sub Page_load(sender as object, e as eventArgs) handles MyBase.load
conn = New OleDbConnection("connectionstring")

[burruchaga]

perfetto, grazie 1000. ora il problema è un'altro.

la mia prima connessione è andata. anche il mio primo datagrid. ora vorrei fare qualcosa di +. vorrei visualizzare dei pulsanti di selezione nelle varie row . e cliccando su "seleziona" la riga selezionata vorrei che venisse visualizzata con un aspetto leggermente diverso.

c'ho provato. e stranamente ricevo una pagina vuota. posto il codice, magari voi saprete spiegarmi il perchè.


db.vb

Public Class db1 : Inherits page
	protected lblInfo as Label
	protected gridEquipaggi as new Datagrid
	dim withevents listAuthor as datalist
	
	private sub Page_load(sender as object, e as eventArgs) handles MyBase.load
		if me.isPostBack = false then
			dim ds as dataset = getDataSet()
			BindGrid(ds)
		end if
	end sub

	Public Function getDataSet() as Dataset
				Dim selectd as string
				selectd="SELECT * FROM equipaggi"
				Dim conn AS NEW OleDbconnection()
				conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False; Data Source=" & server.mappath("/writable/rlazio.mdb")
				dim cmd as new OleDbCommand(selectd, conn)
				dim adapter as new OleDbDataAdapter(cmd)
				dim dsPubs as New DataSet()

				conn.open()
				adapter.Fill(dsPubs,"equipaggi")
				
			return dsPubs
	end function
	
	public sub BindGrid(ds as DataSet)
		gridEquipaggi.datasource= ds.tables("equipaggi")
		me.dataBind
	end sub
	
	private sub listAuthor_ItemCommand(source as Object, e as datalistCommandEventArgs) handles listAuthor.ItemCommand
		if e.commandName="Select" then
			listAuthor.SelectedIndex=e.item.itemIndex
			dim ds as dataset=getdataset()
			bindGrid(ds)
		end if
	end sub
end class

db.aspx

<%@ Page Language="VB" src="db.vb"  inherits="db1"%>
<asp:datalist id=listAuthor runat="server" BorderColor="#CC0000" CellPadding="2" BorderWidth="1Px">
		<selecteditemstyle Font-Bold="true" ForeColor="#FFFFFF" BackColor="#66CC99" />
		<headertemplate><h2>Equipaggi:</h2></headertemplate>
		
		<itemtemplate>
			<%# Container.dataItem("pilota1")%> 
			<asp:button CommandName="Select" text="sel" runat="server" id="Button1" />
		</itemtemplate>
		
		<selecteditemtemplate>
			<%#Container.dataItem("pilota1")%> <%# Container.dataItem("pilota2")%>
		</selecteditemtemplate>
</asp:datalist>