sql - テキストボックスに有効な値を設定する

Question

プログラムを作成していて、挿入する文字列を制限したいのですが、Database誰かその方法を教えてもらえますか?

今のところ私のコードは次のとおりです：

 Dim SQLcon As New SqlConnection
        Dim SQLdr As SqlDataReader
        Try
            SQLcon.ConnectionString = "Data Source=#### ;Initial Catalog=####;Persist Security Info=True;User ID=####;Password=####"
            Dim SQLcmd As New SqlCommand("INSERT INTO dbo.Patients" & _
                                         "(pIDNo,pLName,pFName,pMI,pSex,pStatus,pTelNo,pDocID,pAddr,pStreet,pBarangay,pCity,pProvince,pLNameKIN,pFNameKIN,pMIKIN,pRelationKIN,pTotalDue)" & _
                                         "VALUES(@pIDNo,@pLName,@pFName,@pMI,@pSex,@pStatus,@pTelNo,@pDocID,@pAddr,@pStreet,@pBarangay,@pCity,@pProvince,@pLNameKIN,@pFNameKIN,@pMIKIN,@pRelationKIN,@totaldue)", SQLcon)
            SQLcmd.Parameters.AddWithValue("@pIDNo", txtPNumber.Text)
            SQLcmd.Parameters.AddWithValue("@pLName", txtLname.Text)
            SQLcmd.Parameters.AddWithValue("@pFName", txtFname.Text)
            SQLcmd.Parameters.AddWithValue("@pMI", txtMI.Text)
            SQLcmd.Parameters.AddWithValue("@pSex", txtPatientSex.Text)
            SQLcmd.Parameters.AddWithValue("@pStatus", txtStatus.Text)
            SQLcmd.Parameters.AddWithValue("@pTelNo", txtPatientTelNo.Text)
            SQLcmd.Parameters.AddWithValue("@pDocID", txtPatientDoctor.Text)
            SQLcmd.Parameters.AddWithValue("@pAddr", txtStreetNumber.Text)
            SQLcmd.Parameters.AddWithValue("@pStreet", txtStreetName.Text)
            SQLcmd.Parameters.AddWithValue("@pBarangay", txtBarangay.Text)
            SQLcmd.Parameters.AddWithValue("@pCity", txtCity.Text)
            SQLcmd.Parameters.AddWithValue("@pProvince", txtProvince.Text)
            SQLcmd.Parameters.AddWithValue("@pLnameKIN", txtKinLname.Text)
            SQLcmd.Parameters.AddWithValue("@pFnameKIN", txtKinFname.Text)
            SQLcmd.Parameters.AddWithValue("@pMIKIN", txtKinMI.Text)
            SQLcmd.Parameters.AddWithValue("@pRelationKIN", txtRelationToPatient.Text)
            SQLcmd.Parameters.Add("@totaldue", SqlDbType.Money).Value = Decimal.Parse(txtTotalDue.Text)
            SQLcon.Open()
            MsgBox("Patient Added!", MsgBoxStyle.Information)
            SQLdr = SQLcmd.ExecuteReader()
        Catch ex As Exception
            MessageBox.Show("Error Occured, Can't Add Patient!" & ex.Message)
        Finally
            SQLcon.Close()
        End Try
        Return ""

の中にtxtSex.Text

男性は「M」、女性は「F」のみ入力してほしい

の中にtxtStatus.Text

独身の場合は「S」、既婚の場合は「M」、未亡人の場合は「W」、別居の場合は「H」のみをユーザーに入力してもらいたいだけです

もう一つ：

ユーザーが値を入力した後に変換を行うことは可能ですかtxtMI?txtMIKIN

例：

ユーザーがミドルネームのイニシャルとして 'a,b,c,d,e,f,g,h,i,j,k,l,m, .......' を入力すると、次のように自動的に挿入されます。「A、B、C、D、E、F、G、H、I、J、K、L、M、……」Database

score 1 · Accepted Answer

くらいcomboboxから回答されていました。

UPPERCASEへの変更についてお答えしたいと思います。

このようなコードを使用できます。

方法＃1

Dim upper as string = (txtMI.text.ToUpper())

方法＃2

Dim upper as string = (UCase(txtMI.text))

方法＃3

Dim upper as string = (StrConv(txtMI.text,VbStrConv.UpperCase))

score 1 · Accepted Answer

データを挿入しているので、次を呼び出す必要があります。

SQLcmd.ExecuteNonQuery()

それよりも

SQLcmd.ExecuteReader()

score 0 · Accepted Answer

0

txtMI.Text = StrConv(txtMI.Text, VbStrConv.Uppercase) this codes solve my problem...

于 2013-02-25T03:44:59.247 に答える

sql - テキストボックスに有効な値を設定する

3 に答える 3

Related