ok,
ik heb een inputfunctie gemaakt maar deze werkt niet
nu zijn er aantal dingen waaran het denk ik aan kan liggen,
bij de insert into (tabelnaam)( moeten hierachter alle kolommen staan die in de tabel zitten? want ik moet er namelijk maar een paar van vullen)
=> de datagroote van Messagetext is in sql server ingesteld als MAX, maar hoe stel ik dit in in mijn code?, ik mag namelijk alleeen maar integerwaarde meegeven =/
Protected Sub btnopslaan_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnopslaan.Click
folder = "Out"
Select Case True
Case rdbMail.Checked
type = "Mail"
Case rdbFax.Checked
type = "Fax"
Case rdbSms.Checked
type = "Sms"
End Select
Dim strSql As String = "INSERT INTO Message(ToName,ToEmail,Subject,MessageText,TypeBericht,Folder) VALUES(@ToName,@ToEmail,@Subject,@MessageText,@TypeBericht,@Folder);"
Try
'bijhorende sql statement
'connectie met database
Dim objCn As New SqlConnection(sUDL)
Dim objCmd As SqlCommand = objCn.CreateCommand()
objCmd.CommandText = strSql
objCmd.Parameters.Add("@ToName", SqlDbType.NVarChar, 50).Value = naam
objCmd.Parameters.Add("@ToEmail", SqlDbType.NVarChar, 50).Value = txtAan.Text
objCmd.Parameters.Add("@Subject", SqlDbType.NVarChar, 50).Value = txtOnderwerp.Text
objCmd.Parameters.Add("@MessageText", SqlDbType.NVarChar, 50).Value = txtbericht.Text
objCmd.Parameters.Add("@Folder", SqlDbType.NVarChar, 50).Value = folder
objCmd.Parameters.Add("@TypeBericht", SqlDbType.NVarChar, 50).Value = type
objCn.Open()
objCmd.ExecuteNonQuery()
objCn.Close()
Catch ex As Exception
End Try
End Sub
Protected Sub btnopslaan_Click(ByVal sender As Object, ByVal e AsSystem.EventArgs) Handles btnopslaan.Click
Dim strSql As String ="INSERT INTO Message(ToName,ToEmail,Subject,MessageText,TypeBericht,Folder) VALUES(@ToName,@ToEmail,@Subject,@MessageText,@TypeBericht,@Folder);"
Try
'bijhorende sql statement
'connectie met database
Dim objCn AsNew SqlConnection(sUDL)
Dim objCmd As SqlCommand = objCn.CreateCommand()
objCmd.CommandText = strSql
objCmd.Parameters.Add("@ToName", SqlDbType.NVarChar,50).Value = naam
Protected Sub btnopslaan_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnopslaan.Click
folder = "Out"
Select Case True
Case rdbMail.Checked
type = "Mail"
Case rdbFax.Checked
type = "Fax"
Case rdbSms.Checked
type = "Sms"
End Select
Dim strSql As String = "INSERT INTO Message(ToName,ToEmail,Subject,MessageText,TypeBericht,Folder) VALUES(@ToName,@ToEmail,@Subject,@MessageText,@TypeBericht,@Folder);"
'bijhorende sql statement
'connectie met database
'Dim objCn As New SqlConnection(sUDL)
'Dim objCmd As SqlCommand = objCn.CreateCommand()
'objCmd.CommandText = strSql
'Ik zou dit anders doen, maar jouw stuk is ook wel juist hoor
Dim objCn As New SqlConnection(sUDL)
Dim objCmd As SqlCommand = new SqlCommand()
objCmd.Connection = objCn
'Op het einde van je query stond een ";", die hoort er niet
'Kijk maar in je vorige post in de code
Dim strSql As String = "INSERT INTO Message(ToName,ToEmail,Subject,MessageText,TypeBericht,Folder) VALUES(@ToName,@ToEmail,@Subject,@MessageText,@TypeBericht,@Folder)"
objCmd.CommandText = strSql
objCmd.Parameters.Add("@ToName", SqlDbType.NVarChar, 50).Value = naam
objCmd.Parameters.Add("@ToEmail", SqlDbType.NVarChar, 50).Value = txtAan.Text
objCmd.Parameters.Add("@Subject", SqlDbType.NVarChar, 50).Value = txtOnderwerp.Text
objCmd.Parameters.Add("@MessageText", SqlDbType.NVarChar, 50).Value = txtbericht.Text
objCmd.Parameters.Add("@Folder", SqlDbType.NVarChar, 50).Value = folder
objCmd.Parameters.Add("@TypeBericht", SqlDbType.NVarChar, 50).Value = type
Try
objCn.Open()
objCmd.ExecuteNonQuery()
Catch ex As Exception
'Als er een fout is, deze weergeven
Response.Write(ex.Message)
Finally
'verbinding ALTIJD sluiten in "Finally"
objCn.Close()
End Try
End Sub
Protected Sub btnopslaan_Click(ByVal sender As Object, ByVal e AsSystem.EventArgs) Handles btnopslaan.Click
Dim strSql As String ="INSERT INTO Message(ToName,ToEmail,Subject,MessageText,TypeBericht,Folder) VALUES(@ToName,@ToEmail,@Subject,@MessageText,@TypeBericht,@Folder);"
'bijhorende sql statement
'connectie met database
'Dim objCn As New SqlConnection(sUDL)
'Dim objCmd As SqlCommand = objCn.CreateCommand()
'objCmd.CommandText = strSql
'Ik zou dit anders doen, maar jouw stuk is ook wel juist hoor
Dim objCn AsNew SqlConnection(sUDL)
Dim objCmd As SqlCommand =new SqlCommand()
objCmd.Connection = objCn
'Op het einde van je query stond een ";", die hoort er niet
'Kijk maar in je vorige post in de code
Dim strSql As String ="INSERT INTO Message(ToName,ToEmail,Subject,MessageText,TypeBericht,Folder) VALUES(@ToName,@ToEmail,@Subject,@MessageText,@TypeBericht,@Folder)"
objCmd.CommandText = strSql
objCmd.Parameters.Add("@ToName", SqlDbType.NVarChar,50).Value = naam
@titjes, ik heb nog nooit eerder gezien dat mensen CSS 1 of 2, of AS1, 2 of 3, of php4 of 5 of....whatever voor hun titel zetten, waarom wil je dat persee ??
@hieronder, ok, moeten ze maar een nieuw cat inbouwen vind je ook niet
ps: als je één overeenkomst vind tussen as (1&2) en as 3....dan.....niks (maar die is er ook niet )
sploZ belg !
Abbas - 21/06/2007 00:57 (laatste wijziging 21/06/2007 01:15)
Crew .NET
@vinTage:Omdat er in deze categorie (ASP) zowel gewone ASP als ASP.NET topics worden gepost. Op zich vind ik dat al belachelijk aangezien dit twee totaal verschillende zaken zijn, maar goed wie ben ik... Daarom is er afgesproken dat als het topic over ASP.NET gaat dat je er simpelweg even "[.NET]" voor zet.
PHP5 is buiten "enkele" veranderingen geen andere taal ten opzichte van PHP4, hetzelfde geldt voor CSS 1 of 2, AS 1, 2 of 3. Maar bij ASP / ASP.NET ligt het wel anders, dat zijn zo goed als twee aparte talen. Daarom dus...
edit: ik weet dat er zo goed als geen overeenkomst is tussen AS1 & 2 en AS3 hoewel ik nog niet met AS3 gewerkt heb. Maar het was maar om een voorbeeld te stellen, snap je? En natuurlijk vind ik het logisch dat er eigenlijk een aparte categorie zou moeten zijn voor ASP.NET!!