请教关于Asp.net执行SQL语句的问题
gjmcg 2009-06-02 01:43:46 我用Vs.net2005做的网站.里面的执行语句
在vs.net2005里面运行可以
但是设置到IIS里面就不行了。没反应。为什么??请高手指点
update = "update SODETAIL set so_date='" & Trim(Me.Calendar.Text) & "'"
update &= ",item_desc='" & Trim(Me.txtItemDesc.Text) & "'"
update &= ",QTY='" & Trim(Me.txtQTY.Text) & "'"
update &= ",CompleteQTY='" & Trim(Me.txtCompleteQTY.Text) & "'"
update &= ",DN_QTY='" & Trim(Me.txtDNQTY.Text) & "'"
update &= ",remark='" & Trim(Me.txtRemark.Text) & "'"
update &= " where SO = '" & Trim(Me.txtSo.Text) & "' "
update &= "and cust_code='" & Trim(Me.txtCustcode.Text) & "' and item_no='" & Trim(Me.txtItemNo.Text) & "' "
If c.ExeDB(update) = False Then
Exit Sub
Else
Response.Write("<script lanuage=javascript>alert('更新成功');</script>")
showDetail()
End If
exeDB是个类
Imports Microsoft.VisualBasic
Imports System.Data
Imports System.Data.OleDb
Public Class Allconnection
Public sqlds As New dataset
Public Function ExeDB(ByVal myQuery As String) As Boolean
Dim ConnectionStr As String
ConnectionStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\My Document\Visual Studio 2005\WebSites\B2B\B2B.Mdb"
Dim Myconnection As New OleDbConnection(ConnectionStr)
Dim Sqlda As OleDbDataAdapter
Try
Dim mycommand As New OleDbCommand(myQuery)
mycommand.Connection = Myconnection
mycommand.CommandType = CommandType.Text
Myconnection.Open()
Sqlda = New OleDbDataAdapter(myQuery, Myconnection)
sqlds.Clear()
Sqlda.Fill(sqlds)
mycommand.Connection.Close()
Myconnection.Close()
Return True
Catch ex As Exception
Return False
End Try
End Function
'*************定义类的属性,让类返回数据集,方便dataset的重复操作使用
Public ReadOnly Property dataset() As DataSet
Get
Return sqlds
End Get
End Property
End Class