我写的小的WEB页代码如下,
Imports System.data.oledb
Public Class test1
Inherits System.Web.UI.Page
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label3.Visible = False
Label4.Visible = False
Label5.Visible = False '在此处放置初始化页的用户代码
End Sub
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Then
Label3.Visible() = True
ElseIf TextBox2.Text = "" Then
Label4.Visible() = True
Else
Dim i As Short
Dim con As New OleDbConnection
Dim com As New OleDbCommand
Dim sql As String
Dim str
str = "SELECT * from aa where a='1'"
sql = "Provider=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=C:\Inetpub\wwwroot\dp2\db1.mdb;"
con = New OleDbConnection(sql)
con.Open()
com = New OleDbCommand(str, con)
i = com.ExecuteNonQuery()
If (i <= 0) Then
Label5.Visible = True
Else
str = "insert into aa values('" & TextBox1.Text & "','" & TextBox2.Text & "')"
sql = "Provider=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=C:\Inetpub\wwwroot\dp2\db1.mdb;"
con = New OleDbConnection(sql)
con.Open()
com = New OleDbCommand(str, con)
com.ExecuteNonQuery()
End If
End If
End Sub
End Class
现在碰到这么一个问题,在代码中insert这句可以执行,可是SELECT这句不管我的ACCESS数据库里面有没有相应的内容
执行返回来的值总是0,请问为什么

文本

我用like试过了情况还是一样,而且我直接把这句SELECT * from aa where a='1'拿到ACCESS里面去查询是有结果的

设置断点  我不是要数据我只是要个判断

情况一样

大家帮帮忙啊急啊

现在就是无论输入什么都执行Label5.Visible = True

回18楼的,我尝试过直接把那句查询语句拿到ACCESS数据库执行是有结果的,我用ExecuteNonQuery 来执行不是要得到结果只想得到判断
回19楼 我自己改下i的值就可以执行插入语句跳过判断,我执行插入是看我在语句的写法上有没出错

现在我得到的值不是-1啊一直是0...

问题就在这!我的目的很简单,就是用SELECT去数据库查询是否存在这条记录,存在会返回这条记录没有回返回NULL,就是个判断,依据22楼所说就是我的语句用错了,那么我该用什么样的命令去达到目的呢