Office中国论坛/Access中国论坛

标题: 有一段代码看不懂 [打印本页]

作者: ansuntt 时间: 2008-11-13 16:53
标题: 有一段代码看不懂
谁可以加下注释，解析下~~最好每一句都有
先谢谢啦~~

Dim mdbcn As New ADODB.Connection
  Dim cmd As New ADODB.Command
  Dim sn As New ADODB.Recordset
  Dim Par As ADODB.Parameter，str As String
  mdbcn.CursorLocation = adUseClient
  mdbcn.ConnectionString = "DRIVER=Microsoft Access Driver (*.mdb);UID=admin;DBQ=你的数据库"
  mdbcn.Open
  cmd.CommandText = "你的查询名"
  cmd.CommandType = adCmdStoredProc
  str = InputBox("输入参数值:")
  Set Par = cmd.CreateParameter("", adVarChar, adParamInput, 200)
  cmd.Parameters.Append Par
  Par.Value = str
  Set cmd.ActiveConnection = mdbcn
  Set sn = cmd.Execute
  MsgBox sn.RecordCount
  Set sn = Nothing: Set cmd = Nothing
  Set mdbcn = Nothing

作者: fan0217 时间: 2008-11-13 17:51
这是一段ADO代码，看看帮助吧，很全面的。

作者: 411412 时间: 2008-11-13 21:26
谢谢谢谢谢谢谢谢谢谢

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)