solo che non so come fare...ho provato in diversi modi ma nessuno funzionava, poi ho provato a creare un dataset con visual studio ( con il dataset designer), ma ora non so che farmene.. nella parte di codice aspx.vb non ho scritto ancora nulla, perchè non so cosa scrivere...vi chiedo aiuto urgente, perche senza questa parte non posso fare il resto del sito del mio cliente... Ho studiato asp.net all'università 7 anni fa, la mia memoria è arruginita ... ed ora ho un pò d'urgenza..vi sembrerò imbranata ma...

1. NON FUNZIONA :  Dim strconn As String strconn = "Database=Ioscauto;Provider=OleDb;DataSource=localhost;" 'strconn = "Database=ioscauto;Provider=SQLOLEDB;integrated security=SSPI;data source=localhost;persist security info=False" '"workstation id=CHERE;packet size=4096;" Dim objConn As New OleDb.OleDbConnection(strconn) 'Dim objCmd As New OleDbCommand(strSQL, objConn) 'Dim @marca as New string Dim marca As String Dim km As Integer Dim modello As String Dim anno As Integer Dim trazione As String Dim tagliandi As String Dim cilindrata As Integer Dim alimentazione As String Dim colore As String Dim nporte As Integer Dim tipologia As String Dim opt As String Dim altro As String Dim prezzo As Integer Dim Connection As New SqlClient.SqlConnection marca = DDL_Marca.SelectedItem.Text km = TB_Km.Text modello = DDL_Modello.SelectedItem.Text anno = DDL_Anno.SelectedItem.Value trazione = DDL_Trazione.SelectedItem.Text tagliandi = TB_Tagliandi.Text cilindrata = DDL_Cilindrata.SelectedItem.Text alimentazione = DDL_Alimentazione.SelectedItem.Text colore = TB_Colore.Text nporte = TB_Porte.Text tipologia = TB_TIpologia.Text opt = LB_optional.SelectedItem.Text altro = TB_caratteristiche.Text prezzo = TB_Prezzo.Text Dim strSQL As String strSQL = "INSERT INTO Caratteristiche ('marca','modello','anno','trazione','km','tagliandi','cilindrata','cv','kw','alimentazione','colore','nporte','tipologia','optional','altro','prezzo')VALUES('marca','modello',@anno,'trazione',@km,'tagliandi','cilindrata',@cv,@kw,'alimentazione','colore',@nporte,'tipologia','opt','altro',@prezzo)" Dim objCmd As New OleDb.OleDbCommand(strSQL, objConn) Connection = New Data.SqlClient.SqlConnection(strconn) objCmd.Connection.Open() Dim CMD As New System.Data.SqlClient.SqlCommand(strSQL, Connection) objCmd.ExecuteNonQuery() objCmd.Connection.Close()
2. SECONDO TIPO DI CONNESSIONE CON ISTRUZIONI Dim marc As String Dim model As String Dim conn As New System.Data.SqlClient.SqlConnection Dim strconn As String 'definisco la stringa per aprire l aocnnessione Dim strsql As String 'definisco stringa contenente l'istruzione SQL Dim ann As Integer Dim traz As String Dim kim As Integer Dim tagliand As String Dim cil As String Dim cav As Integer Dim kilo As Integer Dim alim As String Dim col As String Dim nport As Integer Dim tipo As String Dim opt As String Dim altro As String Dim prez As Integer marc = DDL_Marca.SelectedItem.Text model = DDL_Modello.SelectedItem.Text ann = DDL_Anno.SelectedItem.Value traz = DDL_Trazione.SelectedItem.Text kim = TB_Km.Text tagliand = TB_Tagliandi.Text cil = DDL_Cilindrata.SelectedValue cav = TB_CV.Text kilo = TB_KW.Text alim = DDL_Alimentazione.SelectedItem.Text col = TB_Colore.Text nport = TB_Porte.Text tipo = TB_TIpologia.Text opt = LB_optional.Text altro = TB_caratteristiche.Text prez = TB_Prezzo.Text 'strsql = "INSERT INTO TabCaratteristiche(marca,modello,anno,trazione,km,tagliandi,cilindrata,cv,kw,alimentazione,colore,nporte,tipologia,optional,altro,prezzo) VALUES ('marc','model','ann','traz','kim','tagliand','cilindrata','cav','kilo','alim','col','nport','tipo','opt','altro','prez'" strconn = "workstation id=JZONTINI;integrated security=SSPI;Data Source=JZONTINI;Asynchronous Processing=true;Initial Catalog=ioscauto;persist security info=False;" 'strconn = "Provider=SQLOLEDB;;Integrated Security=SSPI;Initial Catalog=ioscauto;Asynchronous Processing=true" 'creo la stringa di connessione al DB conn = New Data.SqlClient.SqlConnection(strconn) 'apro la connessione al DB conn.Open() 'Dim CMD As New SqlClient.SqlCommand 'CMD = New Data.SqlClient.SqlCommand(strsql, conn) 'CMD.BeginExecuteNonQuery() DDL_Marca.Text.Insert(0, marc) DDL_Modello.Text.Insert(1, model) DDL_Anno.SelectedValue.Insert(1, ann) DDL_Trazione.SelectedValue.Insert(1, traz) TB_Km.Text.Insert(1, kim) TB_Tagliandi.Text.Insert(1, tagliand) DDL_Cilindrata.SelectedValue.Insert(1, cil) TB_CV.Text.Insert(1, cav) TB_KW.Text.Insert(1, kilo) DDL_Alimentazione.SelectedValue.Insert(1, alim) TB_Colore.Text.Insert(1, col) TB_Porte.Text.Insert(1, nport) TB_TIpologia.Text.Insert(1, tipo) LB_optional.SelectedValue.Insert(1, opt) TB_caratteristiche.Text.Insert(1, altro) TB_Prezzo.Text.Insert(1, prez) conn.Close()
3. Dim strconn As String 'definisco la stringa per aprire l aocnnessione Dim strsql As String 'definisco stringa contenente l'istruzione SQL Dim conn As New System.Data.SqlClient.SqlConnection strconn = "workstation id=JZONTINI;integrated security=SSPI;Data Source=JZONTINI;Asynchronous Processing=true;Initial Catalog=ioscauto;persist security info=False;" strsql = "INSERT INTO TabCaratteristiche(marca,modello,anno,trazione,km,tagliandi,cilindrata,cv,kw,alimentazione,colore,nporte,tipologia,optional,altro,prezzo) VALUES (@marc,@model,@ann,@traz,@kim,@tagliand,@cil,@cav,@kilo,@alim,@col,@nport,@tipo,@opt,@altro,@prez)" conn = New Data.SqlClient.SqlConnection(strconn) conn.Open() @marc as New varchar (50), @model varchar (50), @ann int (4), @traz varchar (50), @kim bigint (8), @tagliand varchar (50), @cil varchar (50), @cav int (4), @kilo int (4), @alim varchar (50), @col varchar (50), @nport int (4), @tipo varchar (50), @opt varchar (500), @altro varchar (500), @prez bigint (8) (questa con StoreProcedure)

