急!急!高分救问:VB中有这项功能吗?

Question

1.在你的VB代码中作不就是自己对多个表进行操作吗？不过注意这种操作必须使用事务以保证数据的完整性
2.Access支持带参数的查询（类似SQL Server中的存储过程）

Answer 1

to ：　hydnoahark(诺亚方舟)　
只能用代码保证数据库的一致性吗?不能象在SQL中一样写触发器? 
怎么在ACCESS中写带参数据的查询?在VB中怎么传递用户输入的参数?是用PARAMETER对象吗?
能不能给出一个简单的例子?
谢了!
  

Answer 2

to ：　hydnoahark(诺亚方舟)　
只能用代码保证数据库的一致性吗?不能象在SQL中一样写触发器? 
怎么在ACCESS中写带参数据的查询?在VB中怎么传递用户输入的参数?是用PARAMETER对象吗?
能不能给出一个简单的例子?
谢了!
  

Answer 3

  可是实现起来总是出错,有没有更简单的办法啊?
  我对ACCESS不太熟悉.

Answer 4

打开你的数据库，选择新建一个带参数的查询:
PARAMETERS [inid] Text; SELECT * from 。。<%@  Language=VBScript %>
<%
    Dim cnn1
    Dim cmdNyttSvarID
    Dim prmNyttSvarID
    Dim rstNyttSvarID
    Dim strID
    Dim strCnn
    Dim strSize
    Dim i
    Dim tmpFields
    Dim strName
    Dim strTable
    
    Set cnn1 = Server.CreateObject ("ADODB.Connection")
    strCnn = "DSN=agenda21"
    cnn1.Open strCnn
    cnn1.CursorLocation = adUseClient
    
    Set cmdNyttSvarID = Server.CreateObject ("ADODB.Command")
    '你的查询名
        cmdNyttSvarID.CommandText = "nyttsvarid"
    cmdNyttSvarID.CommandType = adCmdStoredProc
    
        '给初始参数值
    strID = "00001"
    strSize = Len(strID)
    
    '参数名
    strName = "inid"
    
        '建立命令对象所需参数
    Set prmNyttSvarID = cmdNyttSvarID.CreateParameter(strName, adVarChar, adParamInput,strSize,strID)
    cmdNyttSvarID.Parameters.Append prmNyttSvarID
    prmNyttSvarID.Value = strID
    
    Set cmdNyttSvarID.ActiveConnection = cnn1
    Set rstNyttSvarID = cmdNyttSvarID.Execute
    i = 1
    
    
    Do While Not rstNyttSvarID.EOF
        Response.Write ("<BR>")
        
        For Each tmpField In rstNyttSvarID.Fields
            Response.Write (tmpField.Name & ":" & tmpField.Value & ",")
        Next
        
        rstNyttSvarID.MoveNext
    Loop
    
    rstNyttSvarID.Close
    cnn1.Close
%>