vb操作db2存储过程

    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()