stai mischiando OleDb con SqlClient...letto così non si capisce nulla...questo lo scrivi nel file VB (o C#) ?
VB
la connessione dove la tieni? nel WebConfig? spero di si.

ehm....non capisco cosa intendi....usando sql server...la tengo su sql server..il web config non l'ho toccato per non fare danni... cosa dovrei fare ? cmq la stringa (ultima ) che ho creato l'ho creato con il sqlDataSource nella finestra di sx , sotto la voce dati...ioscautoConnectionString...

questa è una stringa di connessione ad un SQL 2008 con provider SQL:

non vedo la stringa...

Naturalemente sta nel web.config e la richiamo dalla pagina ASPX col nome PanatronicConnectionString.

e come si richiama ? cmq il problema oltre a questo rimane sempre l'update...


per farti capire meglio.... questo è il dataset creato in vs 2008 ( Ho creato una stored procedure per l'Update, me l'ha inserita nel datatableadapter, ma comunque non so come richiamarla nella mia pagina...



e questo invece è il codice della mia pagina Default.aspx ( quella con il form)

Se quello che ti serve è solo inserire dati, ti ho preparato un esempio funzionante.

Lo trovi in allegato al messaggio.

saluti

Sabrina

Ci sono dei siti appositi x le traslazioni C# VB e viceversa, trovi i links sulla pagina Utility

Public Partial Class _Default 
    Inherits System.Web.UI.Page 
    
    Private mSqlInsert As String = vbCr & vbLf & vbTab & vbTab & vbTab & "INSERT INTO TbTestAsp" & vbCr & vbLf & " ([Codice]" & vbCr & vbLf & " ,[descrizione])" & vbCr & vbLf & vbTab & vbTab & vbTab & "VALUES" & vbCr & vbLf & " (@Codice" & vbCr & vbLf & " ,@Descrizione)" & vbCr & vbLf & vbTab & vbTab & vbTab 
    
    
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) 
        
    End Sub 
    
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) 
        Me.Label3.Text = "Provo ad inserire" 
        Dim cn As New SqlConnection() 
        cn.ConnectionString = "Data Source=4unb20;Initial Catalog=paperinik;User Id=paperuser;Password=rinikpaper;" 
        Dim cmd As New SqlCommand() 
        Dim para As SqlParameter() = _
            New SqlParameter() { _
            New SqlParameter("@Codice", Me.txtCode.Text), _
            New SqlParameter("@Descrizione", Me.txtDescription.Text)} 
        cmd.Connection = cn 
        cmd.CommandText = mSqlInsert 
        cmd.Parameters.AddRange(para) 
        cn.Open() 
        cmd.ExecuteNonQuery() 
        cn.Close() 
        Me.Label3.Text = "OK Inserito" 
    End Sub 
End Class 

la sola cosa di cui non sono sicura è la conversione dell'array di parametri
ma mi pare che sia così.

Fai attenzione che il SQL che esegui direttamente per una login
dovrà fare una select e tornarti almeno un valore
pertanto dovrai usare l'ExecuteScalar se ti viene restituito un solo valore
oppure dovrai dichiarare un SQLDatareader e usare l'ExecuteReader del command
per ottenere una o più righe contenenti il risultato della query.

saluti
Sabrina

  Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        If DBAuthenticate(Me.TextBox1.Text, Me.TextBox2.Text) Then
           Response.Redirect("/tickets/default.aspx")
        Else
            Response.Write("Login FAILED
")
        End If
    End Sub

Private Function DBAuthenticate(ByVal strUsername As String, ByVal strPassword As String) As Boolean
        Dim bResult As Boolean = False
        Dim cn As New Data.SqlClient.SqlConnection("")
        cn.ConnectionString = System.Configuration.ConfigurationManager.ConnectionStrings.Item("DatabaseConnectionString").ToString
        Dim strSQL As String
        Dim strDBPassword As String = ""
        Dim objCommand As New Data.SqlClient.SqlCommand
        objCommand.Connection = cn
        strSQL = String.Format("SELECT ID, password, ruolo, tipo FROM Anagrafica WHERE (Username='{0}');", strUsername)
        objCommand.CommandText = strSQL
        objCommand.CommandType = Data.CommandType.Text
        Dim rdr As Data.SqlClient.SqlDataReader
        cn.Open()
        rdr = objCommand.ExecuteReader
        If rdr.Read Then
            strDBPassword = CheckDBNull(rdr("password")) ' password salvata nel db
            bResult = strDBPassword = CryptPwd(strPassword, "SHA1")
            'debug, setto a true sempre
            bResult = True
            Session("Username") = strUsername
            Session("LoggedIn") = bResult
            Session("Ruolo") = CheckDBNull(rdr("Ruolo"))
            Session("Tipo") = CheckDBNull(rdr("Tipo"))
            Session("ID") = CheckDBNull(rdr("ID"))
            Session("Filtro") = CheckDBNull(rdr("Tipo"))
        End If
        cn.Close()
        Return bResult
    End Function

Inserito da jzgrafica su 20 set 2009 16.32
infatti, ho provato così ( sul form della login ho due pulsanti, uno per la registrazione ed uno per l'accesso..quello per la registrazione finalmente funziona, grazie al vostro aiuto ) e quello per l'accesso l'ho strutturato così...

Allora, ho quotato l'inizio messaggio perché tu sappia a cosa rispondo:

i vbcr, vbtab ecc. messi dal convertitore sono porcherie perché VB non gestisce bene le stringhe su più righe, avrei dovuto pulirteli scusa.

Nel codice che hai inserito in questo messaggio,
hai fatto una  funzione che non esegue alcun comando pertanto non potrà mai funzionare.

Se vuoi fare una autenticazione modello base la select sarà:
Dim sql as string = "SELECT Login from Tbutenti where Login = @Login and Password = @Password"

Dim para as SQLParameter()  = new SqlParameter {
   New SqlParameter( "@Login", txtLogin.text),
   New SqlParameter( "@Password", txtPassword.text ) }

Dim cn as SqlConnection = new SqlConnection( "server.... ecc... la solita stringa")
Dim cmd as SqlCommand = new SqlCommand();
cmd.Connection = cn
cmd.CommandText =  sql
cmd.Parameters.AddRange(para)
Dim ret as Object = cmd.ExecuteScalar()

if( not ret isNull && not ret = System.DbNull.Value)
   Server.Transfer( "Default.Aspx")
else
  Server.Transfer( "login.aspx")
end if

Direi che così sei anche al sicuro dalla sql injection visto che i parametri sono nominali e controllati
saluti
Sabry

Inserito da jzgrafica su 21 set 2009 20.09
invece, potresti spiegarmi di preciso cosa fa questa istruzione :

 Dim ret As Object = cmd.ExecuteScalar()

        If (ret <> 0 & Not ret Is System.DBNull.Value) Then
            Server.Transfer("Default.Aspx")

ExecuteScalar ? a cosa serve ? ret è un oggetto ma perchè dev'essere diverso da 0 ? e perchè deve esesre diverso da System.DBNull.Value ?

Se usi Parameters.AddRange gli passi un array di parametri, se usi Parameters.Add devi passargli un solo parametro alla volta pertanto per usare Add invece di

dim para as SqlParameter() = new Sqlparameter() {

new SqlParameter( "@uno", "valore1"),

New SqlParameter("@Due", "valore2") }

Devi fare

dim para as new SqlParameter( "@singolo", "valore")

allora l'add ti funziona.

ora rifaccio altrimenti impazzisco...allora, nella pagina dove il cliente inserisce le auto, può inesrire anche le foto ( così poi i suoi clienti potranno vederle, per questo voglio che siano visualizzabili ) ...

il codice per salvare le foto in un determinato percorso è il seguente:

 If Not FU_foto.HasFile = False Then

            Dim filepath As String = FU_foto.PostedFile.FileName
            Dim pat As String = "\\(?:.+)\\(.+)\.(.+)"
            Dim r As Regex = New Regex(pat)
            'run
            Dim m As Match = r.Match(filepath)
            Dim file_ext As String = m.Groups(2).Captures(0).ToString()
            Dim filename As String = m.Groups(1).Captures(0).ToString()
            Dim filefoto As String = filename & "." & file_ext

            'save the file to the server
            FU_foto.PostedFile.SaveAs(Server.MapPath(".\") & filefoto)
            lblstatus.Text = "File Saved to: " & Server.MapPath(".\") & filefoto