我这个菜鸟实在是不会用 append 来增加数据列,还请各种高手相救了
我在用如下的代码动态的添加一个列:
Dim cnn1 As ADODB.Connection
Dim cmdByRoyalty As ADODB.Command
Dim prmByRoyalty As ADODB.Parameter
Dim rstByRoyalty As ADODB.Recordset
Dim rstAuthors As ADODB.Recordset
Dim intRoyalty As Integer
Dim strAuthorID As String
Dim strCnn As String
' 打开连接。
Set cnn1 = New ADODB.Connection
' strCnn = "Provider=sqloledb;" & "Data Source=srv;Initial Catalog=pubs;User Id= ;Password=; "
strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据\dbbackup.mdb;User Id= ;Password=;Persist Security Info=False"
cnn1.Open strCnn
cnn1.CursorLocation = adUseClient
' 使用单一参数打开命令对象。
Set cmdByRoyalty = New ADODB.Command
cmdByRoyalty.CommandText = "study_info"
cmdByRoyalty.CommandType = adCmdStoredProc
' 获取参数值并追加参数。
' intRoyalty = Trim(InputBox("Enter royalty:"))
Set prmByRoyalty = cmdByRoyalty.CreateParameter("percentage", _
adInteger, adParamInput)
cmdByRoyalty.Parameters.Append prmByRoyalty
prmByRoyalty.Value = intRoyalty
' 通过执行命令创建记录集。
Set cmdByRoyalty.ActiveConnection = cnn1
Set rstByRoyalty = cmdByRoyalty.Execute
' 打开 Authors 表以获取作者姓名进行显示。
Set rstAuthors = New ADODB.Recordset
rstAuthors.Open "authors", cnn1, , , adCmdTable
rstByRoyalty.Close
rstAuthors.Close
cnn1.Close
可是它总是会有这样的一个提示:对象“study_info"不是一个被存储的过程,我想这可能是不是我的那一个属性没有设置正解,还请各位大哥帮帮小弟。(还请不要见笑我这个入道不久的菜鸟吧)
还想顺便问一下各位大哥:在一个字符串中找某个字符的函数是什么呀!谢谢了,小弟先谢谢各位了