请朋友们来帮帮我,谢谢大家了

[okin1]

用户表dbinduser中有一个字段为ca_serial,卡号表card也有一个字段为ca_serial,us_use代表为dbinduser用户表的字段,请问我怎么用select语句查询某一个用户为会员卡用户呢?前提条件是:当ca_serial字段中的内容为空时,判断该用户不是会员卡用户,当ca_serial字段中的内容不为空时,则显示会员卡用户的相关信息..

程序如下:
Public Function UserSerial_verify(ByVal StrUser As String) As Boolean
'--------------------------------------
'检查用户是否为会员卡用户
'是则返回True
'否则返回false
'
'----------------------------------------

Dim ObjCnn As New SQLDateLayer
Dim strCmm As String
Dim BLntemp As Boolean

strCmm = "select ca_serial from dbinduser where us_use='" & StrUser & "'"

With ObjCnn
.CnnSql()
.Txt_SqlDataReader(strCmm)
.mySqlReader.Read()

If IsDBNull(.mySqlReader.Item(0)) = True Then
BLntemp = False
Else
BLntemp = True
End If
.Close_SqlCnn()
End With

Return BLntemp
End Function

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
If Not IsPostBack Then
If use_verify() = False Then
LblMessage.Text = "你不是健康卡用户"
Else
LoadDgrd()
End If
End If
End Sub


Private Function LoadDgrd() As Boolean
Dim ObjCnn As New SQLDateLayer
Dim StrCmm As String


StrCmm = "select ca_type,ca_serial,ca_balan,ca_cicent,ca_sim,ca_date from dbcard where ca_serial=(select ca_serial from dbinduser where us_use='" & Session("Log_user") & "')"
With ObjCnn
DgrdList.DataSource = .txt_ReDataTable(StrCmm)
DgrdList.DataBind()
End With
End Function

Private Function use_verify() As Boolean
Dim Objcard As New ClsCardVerify
Dim blntemp As Boolean

blntemp = Objcard.UserSerial_verify(Session("Log_user"))


Return blntemp
End Function
End Class

[okin1]

自己顶一下

[yanlongwuhui]

"select ca_type,ca_serial,ca_balan,ca_cicent,ca_sim,ca_date from dbcard where ca_serial in (select ca_serial from dbinduser where us_use='" & Session("Log_user") & "')"

或是
"select ca_type,ca_serial,ca_balan,ca_cicent,ca_sim,ca_date from dbcard left outer join dbinduser on dbcard.ca_serial = dbinduser.ca_serial where (dbinduser.ca_serial is not null) and use='" & Session("Log_user")& "')"

[okin1]

好的,先谢谢楼上的朋友了,我刚才调试了一下,还是不行..请指教..

[okin1]

上面那一句是不是加在LoadDgrd()中

[okin1]

或是
"select ca_type,ca_serial,ca_balan,ca_cicent,ca_sim,ca_date from dbcard left outer join dbinduser on dbcard.ca_serial = dbinduser.ca_serial where (dbinduser.ca_serial is not null) and use='" & Session("Log_user")& "')"


')' 附近有语法错误。

[okin1]

求助...

[yanlongwuhui]

把整段代码贴上来，并把错误提示贴上来

[yanlongwuhui]

你跟踪下Session("Log_user") 的值对不对，另外可以跟踪StrCmm后把StrCmm的值放到查询分析器中调试下

[okin1]

发表于：2008-04-10 09:18:266楼 得分:0
你跟踪下Session("Log_user") 的值对不对，另外可以跟踪StrCmm后把StrCmm的值放到查询分析器中调试下

Session("Log_user") 的值是对的,StrCmm的值显示了所有的数据,其中包括了空值..

[knowledge_Is_Life]

不知,帮顶