我怎样才能比较我在BLL里面的文本框中的sql代码？ [英] How can I compare what I have in a textbox, with sql code, that I have inside of BLL?

问题描述

大家好！



我需要一些帮助，一些方向。



这是我在BLL中的代码：

 公开 类 BLLSQL 
 公开 类 XPTO 
 公开 共享  Sub  ConfUser（ ByVal  puser  As  字符串）
  Dim  p  As  新 ArrayList 
 p.Add（新 SqlParameter（  @ puser，puser））
 DALSQL.ExecuteNonQuery（  SELECT viewtable_user（：puser）FROM dual，p）
 结束  Sub  

示例：



如果我插入 txt_user.text =Nillo123

那么看如果这个用户存在于数据库中，那么

将与 sql代码SELECT viewtable_user（：puser）FROM dual进行比较。



我试过这个：

 私人  Sub  bt_ok_user_Click（发件人作为 对象，e  As  EventArgs）句柄 bt_ok_user.Click 
 
 txt_user。 Text = BLLSQL.XPTO.ConfUser（）
 '  msg of error没有为参数'puser'指定参数'Public Shared Sub ConfUser（puser As String）as system.data.datatable' 
 
 txt_user.text =   SELECT valida_loginassinante（：plogin）FROM dual 
  我会写一些东西，这将返回=SELECT valida_loginassinante（：plogin）FROM dual，就像我的文本框中的文本一样 
 
 结束  Sub  

对于你们中的一些人来说，很容易理解问题并得到解决方案，但对我来说很难找到解决方案。

如果你帮助我，我会很感激。 :)



最好的问候，

Nillo123。

解决方案

< pre lang =vb> 公共 类 BLLSQL
公开 类 XPTO
公开 共享 Sub ConfUser（ ByVal puser 正如 字符串）
Dim p 正如 新 ArrayList
p.Add（新 SqlParameter（ @ puser，puser））
DALSQL.ExecuteNonQuery（ SELECT viewtable_u ser（'&普洱& '）FROM dual，p）
结束 Sub

 私有  Sub  bt_ok_user_Click（发件人作为 对象，e 作为 EventArgs）句柄 bt_ok_user 。点击
 
  Dim  a  As  字符串 
a = txt_user.Text 
 BLLSQL.XPTO.ConfUser（a）
 
 如果 BLLSQL .XPTO.ConfUser（a）=   01;用户不会出现 然后 
 txt_uSEr.ForeColor = Color.Red 
 Label3.Text =   USER DOES NOT EXISTS 
 返回 
 退出  Sub  
 
  ElseIf  txt_uSEr.Text =   然后 
 Label3.Text =  插入你的用户名 
 其他 
 Label3.Text =   USER EXISTS！ 
 
 结束  Sub  

< br /> 
< br /> 
感谢您的帮助！ ：）

Hello everyone!

I need a little help, some orientation.

this is my code in BLL:

Public Class BLLSQL
    Public Class XPTO
        Public Shared Sub ConfUser(ByVal puser As String)
            Dim p As New ArrayList
            p.Add(New SqlParameter("@puser", puser))
            DALSQL.ExecuteNonQuery("SELECT viewtable_user (:puser) FROM dual", p)
        End Sub

Example:

If i insert in txt_user.text= "Nillo123"
then to see if this user exists in the database,
comparing with the sql code "SELECT viewtable_user (:puser) FROM dual".

I tried this :

Private Sub bt_ok_user_Click(sender As Object, e As EventArgs) Handles bt_ok_user.Click
 
       txt_user.Text = BLLSQL.XPTO.ConfUser()
' msg of error "Argument not specified for parameter 'puser' of 'Public Shared Sub ConfUser(puser As String) as system.data.datatable'

       txt_user.text= "SELECT valida_loginassinante (:plogin) FROM dual"
' i will write something, and this will return = "SELECT valida_loginassinante (:plogin) FROM dual" like text in my textbox

   End Sub

For some of you it is easy to understand the problem and get the solution, but for me it''s hard to find the solution.
If you help me,I will appreciate. :)

With best regards,
Nillo123.

解决方案

Public Class BLLSQL
    Public Class XPTO
        Public Shared Sub ConfUser(ByVal puser As String)
            Dim p As New ArrayList
            p.Add(New SqlParameter("@puser", puser))
            DALSQL.ExecuteNonQuery("SELECT viewtable_user ('" & puser & "') FROM dual", p)
        End Sub

Private Sub bt_ok_user_Click(sender As Object, e As EventArgs) Handles bt_ok_user.Click
 
        Dim a As String
        a = txt_user.Text
        BLLSQL.XPTO.ConfUser(a)

If BLLSQL.XPTO.ConfUser(a) = "01;USER DOESN'T EXISTS " Then
            txt_uSEr.ForeColor = Color.Red
            Label3.Text = "USER DOESN'T EXISTS"
            Return
            Exit Sub

        ElseIf txt_uSEr.Text = "" Then
            Label3.Text = "INSERT YOUR USERNAME"
        Else
            Label3.Text = "USER EXISTS!"

   End Sub

<br />
<br />
thank YOU FOR YOUR HELP! :)

这篇关于我怎样才能比较我在BLL里面的文本框中的sql代码？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！