Connessione ad access non funziona

**3L3NA** · 19-01-2009, 23:51

Salve Questo è il mio codice:

codice:

<%@ Page Language="VB" Debug="true"%>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %> 

<script runat="server">
	dim Conn as new OleDbConnection("Provider=" & _
		"Microsoft.Jet.OLEDB.4.0;" & _
		"Data Source="&Server.MapPath("\mdb-database\Mio.mdb"))
		
	sub GetData(obj as Object, e as EventArgs)
		dim objCmd as OleDbCommand = new OleDbCommand("SELECT * FROM [MiaTabella] WHERE Nome ='"&@Codice&"'", Conn)
		dim objReader as OleDbDataReader
		dim objParam as OleDbParameter
					
		objParam = objCommand.Parameters.Add("@Codice",OleDbType.char)	
		objParam.Direction = ParameterDirection.Input
		objParam.Value = tbCodice.Text
		
		try
			objCmd.Connection.Open()
			objReader = objCmd.ExecuteReader
		catch ex as OleDbException
			Label1.Text = "Errore dal database."
		end try
		
		DataGrid1.DataSource = objReader
		DataGrid1.DataBind()
		
		objReader.Close
		objCmd.Connection.Close()
	end sub
</script>


<html>
<body>

	<asp:Label ID="Label1" runat="server" />

	Inserisci un Codice: <asp:TextBox ID="tbCodice" runat="server" AutoPostBack="true" OnTextChanged=GetData />
	


	<asp:DataGrid ID="DataGrid1" runat="server"
	BorderColor="black" GridLines="Vertical" Width="100%" Font-Names="Arial" Font-Size="8pt" HeaderStyle-BackColor="#cccc99" ItemStyle-BackColor="#ffffff"
	AlternatingItemStyle-BackColor="#cccccc"
	AutoGenerateColumns="true" />
	</p>
</body>

</html>

Il codice lo preso da un libro ma non riesco a farlo funzionare

Vi prego aiutatemi

**pietro09** · 20-01-2009, 10:19

codice:

<%@ Page Language="VB" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %> 

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<script runat="server">
    
    Private StringaConnessione As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\dati\test\test.mdb"
    
    	
    Sub GetData(ByVal obj As Object, ByVal e As EventArgs)
     
        Dim objCon As OleDb.OleDbConnection = Nothing
        Dim objCmd As OleDbCommand = Nothing
        Dim objReader As OleDbDataReader = Nothing

        Try
            objCon = New OleDbConnection(StringaConnessione)
            objCon.Open()
            
            objCmd = objCon.CreateCommand()
            objCmd.CommandText = "SELECT * FROM [campi] WHERE id = ? "
            
            objCmd.Parameters.Clear()
            objCmd.Parameters.Add("id", OleDbType.Integer).Value = Me.tbCodice.Text
            
            objReader = objCmd.ExecuteReader()
            
            DataGrid1.DataSource = objReader
            DataGrid1.DataKeyField = "id"
            DataGrid1.DataBind()
            
            
        Catch ex As OleDbException
            Label1.Text = "Errore dal database."
            
        Finally
            If objReader IsNot Nothing Then objReader.Close()
            If objCon IsNot Nothing Then objCon.Close()
        End Try
		
		
    End Sub

</script>

<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
    <title></title>
    <style type="text/css">
	    body
	    {
	        font-family: Verdana, Helvetica, sans-serif;
	        font-size: 8pt;
	    }
        #tbCodice {border:1px gray solid;}
    </style>
    
</head>
<body>
    <form id="form1" runat="server">
    <div>
        <asp:Label ID="Label1" runat="server" />
        

        Inserisci un Codice:
        <asp:TextBox ID="tbCodice" runat="server" AutoPostBack="true" OnTextChanged="GetData" />
        


            <asp:DataGrid ID="DataGrid1" runat="server" BorderColor="black" GridLines="Vertical" Width="100%" Font-Names="Arial" Font-Size="8pt" HeaderStyle-BackColor="#cccc99" ItemStyle-BackColor="#ffffff" AlternatingItemStyle-BackColor="#cccccc" AutoGenerateColumns="true" />
        </p>
    </div>
    </form>
</body>
</html>

che libro è?

**stefanomnn** · 20-01-2009, 12:44

Sicura di aver copiato giusto?

questa riga mi suona strana:

dim objCmd as OleDbCommand = new OleDbCommand("SELECT * FROM [MiaTabella] WHERE Nome ='"&@Codice&"'", Conn)

dato che i parameters si usano proprio per non usare gli apici... mi aspetterei che la query sia

dim objCmd as OleDbCommand = new OleDbCommand("SELECT * FROM [MiaTabella] WHERE Nome =@Codice", Conn)

**3L3NA** · 21-01-2009, 15:37

Salve, grazie per l' aiuto ma ancora non funziona, si connette ma non popola il datagrid e poi io non ho un campo id

**pietro09** · 21-01-2009, 15:39

Originariamente inviato da 3L3NA
Salve, grazie per l' aiuto ma ancora non funziona, si connette ma non popola il datagrid e poi io non ho un campo id

già, id non c'è :master: ma avrai pure un campo Pinco Pallino come chiave della tabella

**3L3NA** · 23-01-2009, 17:03

Alla fine sono riuscita , grazie. Ora ho un' altro problema del tipo che voglio utilizzare i dati singolarmente mpaginandoli a mio piacere senza usare il DataGrid cioe nel db c'è un testo ed io lo voglio mettere in un div , c'è l'URL di una immagine ed io la voglio vedere nella pagina. Come si fa?

Discussione: Connessione ad access non funziona

Strumenti discussione

Ricerca discussione

Visualizza

Connessione ad access non funziona

Permessi di invio