hey mensen, ik ben vrij nieuw hier en vrij nieuw met asp.net.
Nu heb ik een pagina gemaakt met daarop 2 textboxen en die moeten ervoor zorgen dat er een record in mijn database wordt geplaatst..
dit lukt voor de helft.. dat is juist het vreemde als ik bijde textboxes invoer dat alleen maar cijfers in de database kan schrijven, bij artikel omschrijving moeten het juist charaters zijn. kan iemand mij helpen?
alvast bedankt!
Tim
hieronder mijn huidige code:
Nu heb ik een pagina gemaakt met daarop 2 textboxen en die moeten ervoor zorgen dat er een record in mijn database wordt geplaatst..
dit lukt voor de helft.. dat is juist het vreemde als ik bijde textboxes invoer dat alleen maar cijfers in de database kan schrijven, bij artikel omschrijving moeten het juist charaters zijn. kan iemand mij helpen?
alvast bedankt!
Tim
hieronder mijn huidige code:
Code:
Option Strict On
Imports System.Data
Imports System.Data.SqlClient
Imports System.Diagnostics
Public Class WebForm1
Inherits System.Web.UI.Page
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Protected WithEvents Button1 As System.Web.UI.WebControls.Button
Protected WithEvents Label2 As System.Web.UI.WebControls.Label
Protected WithEvents txtProdnr As System.Web.UI.WebControls.TextBox
Protected WithEvents txtProdOms As System.Web.UI.WebControls.TextBox
Protected WithEvents Label1 As System.Web.UI.WebControls.Label
Protected WithEvents DropDownList1 As System.Web.UI.WebControls.DropDownList
'NOTE: The following placeholder declaration is required by the Web Form Designer.
'Do not delete or move it.
Private designerPlaceholderDeclaration As System.Object
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Put user code to initialize the page here
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim strProdid As String = txtProdnr.Text
Dim strProdOms As String = txtProdOms.Text
Dim cnn As SqlConnection _
= New SqlConnection(ConfigurationSettings.AppSettings(Global.DBCONN))
Dim cmd As New SqlCommand("Select art_id from Artikelen where art_id = " & strProdid, cnn)
Dim dr As SqlDataReader
Try
cnn.Open()
cmd.Connection = cnn
cmd.CommandType() = CommandType.Text
dr = cmd.ExecuteReader()
If dr.HasRows() Then
Else
cnn.Close()
cnn.Open()
Dim strQuery As String = "insert into Artikelen(art_id, art_omschrijving) "
strQuery &= "values(" & strProdid & "," & strProdOms & ")"
Debug.WriteLine(strQuery)
cmd.CommandType() = CommandType.Text
cmd.CommandText() = strQuery
cmd.ExecuteNonQuery()
End If
Catch ex As Exception
Debug.WriteLine(ex.Message)
Finally
End Try
End Sub
Private Sub dgartikelen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
End Class