hulp met textboxen

[Timsch]

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:

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

 

[rolandwardenaar]

Hoi Tim,

hoe ziet jouw tabel artikelen eruit?

heeft veld art_omschrijving datatype : varchar, nvarchar, char of text ?

als het per ongeluk numeriek is kan je inderdaad alleen nummers invoeren.