Contenuto textbox

lunedì 03 aprile 2006 - 18.04

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

wolfborg Profilo | Newbie

21 messaggi | Data Invio: lun 3 apr 2006 - 18:04

riciao a tutti
questa volta il problema è probabilmente+di concetto che di scrittura ma non lo so bene neppure io
il mio obiettivo è sempre lo stesso:avere una lista di domande prese da un datbase in access,mettere a fianco i pulsanti modifica cliccando su modifica scomapre la tabella e compare usa textbox con dentro la domanda selezionata e un plsante x modificarla,modificandola e poi premendo il pulsante si torna alla fabella aggiornata.
ho fatto la tabella con i pulsanti,ma non sapevo dove prendere l'id x far comparire la domanda selezionata.ho fatto accanto una lista ditextbox contenenti gli id delle domande.e ho fatto una textbox temporanea x immagazzinare i dati all'interno in modo da poterli passare.
poi mi sono chiesto come potevo far comparire la domanda.allroa ho pensato di fare usa select in modo sa selezioanre la domanda e meterla come text.peccato che mi dice che il mio texbox.text non può convertire la stringa in un dato a lui consono.che posso fare?qui di seguito posto il codice...
datemi qualche idea...x favore...

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Call leggirisposte1()

End Sub

Public Function leggirisposte1() As DataTable

'creo la connessione
Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Inetpub\wwwroot\riepilogo\db\questionario.mdb;")
'apro la connessione
conn.Open()
'creo il dataadapter x supporto al dataset
Dim oda As New OleDbDataAdapter("SELECT * FROM Risposte", conn)
'creo il dataset
Dim DS As New DataSet
'riempio il dataadapter
oda.Fill(DS, "Risposte")
'creo il visualizzatore
Dim objDataView As New DataView(DS.Tables("Risposte"))
'dichiaro come fonte x la griglia il visualizzatore
DataGrid1.DataSource = objDataView
'DS.Tables("Risposte").DefaultView
'esguo cosi visualizza fino alla fine
DataGrid1.DataBind()

conn.Close()
conn = Nothing

End Function

'evento associato a qualsiasi clik sul datagrid

Private Sub DataGrid2_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid2.ItemCommand

'cambia al visibilità

If e.CommandName = "modifica" Then
pnlform.Visible = True
DataGrid2.Visible = False

Dim conn1 As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Inetpub\wwwroot\riepilogo\db\questionario.mdb;")
conn1.Open()
Dim sqlstrvis As New OleDbDataAdapter("SELECT Domanda FROM Risposte WHERE 'idrisposta'=" & Request.Form("temp"), conn1)
'txtdomanda.Text = sqlstrvis
Response.Write(sqlstrvis)
'Call leggirisposte1()
conn1.Close()
conn1 = Nothing

If e.Item.ItemType = ListItemType.Item Or e.Item.ItemType = ListItemType.AlternatingItem Then

Dim temp As TextBox = DirectCast(e.Item.FindControl("txtId"), TextBox)

End If

End If

End Sub

'quando si preme il pulsante aggiorna
Private Sub btnaggiorna_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnaggiorna.Click
'creo al connessione
Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Inetpub\wwwroot\riepilogo\db\questionario.mdb;")
'la apro
conn.Open()
'faccio l'update prendendo i dati dal form(l'id è ancora fisso xchè non so dove prenderlo
Dim cmd As New OleDbCommand
Dim da As New OleDbDataAdapter
da.UpdateCommand = cmd
da.UpdateCommand.CommandText = "UPDATE Risposte SET domanda =" & Request.Form("txtdomanda") & " WHERE idrisposta='90'"
' Dim sqlstrmod As String = "UPDATE Risposte SET domanda =" & Request.Form("txtdomanda") & " WHERE idrisposta=90"
'Dim cmd As New OleDbCommand(sqlstrmod, conn)
da.UpdateCommand.Connection = conn
da.UpdateCommand.ExecuteNonQuery()

'cmd.ExecuteNonQuery()

'Response.Write(sqlstrmod)
'Response.Write(Request.Form("txtdomanda"))
'Response.End()
'cambio le visibilità
pnlform.Visible = False
DataGrid1.Visible = True
conn.Close()
conn = Nothing
End Sub
'il datagrid 1 non si utilizza a causa dei bottoni
Private Sub DataGrid1_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.ItemCommand

If e.CommandName = "k" Then

pnlform.Visible = True
DataGrid1.Visible = False

End If
End Sub
End Class
'creo una seconda classe
Public Class risposta1
'proprietà dell'oggeto risposta
Private _domanda As String
'assegnazione delle caratteistiche della propietà
Public Property domanda() As String
'proprietà usata quando il codice viene eseguito
Get
'allora il testo verrà visualizzato maiuscolo(toupper)
Return _domanda.ToUpper()
End Get
'propietà di quando il codice viene assegnato
Set(ByVal Value As String)
_domanda = Value
End Set

End Property
Private _rispost As String
Public Property rispost() As String
Get
Return _rispost
End Get
Set(ByVal Value As String)
_rispost = Value
End Set
End Property

a già non mi fa neppure stamapare il select..

__________________________________________________
sono niubbo...che ci posso fare?

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !