Rutger
Legacy Member
Ik heb een ASP.Net projectje waar ik zo leden moet kunnen toevoegen naar een map. Kan iemand me aub helpen met de code om foto te uploaden. Want heb al vanalles geprobeerd, maar niets blijkt te werken, geeft constant fouten
Dit is mijn code :
If blnCheck = True Then
Dim strUrlFoto As String
Dim objCn As New OleDb.OleDbConnection(connectionString)
objCn.Open()
Dim intLengte As Integer
Dim t As Integer
Dim blnKlaar As Boolean
strUrlFoto = "Teamleden\" & foto.PostedFile.FileName
blnKlaar = False
Try
foto.PostedFile.SaveAs(Server.MapPath(strUrlFoto))
Catch
lblText.Text = "Er is een fout opgetreden!!"
End Try
blnKlaar = True
'Querystring aanmaken
Dim strSql As String = "INSERT INTO Team(Voornaam,Naam,Foto,Email)" & "VALUES(@Voornaam,@Naam,@URLFoto,@Mail);"
Dim objCmd As New OleDb.OleDbCommand(strSql, objCn)
objCmd.Parameters.Add(New OleDb.OleDbParameter("@Voornaam", OleDb.OleDbType.VarChar, 100))
objCmd.Parameters("@Voornaam").Value = txtVoornaam.Text
objCmd.Parameters.Add(New OleDb.OleDbParameter("@Naam", OleDb.OleDbType.VarChar, 100))
objCmd.Parameters("@Naam").Value = txtNaam.Text
objCmd.Parameters.Add(New OleDb.OleDbParameter("@URLFoto", OleDb.OleDbType.VarChar, 100))
objCmd.Parameters("@URLFoto").Value = strUrlFoto
objCmd.Parameters.Add(New OleDb.OleDbParameter("@Mail", OleDb.OleDbType.LongVarChar))
objCmd.Parameters("@Mail").Value = txtEmail.Text
Try
objCmd.ExecuteNonQuery()
Catch
lblText.Text = "Er is iets misgelopen"
End Try
objCn.Close()
Dit is mijn code :If blnCheck = True Then
Dim strUrlFoto As String
Dim objCn As New OleDb.OleDbConnection(connectionString)
objCn.Open()
Dim intLengte As Integer
Dim t As Integer
Dim blnKlaar As Boolean
strUrlFoto = "Teamleden\" & foto.PostedFile.FileName
blnKlaar = False
Try
foto.PostedFile.SaveAs(Server.MapPath(strUrlFoto))
Catch
lblText.Text = "Er is een fout opgetreden!!"
End Try
blnKlaar = True
'Querystring aanmaken
Dim strSql As String = "INSERT INTO Team(Voornaam,Naam,Foto,Email)" & "VALUES(@Voornaam,@Naam,@URLFoto,@Mail);"
Dim objCmd As New OleDb.OleDbCommand(strSql, objCn)
objCmd.Parameters.Add(New OleDb.OleDbParameter("@Voornaam", OleDb.OleDbType.VarChar, 100))
objCmd.Parameters("@Voornaam").Value = txtVoornaam.Text
objCmd.Parameters.Add(New OleDb.OleDbParameter("@Naam", OleDb.OleDbType.VarChar, 100))
objCmd.Parameters("@Naam").Value = txtNaam.Text
objCmd.Parameters.Add(New OleDb.OleDbParameter("@URLFoto", OleDb.OleDbType.VarChar, 100))
objCmd.Parameters("@URLFoto").Value = strUrlFoto
objCmd.Parameters.Add(New OleDb.OleDbParameter("@Mail", OleDb.OleDbType.LongVarChar))
objCmd.Parameters("@Mail").Value = txtEmail.Text
Try
objCmd.ExecuteNonQuery()
Catch
lblText.Text = "Er is iets misgelopen"
End Try
objCn.Close()