Dim db2Conn As New DB2Conn()
db2Conn.cmd = db2Conn.con.CreateCommand()
db2Conn.cmd.CommandType = System.Data.CommandType.StoredProcedure
db2Conn.cmd.CommandText = "{ CALL DB2ADMIN.GENERATE_SPLITDATA_BY_PRECINCT(?) }"
Dim p1 As Odbc.OdbcParameter = db2Conn.cmd.CreateParameter()
p1.OdbcType = Odbc.OdbcType.Date
p1.Value = "2010-07-21"
db2Conn.cmd.Parameters.Add(p1)
db2Conn.cmd.ExecuteNonQuery()
原文链接：https://www.f2er.com/vb/261406.html