首先你是用的是SQLServer吗?如果是access好像还不支持存储过程。 如果是SQLserver,建议你好好看看SQL的帮助,有存储过程的实例,不难的,只要你会写SQL就没什么问题。然后是调用。 一个例子,传入三个参数"学生ID","考试科目","成绩"字段.做Insert动作. Dim lcmwuqi As New ADODB.Command On Error GoTo inerr 'If lcmwuqi Is Nothing Then 'Set lcmwuqi = New ADODB.command With lcmwuqi .ActiveConnection = conn .CommandText = "p_NewStudentTest" .CommandType = adCmdStoredProc End With 'End If lcmwuqi.Parameters.Append lcmwuqi.CreateParameter("学生ID", adInteger, adParamInput, 4, CInt(stuID)) lcmwuqi.Parameters.Append lcmwuqi.CreateParameter("考试科目", adVarChar, adParamInput, 30, tbTextName.Text) lcmwuqi.Parameters.Append lcmwuqi.CreateParameter("成绩", adVarChar, adParamInput, 6, tbText.Text) lcmwuqi.Execute
當然可以啦.你可以使用adodb.command來獲得查詢結果 Dim a dim cn As ADODB.Connection Dim rs As ADODB.Recordset dim cmd As ADODB.Command Set cn = New ADODB.Connection cn.CursorLocation = adUseClient cn.Open "provider=msdasql;driver={sql server};server=sr-shu;uid=sa;pwd=weixing;database=ff"Set cmd = New ADODB.Command cmd.ActiveConnection = cn cmd.CommandType = adCmdText cmd.CommandText = "select count(*) from people"Set rs = cmd.Execute() MsgBox rs(0).Value快放分呀.
如果再复杂,建议你使用存储过程。这样能提高效率。
如果是SQLserver,建议你好好看看SQL的帮助,有存储过程的实例,不难的,只要你会写SQL就没什么问题。然后是调用。
一个例子,传入三个参数"学生ID","考试科目","成绩"字段.做Insert动作.
Dim lcmwuqi As New ADODB.Command
On Error GoTo inerr
'If lcmwuqi Is Nothing Then
'Set lcmwuqi = New ADODB.command
With lcmwuqi
.ActiveConnection = conn
.CommandText = "p_NewStudentTest"
.CommandType = adCmdStoredProc
End With
'End If
lcmwuqi.Parameters.Append lcmwuqi.CreateParameter("学生ID", adInteger, adParamInput, 4, CInt(stuID))
lcmwuqi.Parameters.Append lcmwuqi.CreateParameter("考试科目", adVarChar, adParamInput, 30, tbTextName.Text)
lcmwuqi.Parameters.Append lcmwuqi.CreateParameter("成绩", adVarChar, adParamInput, 6, tbText.Text)
lcmwuqi.Execute
Dim a
dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
dim cmd As ADODB.Command
Set cn = New ADODB.Connection
cn.CursorLocation = adUseClient
cn.Open "provider=msdasql;driver={sql server};server=sr-shu;uid=sa;pwd=weixing;database=ff"Set cmd = New ADODB.Command
cmd.ActiveConnection = cn
cmd.CommandType = adCmdText
cmd.CommandText = "select count(*) from people"Set rs = cmd.Execute()
MsgBox rs(0).Value快放分呀.