OpenSChema method technology discussion (3)

A list of parameters for any stored procedure, which must be useful for buddies who want to do a fully loose coupling system. This program gains a list of parameters for stored procedures of 'Pro_House_Add_info'

connstr = "Provider = MSDAORA.1; User ID = liujincai; password = ljc1001; Data Source = hp1" set mm = server.CreateObject ( "adodb.connection") mm.Open connstr Const adSchemaProcedureParameters = 26 set rs = mm.OpenSchema (adSchemaProcedureParameters) rs.Filter = "PROCEDURE_NAME = 'PRO_HOUSE_ADD_INFO'"? Response.Write "

" Response.Write "" for i = 2 to rs .fields.count-1 response.write " "for i = 2 to rs.fields.count-1Response.write"

" & RS (i) .Name & "" Next Response.write "" Do While Not Rs.eof Response.write "

"& RS (I) &" "Next Response.write" "rs.MovenextLoop Response.write "/ Table>" 转载请注明原文地址:https://www.9cbs.com/read-119485.html 9cbs New Post(0)